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 217, Sun Feb 28 23:41:30 1999 UTC revision 218, Tue Mar 2 08:12:06 1999 UTC
# Line 184  Line 184
184                  | apply ("etasplit",f)      = etasplit f                  | apply ("etasplit",f)      = etasplit f
185                  | apply ("last_contract",f) = last_contract f                  | apply ("last_contract",f) = last_contract f
186                  | apply ("cycle_expand",f)  = cycle(rounds, not(!CG.unroll), f)                  | apply ("cycle_expand",f)  = cycle(rounds, not(!CG.unroll), f)
187                    | apply ("contract",f)      = contract false f
188                    | apply ("flatten",f)       = flatten f
189                    | apply ("expand",f)        = expand(f, bodysize, false)
190                  | apply ("print",f)         = (PPCps.printcps0 f; f)                  | apply ("print",f)         = (PPCps.printcps0 f; f)
191                  | apply (p,f) = (say("\n!! Unknown cps phase '"^p^"' !!\n"); f)                  | apply (p,f) = (say("\n!! Unknown cps phase '"^p^"' !!\n"); f)
192       in foldl apply function (!CG.cpsopt)       in foldl apply function (!CG.cpsopt)

Legend:
 Removed from v.217 changed lines Added in v.218