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/cm/main/cm-boot.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/cm-boot.sml

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

revision 1793, Wed May 18 15:54:17 2005 UTC revision 1794, Wed May 18 16:59:22 2005 UTC
# Line 428  Line 428 
428                before dropPickles ()                before dropPickles ()
429            end            end
430    
431              fun redump_heap s : unit =
432                  SMLofNJ.Cont.throw (!HostBackend.Interact.redump_heap_cont) s
433    
434            fun slave () = let            fun slave () = let
435                val gr = GroupReg.new ()                val gr = GroupReg.new ()
436                fun parse p = Parse.parse (slave_parse_arg (gr, NONE, p))                fun parse p = Parse.parse (slave_parse_arg (gr, NONE, p))
# Line 835  Line 838 
838                | args ("-E" :: rest, mk) = (show_envvars NONE; args_q (rest, mk))                | args ("-E" :: rest, mk) = (show_envvars NONE; args_q (rest, mk))
839                | args ("-q" :: _, _) = quit ()                | args ("-q" :: _, _) = quit ()
840                | args ("@CMbuild" :: rest, _) = mlbuild rest                | args ("@CMbuild" :: rest, _) = mlbuild rest
841                  | args (["@CMredump", heapfile], _) =
842                      redump_heap heapfile
843                | args (f :: rest, mk) =                | args (f :: rest, mk) =
844                  (carg (String.substring (f, 0, 2)                  (carg (String.substring (f, 0, 2)
845                           handle General.Subscript => "",                           handle General.Subscript => "",
# Line 917  Line 922 
922    
923          val cm_dir_arc = FilenamePolicy.cm_dir_arc          val cm_dir_arc = FilenamePolicy.cm_dir_arc
924    
925          fun redump_heap s : unit =          val redump_heap = redump_heap
             SMLofNJ.Cont.throw (!HostBackend.Interact.redump_heap_cont) s  
926      end      end
927    
928      structure Tools = ToolsFn (val load_plugin' = load_plugin'      structure Tools = ToolsFn (val load_plugin' = load_plugin'

Legend:
Removed from v.1793  
changed lines
  Added in v.1794

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