SCM Repository
Diff of /sml/trunk/src/compiler/FLINT/main/flintcomp.sml
Parent Directory
|
Revision Log
|
Patch
revision 71, Fri Apr 3 01:57:57 1998 UTC | revision 84, Wed May 6 22:35:33 1998 UTC | |
---|---|---|
# | Line 23 | Line 23 |
23 | fun phase x = Stats.doPhase (Stats.makePhase x) | fun phase x = Stats.doPhase (Stats.makePhase x) |
24 | ||
25 | val fcollect = phase "Compiler 052 collect" (fn le => (Collect.collect le; le)) | val fcollect = phase "Compiler 052 collect" (fn le => (Collect.collect le; le)) |
26 | val fcontract = phase "Compiler 052 fcontract" FContract.contract | (* val fcontract = phase "Compiler 052 fcontract" FContract.contract *) |
27 | val lcontract = phase "Compiler 052 lcontract" LContract.lcontract | val lcontract = phase "Compiler 052 lcontract" LContract.lcontract |
28 | val specialize= phase "Compiler 053 specialize" Specialize.specialize | val specialize= phase "Compiler 053 specialize" Specialize.specialize |
29 | val wrapping = phase "Compiler 054 wrapping" Wrapping.wrapping | val wrapping = phase "Compiler 054 wrapping" Wrapping.wrapping |
|
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |