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 3259, Mon Sep 21 15:14:52 2015 UTC revision 3260, Wed Sep 23 16:09:21 2015 UTC
# Line 127  Line 127 
127          (*val _=checkEin.checkEIN e*)          (*val _=checkEin.checkEIN e*)
128          val code = EtLow.scan(y,e,einargs)          val code = EtLow.scan(y,e,einargs)
129    
130            val _=print("\n*** ")
131          val tbl0= lowSet.LowSet.empty          val tbl0= lowSet.LowSet.empty
132              fun getSet([],done,_,cnt)=(done,cnt)              fun getSet([],done,_,cnt)=(done,cnt)
133              | getSet( DstIL.ASSGN(lhs,rhs)::es,done,opset,cnt)=let              | getSet( DstIL.ASSGN(lhs,rhs)::es,done,opset,cnt)=let
# Line 141  Line 141 
141    
142          val (code,cnt)=getSet(code, [],tbl0,0)          val (code,cnt)=getSet(code, [],tbl0,0)
143          val _ = if (cnt> 1000) then          val _ = if (cnt> 1000) then
144              print(String.concat["\n previous",Int.toString(length(code)),"replaced", Int.toString cnt,":",P.printerE(e)])              print(String.concat[P.printerE e, "\n\t previous: ",Int.toString(length(code))," replaced: ", Int.toString cnt])
145              else print ""              else print ""
146            val _=print("***end")
147          in          in
148              code              code
149          end          end
# Line 188  Line 188 
188        end)        end)
189    
190      fun translate prog = let      fun translate prog = let
191          val _= print" pre prog"
192            val prog = Trans.translate prog            val prog = Trans.translate prog
193          val _= print"post prog"
194            in            in
195              LowILCensus.init prog;              LowILCensus.init prog;
196              prog              prog

Legend:
Removed from v.3259  
changed lines
  Added in v.3260

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