CVS: sml-dist/src/system/smlnj/internal cm.sig,1.8,1.9 int-sys.sml,1.12,1.13

Update of /cvsroot/smlnj/sml-dist/src/system/smlnj/internal
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11295/src/system/smlnj/internal

Modified Files:
	cm.sig int-sys.sml 
Log Message:
added mechanism for re-dumping heap image for interactive system

Index: cm.sig
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/smlnj/internal/cm.sig,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** cm.sig	20 Oct 2004 20:05:45 -0000	1.8
--- cm.sig	17 May 2005 04:46:12 -0000	1.9
***************
*** 81,83 ****
--- 81,85 ----
  				nativesrc: string -> string } option
      end
+ 
+     val redump_heap : string -> unit
  end

Index: int-sys.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/smlnj/internal/int-sys.sml,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** int-sys.sml	15 Oct 2004 20:45:02 -0000	1.12
--- int-sys.sml	17 May 2005 04:46:12 -0000	1.13
***************
*** 77,90 ****
  
      (* launch interactive loop *)
!     val _ = (Control.Print.say "Generating heap image...\n";
! 	     if SMLofNJ.exportML heapfile then
! 		 (print SMLNJVersion.banner;
! 		  print "\n";
! 		  getOpt (procCmdLine, fn () => ()) ();
! 		  Backend.Interact.interact ())
! 	     else
! 		 (print "This is...\n";
! 		  print SMLNJVersion.banner;
! 		  print "\n";
! 		  OS.Process.exit OS.Process.success))
  end
--- 77,95 ----
  
      (* launch interactive loop *)
!     val _ =
! 	let val f = SMLofNJ.Cont.callcc (fn k =>
! 			(Backend.Interact.redump_heap_cont := k;
! 			 heapfile))
! 	in Control.Print.say "Generating heap image...\n";
! 	   if SMLofNJ.exportML f then
! 	       (print SMLNJVersion.banner;
! 		print "\n";
! 		getOpt (procCmdLine, fn () => ()) ();
! 		Backend.Interact.interact ())
! 	   else
! 	       (print "This is...\n";
! 		print SMLNJVersion.banner;
! 		print "\n";
! 		OS.Process.exit OS.Process.success)
! 	end
  end



-------------------------------------------------------
This SF.Net email is sponsored by Oracle Space Sweepstakes
Want to be the first software developer in space?
Enter now for the Oracle Space Sweepstakes!
http://ads.osdn.com/?ad_id=7412&alloc_id=16344&op=click