SCM Repository
Diff of /sml/trunk/src/compiler/FLINT/main/flintcomp.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 163, Thu Oct 29 21:00:27 1998 UTC | revision 164, Sat Oct 31 01:03:30 1998 UTC | |
|---|---|---|
| # | Line 24 | Line 24 |
| 24 | fun phase x = Stats.doPhase (Stats.makePhase x) | fun phase x = Stats.doPhase (Stats.makePhase x) |
| 25 | ||
| 26 | (* val lcontract = phase "Compiler 052 lcontract" LContract.lcontract *) | (* val lcontract = phase "Compiler 052 lcontract" LContract.lcontract *) |
| 27 | val fcontract = phase "Compiler 052 fcontract" FContract.contract | val fcollect = phase "Compiler 052a fcollect" Collect.collect |
| 28 | val fcontract = phase "Compiler 052b fcontract" FContract.contract | |
| 29 | val fcontract = fcontract o fcollect | |
| 30 | ||
| 31 | val specialize= phase "Compiler 053 specialize" Specialize.specialize | val specialize= phase "Compiler 053 specialize" Specialize.specialize |
| 32 | val wrapping = phase "Compiler 054 wrapping" Wrapping.wrapping | val wrapping = phase "Compiler 054 wrapping" Wrapping.wrapping |
| 33 | val reify = phase "Compiler 055 reify" Reify.reify | val reify = phase "Compiler 055 reify" Reify.reify |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
