Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/mid-to-low/mid-to-low.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/mid-to-low/mid-to-low.sml

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

revision 3267, Wed Oct 7 19:26:16 2015 UTC revision 3268, Fri Oct 9 00:50:13 2015 UTC
# Line 144  Line 144 
144          val (code,cnt)=getSet(code, [],tbl0,0)          val (code,cnt)=getSet(code, [],tbl0,0)
145    
146    
147              val _ = if (cnt> 0) then              val _ = if (cnt> 500) then
148              (String.concat["\n",DstIL.Var.toString(y),"=",P.printerE e,"\n\t previous: ",Int.toString(length(code))," replaced: ", Int.toString cnt])              (String.concat["\n",DstIL.Var.toString(y),"=",P.printerE e,"\n\t previous: ",Int.toString(length(code))," replaced: ", Int.toString cnt])
149              else  ""              else  ""
150    
# Line 192  Line 192 
192        end)        end)
193    
194      fun translate prog = let      fun translate prog = let
       val _= print" pre prog"  
195            val prog = Trans.translate prog            val prog = Trans.translate prog
       val _= print"post prog"  
196            in            in
197              LowILCensus.init prog;              LowILCensus.init prog;
198              prog              prog

Legend:
Removed from v.3267  
changed lines
  Added in v.3268

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