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 3685, Wed Feb 24 22:17:45 2016 UTC revision 3686, Fri Feb 26 16:01:37 2016 UTC
# Line 145  Line 145 
145   fun getUse (LowIL.V{useCnt, ...}) =Int.toString(!useCnt)   fun getUse (LowIL.V{useCnt, ...}) =Int.toString(!useCnt)
146      fun expandEinOp(env, y, e, args) = let      fun expandEinOp(env, y, e, args) = let
147          val einargs=Env.renameList(env, args)          val einargs=Env.renameList(env, args)
148  (*  
149  val _ =  ["\n",DstTy.toString(DstIL.Var.ty y)]  val _ =  ["\n",DstTy.toString(DstIL.Var.ty y)]
150    
151          val _ = print(String.concat["\n\n***************************\n",DstTy.toString(DstIL.Var.ty y), "-",DstIL.Var.toString(y),"(",getUse(y),")"])          val _ = print(String.concat["\n\n***************************\n",DstTy.toString(DstIL.Var.ty y), "-",DstIL.Var.toString(y),"(",getUse(y),")"])
152          val _ = print(String.concat["=",P.printerE(e)])          val _ = print(String.concat["=",P.printerE(e)])
153          val _ =print(String.concat(List.map (fn e=> (DstIL.Var.toString(e)^"("^getUse(e)^"),")) einargs))          val _ =print(String.concat(List.map (fn e=> (DstIL.Var.toString(e)^"("^getUse(e)^"),")) einargs))
154  *)  
155          (*val _=checkEin.checkEIN e*)          (*val _=checkEin.checkEIN e*)
156    
157          fun incUse (LowIL.V{useCnt, ...}) = (useCnt := !useCnt + 1)          fun incUse (LowIL.V{useCnt, ...}) = (useCnt := !useCnt + 1)

Legend:
Removed from v.3685  
changed lines
  Added in v.3686

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