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/Semant/modules/moduleutil.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/modules/moduleutil.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 24, Thu Mar 12 00:49:58 1998 UTC revision 45, Sun Mar 22 20:11:09 1998 UTC
# Line 153  Line 153 
153        TU.mapTypeFull (transTycon entEnv) ty        TU.mapTypeFull (transTycon entEnv) ty
154        handle EE.Unbound => (debugmsg "$transType"; raise EE.Unbound)        handle EE.Unbound => (debugmsg "$transType"; raise EE.Unbound)
155    
156    (*
157    val transTyconPhase = (Stats.makePhase "Compiler 033 4-transTycon")
158  val transTycon =  val transTycon =
159    fn x => fn y =>    fn x => fn y => (Stats.doPhase transTyconPhase (transTycon x) y)
    (Stats.doPhase (Stats.makePhase "Compiler 033 4-transTycon")  
                   (transTycon x) y)  
   
160    
161    val transTypePhase = (Stats.makePhase "Compiler 033 5-transType")
162  val transType =  val transType =
163    fn x => fn y =>    fn x => fn y => (Stats.doPhase transTypePhase (transType x) y)
164     (Stats.doPhase (Stats.makePhase "Compiler 033 5-transType")  *)
                   (transType x) y)  
165    
166  fun strDefToStr(CONSTstrDef str, _) = str  fun strDefToStr(CONSTstrDef str, _) = str
167    | strDefToStr(VARstrDef(sign,entPath), entEnv) =    | strDefToStr(VARstrDef(sign,entPath), entEnv) =
# Line 394  Line 393 
393    
394    
395  (*  (*
396    val relativizeTypePhase = (Stats.makePhase "Compiler 033 2-vizType")
397  val relativizeType =  val relativizeType =
398    fn x => fn y =>    fn x => fn y =>
399     (Stats.doPhase (Stats.makePhase "Compiler 033 2-vizType")     (Stats.doPhase relativizeTypePhase (relativizeType x) y)
                   (relativizeType x) y)  
400    
401  *)  *)
402    

Legend:
Removed from v.24  
changed lines
  Added in v.45

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