Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/FLINT/opt/fixfix.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/opt/fixfix.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 215, Wed Feb 17 14:17:40 1999 UTC revision 216, Fri Feb 26 12:55:26 1999 UTC
# Line 259  Line 259 
259                         else let val cs = map (fn ref(sp,ti) => sp + ti div 2) cs                         else let val cs = map (fn ref(sp,ti) => sp + ti div 2) cs
260                                  val s' = foldl (op+) 0 cs                                  val s' = foldl (op+) 0 cs
261                         in if s < 2*s' + ilthreshold                         in if s < 2*s' + ilthreshold
262                            then ((* say((Collect.LVarString f)^" = F.IH_MAYBE "^                            then ((*; say((Collect.LVarString f)^
263                                    " {"^(Int.toString(!cf))^
264                                    "} = F.IH_MAYBE "^
265                                      (Int.toString (s-ilthreshold))^                                      (Int.toString (s-ilthreshold))^
266                                      (foldl (fn (i,s) => s^" "^                                      (foldl (fn (i,s) => s^" "^
267                                              (Int.toString i))                                              (Int.toString i))

Legend:
Removed from v.215  
changed lines
  Added in v.216

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0