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

Diff of /sml/trunk/src/system/smlnj/internal/int-sys.sml

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

revision 770, Sun Dec 24 20:06:28 2000 UTC revision 771, Sat Dec 30 13:06:09 2000 UTC
# Line 42  Line 42 
42    
43      val _ = UseHook.useHook := Compiler.Interact.useFile      val _ = UseHook.useHook := Compiler.Interact.useFile
44    
45    
46        (* add cleanup code that resets the internal timers and stats
47         * when resuming from exportML... *)
48        local
49            structure I = SMLofNJ.Internals
50            structure C = I.CleanUp
51            fun reset _ = (I.resetTimers (); Compiler.Stats.reset ())
52        in
53            val _ = C.addCleaner ("initialize-timers-and-stats", [C.AtInit], reset)
54        end
55    
56      (* launch interactive loop *)      (* launch interactive loop *)
57      val _ = (Compiler.Control.Print.say "Generating heap image...\n";      val _ = (Compiler.Control.Print.say "Generating heap image...\n";
58               if SMLofNJ.exportML heapfile then               if SMLofNJ.exportML heapfile then
59                   (SMLofNJ.Internals.resetTimers ();                   (print Compiler.banner;
                   Compiler.Stats.reset ();  
                   print Compiler.banner;  
60                    print "\n";                    print "\n";
61                    getOpt (procCmdLine, fn () => ()) ();                    getOpt (procCmdLine, fn () => ()) ();
62                    Compiler.Interact.interact ())                    Compiler.Interact.interact ())

Legend:
Removed from v.770  
changed lines
  Added in v.771

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