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 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

Legend:
Removed from v.163  
changed lines
  Added in v.164

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