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/smlnj/init/core.sml
ViewVC logotype

Diff of /sml/trunk/src/system/smlnj/init/core.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 258  Line 258 
258                  (* end case *)                  (* end case *)
259                end)                end)
260    
261            (* backtrace generation hooks *)
262            local
263                val hook =
264                    ref { save = fn () => fn () => (),
265                          push = fn () => fn () => (),
266                          add = fn (i: int) => (),
267                          register = fn (i: int, s: string) => (),
268                          report = fn () => fn () => ([]: string list) }
269                val ! = InLine.!
270                infix :=
271                val op := = InLine.:=
272            in
273                (* entry points for use by BT-annotated modules: *)
274                fun bt_save () = #save (!hook)
275                fun bt_push () = #push (!hook)
276                fun bt_add () = #add (!hook)
277                fun bt_register () = #register (!hook)
278                fun bt_report () = #report (!hook)
279                (* to install an implementation for back-tracing: *)
280                fun bt_install r = hook := r
281            end
282    
283      end (* local *)      end (* local *)
284    
285      val profile_sregister = ref(fn (x:Assembly.object,s:string)=>x)      val profile_sregister = ref(fn (x:Assembly.object,s:string)=>x)

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