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/system/Basis/Implementation/NJ/internals.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/NJ/internals.sml

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

revision 674, Thu Jun 22 06:45:00 2000 UTC revision 675, Fri Jun 23 09:18:18 2000 UTC
# Line 21  Line 21 
21    
22      val resetTimers = InternalTimer.resetTimers      val resetTimers = InternalTimer.resetTimers
23    
24    end;      structure BTrace = struct
25            exception BTrace of unit -> string list
26            val mode = let
27                val state = ref false
28                fun access NONE = !state
29                  | access (SOME change) = !state before state := change
30            in
31                access
32            end
33            local
34                val hook = ref { mkid = fn (s: string) => 0,
35                                 reset = fn () => () }
36            in
37                fun install { corefns, reset, mkid } =
38                    (hook := { mkid = mkid, reset = reset };
39                     Core.bt_install corefns)
40                fun mkid s = #mkid (!hook) s
41                fun reset () = #reset (!hook) ()
42            end
43            fun report () = Core.bt_report () ()
44            fun trigger () = raise BTrace (report ())
45            fun save () = Core.bt_save () ()
46        end
47    
48      end;

Legend:
Removed from v.674  
changed lines
  Added in v.675

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