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

Diff of /sml/trunk/src/compiler/MiscUtil/profile/btrace.sml

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

revision 878, Wed Jul 18 17:43:27 2001 UTC revision 879, Thu Jul 19 18:59:38 2001 UTC
# Line 11  Line 11 
11  local  local
12      structure A = Absyn      structure A = Absyn
13      structure SE = StaticEnv      structure SE = StaticEnv
     structure CB = CompBasic  
14      structure SP = SymPath      structure SP = SymPath
15      structure EM = ErrorMsg      structure EM = ErrorMsg
16      structure VC = VarCon      structure VC = VarCon
# Line 23  Line 22 
22  in  in
23    
24  signature BTRACE = sig  signature BTRACE = sig
25      val instrument : SE.staticEnv * CB.compInfo -> A.dec -> A.dec      val instrument : SE.staticEnv * CompInfo.compInfo -> A.dec -> A.dec
26  end  end
27    
28  structure BTrace :> BTRACE = struct  structure BTrace :> BTRACE = struct
# Line 42  Line 41 
41      val u_u_u_Ty = BT.unitTy --> u_u_Ty      val u_u_u_Ty = BT.unitTy --> u_u_Ty
42      val iis_u_Ty = BT.tupleTy [BT.intTy, BT.intTy, BT.unitTy] --> BT.unitTy      val iis_u_Ty = BT.tupleTy [BT.intTy, BT.intTy, BT.unitTy] --> BT.unitTy
43    
44      fun instrument0 (senv, cinfo: CB.compInfo) d = let      fun instrument0 (senv, cinfo: CompInfo.compInfo) d = let
45    
46          val matchstring = #errorMatch cinfo          val matchstring = #errorMatch cinfo
47    

Legend:
Removed from v.878  
changed lines
  Added in v.879

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