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/cpsopt/cpsopt.sml
 [smlnj] / sml / trunk / src / compiler / FLINT / cpsopt / cpsopt.sml

Diff of /sml/trunk/src/compiler/FLINT/cpsopt/cpsopt.sml

revision 625, Sat Apr 22 23:21:36 2000 UTC revision 626, Sat Apr 22 23:24:24 2000 UTC
# Line 84  Line 84
84         f'         f'
85     end)     end)
86
87    fun zeroexpand f = Expand.expand{function=f, click=click, bodysize=0,
88                                     afterClosure=afterClosure, table=table,
90
91  fun flatten f =  fun flatten f =
92    (clicked := 0;    (clicked := 0;
93     if not(!CG.flattenargs) then f else     if not(!CG.flattenargs) then f else
# Line 186  Line 190
190                  | apply ("cycle_expand",f)  = cycle(rounds, not(!CG.unroll), f)                  | apply ("cycle_expand",f)  = cycle(rounds, not(!CG.unroll), f)
191                  | apply ("contract",f)      = contract false f                  | apply ("contract",f)      = contract false f
192                  | apply ("flatten",f)       = flatten f                  | apply ("flatten",f)       = flatten f
193                    | apply ("zeroexpand",f)    = zeroexpand f
194                  | apply ("expand",f)        = expand(f, bodysize, false)                  | apply ("expand",f)        = expand(f, bodysize, false)
195                  | apply ("print",f)         = (PPCps.printcps0 f; f)                  | apply ("print",f)         = (PPCps.printcps0 f; f)
196                  | apply (p,f) = (say("\n!! Unknown cps phase '"^p^"' !!\n"); f)                  | apply (p,f) = (say("\n!! Unknown cps phase '"^p^"' !!\n"); f)

Legend:
 Removed from v.625 changed lines Added in v.626