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 24, Thu Mar 12 00:49:58 1998 UTC revision 45, Sun Mar 22 20:11:09 1998 UTC
# Line 45  Line 45 
45  CMPATH=""  CMPATH=""
46  PROF=""  PROF=""
47  CHECK=""  CHECK=""
48  STATS=""  STATS='Compiler.Stats.summarySp ();'
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.summary ();'              STATS='Compiler.Stats.summarySp ();'
130                ;;
131            -nostats)
132                STATS=""
133              ;;              ;;
134          *)          *)
135              ARGS="$ARGS $arg"              ARGS="$ARGS $arg"
# Line 177  Line 180 
180          val _ = Posix.FileSys.chdir "../cm/";          val _ = Posix.FileSys.chdir "../cm/";
181          use "$tmp";          use "$tmp";
182          $STATS          $STATS
         Compiler.Stats.summary();  
183          val _ = Posix.FileSys.chdir "$CURDIR";          val _ = Posix.FileSys.chdir "$CURDIR";
184          (SMLofNJ.exportML "$HEAP_IMAGE";          (SMLofNJ.exportML "$HEAP_IMAGE";
185           print (Compiler.banner ^ " [CM&CMB]\n");           print (Compiler.banner ^ " [CM&CMB]\n");

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

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