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

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

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

revision 903, Mon Aug 20 19:34:06 2001 UTC revision 904, Mon Aug 20 19:50:05 2001 UTC
# 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 =       val register = CoreAccess.getVar (env, "profile_register")
          case Lookup.lookVal  
                   (env,  
                    SP.SPATH [CoreSym.coreSym,  
                              S.varSymbol "profile_register"],  
                    fn _ => fn s => fn _ => bug "222 in prof") of  
              V.VAL r => r  
            | _ => bug "09824 in prof"  
126    
127       local       local
128           val ty = case register of           val ty = case register of
# Line 345  Line 338 
338                             val ccvara' = makeEntry(name)                             val ccvara' = makeEntry(name)
339                             val lvar = tmpvar("fnvar",t,mkv);                             val lvar = tmpvar("fnvar",t,mkv);
340    
341                             val exnMatch =                             val exnMatch = CoreAccess.getCon (env, "Match")
                                case Lookup.lookVal  
                                         (env,  
                                          SP.SPATH [CoreSym.coreSym,  
                                                    S.varSymbol "Match"],  
                                          fn _ => fn s => fn _ =>  
                                                             bug "250 in prof")  
                                 of V.CON e => e  
                                  | _ => bug "no CON for exnMatch"  
342    
343                             val RULE(_,special) = List.last l                             val RULE(_,special) = List.last l
344                          in FNexp ([RULE(VARpat(lvar),                          in FNexp ([RULE(VARpat(lvar),

Legend:
Removed from v.903  
changed lines
  Added in v.904

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