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 |
