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

SCM Repository

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

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

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

revision 3382, Sat Nov 7 03:51:29 2015 UTC revision 3383, Mon Nov 9 02:39:26 2015 UTC
# Line 127  Line 127 
127              @(List.map (fn e=> (DstIL.Var.toString(e)^",")) einargs)))              @(List.map (fn e=> (DstIL.Var.toString(e)^",")) einargs)))
128          (*val _=checkEin.checkEIN e*)          (*val _=checkEin.checkEIN e*)
129    
130          val _ = (String.concat["\n",DstIL.Var.toString(y),"=",P.printerE e])          val _ = print(String.concat["\n********",DstIL.Var.toString(y),"\n\t-prescan"])
131     val _=print (P.printerE e)
132          val code = EtLow.scan(y,e,einargs)          val code = EtLow.scan(y,e,einargs)
133    
134           val _ = print(String.concat["\n\t-postscan"])
135    
136          val tbl0= lowSet.LowSet.empty          val tbl0= lowSet.LowSet.empty
137              fun getSet([],done,_,cnt)=(done,cnt)              fun getSet([],done,_,cnt)=(done,cnt)
# Line 143  Line 145 
145              | getSet (e1::es, done, opset,cnt)=getSet(es,done@[e1],opset,cnt)              | getSet (e1::es, done, opset,cnt)=getSet(es,done@[e1],opset,cnt)
146    
147          val (code,cnt)=getSet(code, [],tbl0,0)          val (code,cnt)=getSet(code, [],tbl0,0)
148  (*         val _ = print(String.concat["\n\t-post creating set"])
149          val n=length(code)          val n=length(code)
150          val _ = if (n> 100) then          val _ = if (cnt> 100) then
151                (String.concat["\n Length: ",Int.toString(length(code))," replaced: ", Int.toString cnt," ",DstIL.Var.toString(y),"\n"])                print(String.concat["\n Length: ",Int.toString n," Replaced: ", Int.toString cnt,
152              else   print""                  "\n",DstIL.Var.toString(y),"=",(P.printerE e),"\n"])
153    else      print(String.concat["\n Length: ",Int.toString n," Replaced: ", Int.toString cnt,
154    "\n",DstIL.Var.toString(y),"\n"])
155    (*
156          val _=if (cnt>100) then print(P.printerE e) else print ""          val _=if (cnt>100) then print(P.printerE e) else print ""
157           val _ = "DONE"           val _ = "DONE"
158  *)  *)
159        val _ = print(String.concat["\n\t-done"])
160          in          in
161              code              code
162          end          end

Legend:
Removed from v.3382  
changed lines
  Added in v.3383

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