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/main/flintcomp.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/main/flintcomp.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.71  
changed lines
  Added in v.84

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