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/branches/SMLNJ/src/eXene/lib/misc/xdebug.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/eXene/lib/misc/xdebug.sml

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

revision 7, Sun Jan 18 00:59:30 1998 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 105  Line 105 
105            fun wrapf () = (let            fun wrapf () = (let
106                  val tid = getTid()                  val tid = getTid()
107                  in                  in
108                      TraceCML.watch (name, tid);
109                    trace (xspawnTM, fn () => [                    trace (xspawnTM, fn () => [
110                        "xspawn ", name, " ", tidToString tid, "\n"                        "xspawn ", name, " ", tidToString tid, "\n"
111                      ]);                      ]);
# Line 132  Line 133 
133                        (* end case *);                        (* end case *);
134                        TraceCML.unwatch(getTid())                        TraceCML.unwatch(getTid())
135                      end)                      end)
           val tid = spawn wrapf  
136            in            in
137              TraceCML.watch (name, tid);              spawn wrapf
             tid  
138            end            end
139    
140    (* wrapper to report uncaught exceptions *)    (* wrapper to report uncaught exceptions *)

Legend:
Removed from v.7  
changed lines
  Added in v.8

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