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
ViewVC logotype

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

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

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

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