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 109, Fri May 29 02:12:55 1998 UTC revision 118, Fri Jun 5 21:38:17 1998 UTC
# Line 22  Line 22 
22    
23  fun phase x = Stats.doPhase (Stats.makePhase x)  fun phase x = Stats.doPhase (Stats.makePhase x)
24    
 val fcollect  = phase "Compiler 052 collect" (fn le => (Collect.collect le; le))  
 (*  val fcontract = phase "Compiler 052 fcontract" FContract.contract *)  
25  val lcontract = phase "Compiler 052 lcontract" LContract.lcontract  val lcontract = phase "Compiler 052 lcontract" LContract.lcontract
26  val specialize= phase "Compiler 053 specialize" Specialize.specialize  val specialize= phase "Compiler 053 specialize" Specialize.specialize
27  val wrapping  = phase "Compiler 054 wrapping" Wrapping.wrapping  val wrapping  = phase "Compiler 054 wrapping" Wrapping.wrapping
# Line 145  Line 143 
143  end (* structure FLINTComp *)  end (* structure FLINTComp *)
144    
145  (*  (*
146   * $Log: flintcomp.sml,v $   * $Log$
  * Revision 1.2  1998/05/20 18:34:48  george  
  *   Add new literal splitting phase. -- zsh  
  *  
  * Revision 1.1.1.1  1998/04/08 18:39:40  george  
  * Version 110.5  
  *  
147   *)   *)

Legend:
Removed from v.109  
changed lines
  Added in v.118

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