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/compiler/buildcm
ViewVC logotype

Diff of /sml/trunk/src/compiler/buildcm

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

revision 46, Sun Mar 22 20:11:09 1998 UTC revision 52, Mon Mar 23 03:59:51 1998 UTC
# Line 45  Line 45 
45  CMPATH=""  CMPATH=""
46  PROF=""  PROF=""
47  CHECK=""  CHECK=""
48  STATS='Compiler.Stats.summarySp ();'  STATS=""
49  CURDIR=`pwd`  CURDIR=`pwd`
50  cd ../cm/  cd ../cm/
51    
# Line 117  Line 117 
117              fi              fi
118              SML=$1; shift              SML=$1; shift
119          ;;          ;;
120            -note)
121                if [ "$#" = "0" ]; then
122                    echo "xmakeml: missing argument for \"-note\" option"
123                    exit 1
124                fi
125                NOTE="$1\n"; shift
126            ;;
127            -full)
128                ARGS="$ARGS sml-full"
129                NOTE="[-full]\n$NOTE"
130                HEAP_IMAGE="sml-cm-full"
131            ;;
132          -prof)          -prof)
133              PROF="local open Compiler.Profile in val _ = setMode ACTIVE end;"              PROF="local open Compiler.Profile in val _ = setMode ACTIVE end;"
134              ;;              ;;
# Line 126  Line 138 
138                     structure CheckItOut = CheckIt (Compiler);'                     structure CheckItOut = CheckIt (Compiler);'
139              ;;              ;;
140          -stats)          -stats)
141              STATS='Compiler.Stats.summarySp ();'              STATS='Compiler.Stats.summary ();'
             ;;  
         -nostats)  
             STATS=""  
142              ;;              ;;
143          *)          *)
144              ARGS="$ARGS $arg"              ARGS="$ARGS $arg"
# Line 140  Line 149 
149  #  #
150  # split the pathname and build SML string list  # split the pathname and build SML string list
151  #  #
152    if [ "$ARGS" = "" ]; then
153        ARGS="sml"
154    fi
155    
156  SPACEPATH=`echo $CMPATH | sed -e 's/:/ /g'`  SPACEPATH=`echo $CMPATH | sed -e 's/:/ /g'`
157  PATHLIST=""  PATHLIST=""
# Line 180  Line 192 
192          val _ = Posix.FileSys.chdir "../cm/";          val _ = Posix.FileSys.chdir "../cm/";
193          use "$tmp";          use "$tmp";
194          $STATS          $STATS
195            Compiler.Stats.summary();
196          val _ = Posix.FileSys.chdir "$CURDIR";          val _ = Posix.FileSys.chdir "$CURDIR";
197          (SMLofNJ.exportML "$HEAP_IMAGE";          (SMLofNJ.exportML "$HEAP_IMAGE";
198           print (Compiler.banner ^ " [CM&CMB]\n");           print (Compiler.banner ^
199                    "\n[built `date`]\n$NOTE[CM&CMB]\n");
200           CM.procCmdLine ());           CM.procCmdLine ());
201  ZZZ  ZZZ
202    

Legend:
Removed from v.46  
changed lines
  Added in v.52

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