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 3343, Thu Oct 22 14:15:20 2015 UTC revision 3344, Fri Oct 23 04:38:49 2015 UTC
# Line 122  Line 122 
122    
123      fun expandEinOp (env, y, e, args) = let      fun expandEinOp (env, y, e, args) = let
124          val einargs=Env.renameList(env, args)          val einargs=Env.renameList(env, args)
125            val _ =print (String.concat ["\n",DstTy.toString(DstIL.Var.ty y)])
126          val _ = testp(([DstTy.toString(DstIL.Var.ty y), "-",DstIL.Var.toString(y),"=",P.printerE(e)]          val _ = testp(([DstTy.toString(DstIL.Var.ty y), "-",DstIL.Var.toString(y),"=",P.printerE(e)]
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*)
# Line 147  Line 148 
148          val _ = if (n> 1000) then          val _ = if (n> 1000) then
149              print(String.concat["\n",DstIL.Var.toString(y),"=",P.printerE e,"\n\t previous: ",Int.toString(length(code))," replaced: ", Int.toString cnt])              print(String.concat["\n",DstIL.Var.toString(y),"=",P.printerE e,"\n\t previous: ",Int.toString(length(code))," replaced: ", Int.toString cnt])
150              else  print ""              else  print ""
151             val _ =print "DONE"
152          in          in
153              code              code
154          end          end

Legend:
Removed from v.3343  
changed lines
  Added in v.3344

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