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/compiler/DebugProf/profile/tprof.sml
ViewVC logotype

Diff of /sml/trunk/compiler/DebugProf/profile/tprof.sml

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

revision 2623, Tue May 29 21:53:56 2007 UTC revision 2624, Tue May 29 23:00:44 2007 UTC
# Line 105  Line 105 
105    | clean x = x    | clean x = x
106    
107  fun instrumDec' mayReturnMoreThanOnce (env, compInfo) absyn =  fun instrumDec' mayReturnMoreThanOnce (env, compInfo) absyn =
108   let fun getVar name = CoreAccess.getVar (env, name)   let fun getVar name = CoreAccess.getVar env [name]
109       val updateop = getVar "unboxedupdate"       val updateop = getVar "unboxedupdate"
110       val assignop = getVar "assign"       val assignop = getVar "assign"
111       val subop = getVar "subscript"       val subop = getVar "subscript"
# Line 122  Line 122 
122       val currentvar = tmpvar("profCurrent",CONty(refTycon,[intTy]), mkv)       val currentvar = tmpvar("profCurrent",CONty(refTycon,[intTy]), mkv)
123       val currentexp = varexp currentvar       val currentexp = varexp currentvar
124    
125       val register = CoreAccess.getVar (env, "profile_register")       val register = getVar "profile_register"
126    
127       local       local
128           val ty = case register of           val ty = case register of
# Line 353  Line 353 
353                             val ccvara' = makeEntry(name)                             val ccvara' = makeEntry(name)
354                             val lvar = tmpvar("fnvar",t,mkv);                             val lvar = tmpvar("fnvar",t,mkv);
355    
356                             val exnMatch = CoreAccess.getCon (env, "Match")                             val exnMatch = CoreAccess.getCon env ["Match"]
357    
358                             val RULE(_,special) = List.last l                             val RULE(_,special) = List.last l
359                          in FNexp ([RULE(VARpat(lvar),                          in FNexp ([RULE(VARpat(lvar),

Legend:
Removed from v.2623  
changed lines
  Added in v.2624

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