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 18, Wed Mar 11 21:00:18 1998 UTC revision 24, Thu Mar 12 00:49:58 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 126  Line 126 
126                     structure CheckItOut = CheckIt (Compiler);'                     structure CheckItOut = CheckIt (Compiler);'
127              ;;              ;;
128          -stats)          -stats)
129              STATS='Compiler.Stats.summarySp ();'              STATS='Compiler.Stats.summary ();'
             ;;  
         -nostats)  
             STATS=""  
130              ;;              ;;
131          *)          *)
132              ARGS="$ARGS $arg"              ARGS="$ARGS $arg"
# Line 180  Line 177 
177          val _ = Posix.FileSys.chdir "../cm/";          val _ = Posix.FileSys.chdir "../cm/";
178          use "$tmp";          use "$tmp";
179          $STATS          $STATS
180            Compiler.Stats.summary();
181          val _ = Posix.FileSys.chdir "$CURDIR";          val _ = Posix.FileSys.chdir "$CURDIR";
182          (SMLofNJ.exportML "$HEAP_IMAGE";          (SMLofNJ.exportML "$HEAP_IMAGE";
183           print (Compiler.banner ^ " [CM&CMB]\n");           print (Compiler.banner ^ " [CM&CMB]\n");

Legend:
Removed from v.18  
changed lines
  Added in v.24

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