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/btrace.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/DebugProf/profile/btrace.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 28  Line 28 
28    
29  structure BTrace :> BTRACE = struct  structure BTrace :> BTRACE = struct
30    
     exception NoCore  
   
31      fun impossible s = EM.impossible ("BTrace: " ^ s)      fun impossible s = EM.impossible ("BTrace: " ^ s)
32    
33      infix -->      infix -->
# Line 78  Line 76 
76              else if Symbol.eq (s, s') then (s, m+1) :: t              else if Symbol.eq (s, s') then (s, m+1) :: t
77              else (s, 0) :: l              else (s, 0) :: l
78    
79          fun getCore s = let          fun getCoreVal s = CoreAccess.getVar (senv, s)
80              fun err _ _ _ = raise NoCore          fun getCoreCon s = CoreAccess.getCon (senv, s)
         in  
             Lookup.lookVal (senv, SP.SPATH [CoreSym.coreSym,  
                                             Symbol.varSymbol s], err)  
         end  
   
         fun getCoreVal s =  
             case getCore s of  
                 VC.VAL r => r  
               | _ => impossible "getCoreVal"  
   
         fun getCoreCon s =  
             case getCore s of  
                 VC.CON c => c  
               | _ => impossible "getCoreCon"  
81    
82          val bt_reserve = getCoreVal "bt_reserve"          val bt_reserve = getCoreVal "bt_reserve"
83          val bt_register = getCoreVal "bt_register"          val bt_register = getCoreVal "bt_register"

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