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 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,
89                                     unroll=false, do_headers=false}
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

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