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/rt-transition/system/smlnj/internal/int-sys.sml
ViewVC logotype

Diff of /sml/branches/rt-transition/system/smlnj/internal/int-sys.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 40  Line 40 
40           Signals.overrideHandler (Signals.sigTERM, Signals.HANDLER handleTERM);           Signals.overrideHandler (Signals.sigTERM, Signals.HANDLER handleTERM);
41           ifSignal ("QUIT", handleTERM))           ifSignal ("QUIT", handleTERM))
42    
43      val _ = UseHook.useHook := Compiler.Interact.useFile      val _ = UseHook.useHook := Backend.Interact.useFile
44    
45    
46      (* add cleanup code that resets the internal timers and stats      (* add cleanup code that resets the internal timers and stats
# Line 48  Line 48 
48      local      local
49          structure I = SMLofNJ.Internals          structure I = SMLofNJ.Internals
50          structure C = I.CleanUp          structure C = I.CleanUp
51          fun reset _ = (I.resetTimers (); Compiler.Stats.reset ())          fun reset _ = (I.resetTimers (); Stats.reset ())
52      in      in
53          val _ = C.addCleaner ("initialize-timers-and-stats", [C.AtInit], reset)          val _ = C.addCleaner ("initialize-timers-and-stats", [C.AtInit], reset)
54      end      end
55    
56      (* launch interactive loop *)      (* launch interactive loop *)
57      val _ = (Compiler.Control.Print.say "Generating heap image...\n";      val _ = (Control.Print.say "Generating heap image...\n";
58               if SMLofNJ.exportML heapfile then               if SMLofNJ.exportML heapfile then
59                   (print Compiler.banner;                   (print CompilerVersion.banner;
60                    print "\n";                    print "\n";
61                    getOpt (procCmdLine, fn () => ()) ();                    getOpt (procCmdLine, fn () => ()) ();
62                    Compiler.Interact.interact ())                    Backend.Interact.interact ())
63               else               else
64                   (print "This is...\n";                   (print "This is...\n";
65                    print Compiler.banner;                    print CompilerVersion.banner;
66                    print "\n";                    print "\n";
67                    OS.Process.exit OS.Process.success))                    OS.Process.exit OS.Process.success))
68  end  end

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