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 1791, Tue May 10 02:56:53 2005 UTC revision 1792, Tue May 17 04:46:12 2005 UTC
# Line 76  Line 76 
76      val _ = ControlRegistry.init BasicControl.topregistry      val _ = ControlRegistry.init BasicControl.topregistry
77    
78      (* launch interactive loop *)      (* launch interactive loop *)
79      val _ = (Control.Print.say "Generating heap image...\n";      val _ =
80               if SMLofNJ.exportML heapfile then          let val f = SMLofNJ.Cont.callcc (fn k =>
81                            (Backend.Interact.redump_heap_cont := k;
82                             heapfile))
83            in Control.Print.say "Generating heap image...\n";
84               if SMLofNJ.exportML f then
85                   (print SMLNJVersion.banner;                   (print SMLNJVersion.banner;
86                    print "\n";                    print "\n";
87                    getOpt (procCmdLine, fn () => ()) ();                    getOpt (procCmdLine, fn () => ()) ();
# Line 86  Line 90 
90                   (print "This is...\n";                   (print "This is...\n";
91                    print SMLNJVersion.banner;                    print SMLNJVersion.banner;
92                    print "\n";                    print "\n";
93                    OS.Process.exit OS.Process.success))                  OS.Process.exit OS.Process.success)
94            end
95  end  end

Legend:
Removed from v.1791  
changed lines
  Added in v.1792

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