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/branches/SMLNJ/src/compiler/Semant/modules/epcontext.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/Semant/modules/epcontext.sml

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

revision 23, Thu Mar 12 00:49:56 1998 UTC revision 24, Thu Mar 12 00:49:58 1998 UTC
# Line 111  Line 111 
111            else (locals := D.insert(!locals, s, h(ep,bindContext)))            else (locals := D.insert(!locals, s, h(ep,bindContext)))
112        end        end
113    
114    (*
115    (*** top leve wrappers: used for profiling the compilation time *)
116    val lookPath =
117      Stats.doPhase (Stats.makePhase "Compiler 034 x-lookPath") lookPath
118    val bindPath =
119      Stats.doPhase (Stats.makePhase "Compiler 034 x-bindPath") bindPath
120    val bindLongPath =
121      Stats.doPhase (Stats.makePhase "Compiler 034 y-bindPath") bindLongPath
122    *)
123    
124  end (* local *)  end (* local *)
125  end (* structure EntPathContext *)  end (* structure EntPathContext *)
126    

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

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