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 3447, Fri Nov 20 17:21:39 2015 UTC revision 3448, Fri Nov 20 20:33:38 2015 UTC
# Line 120  Line 120 
120          | _  => (print(String.concat(c));1)          | _  => (print(String.concat(c));1)
121          (*end case*))          (*end case*))
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 _ = testp(([DstTy.toString(DstIL.Var.ty y), "-",DstIL.Var.toString(y),"=",P.printerE(e)]
126                @(List.map (fn e=> (DstIL.Var.toString(e)^",")) einargs)))
127          val code = EtLow.scan(y,e,einargs)          val code = EtLow.scan(y,e,einargs)
128            val n=length(code)
129          in          in
130              code              code
131          end          end

Legend:
Removed from v.3447  
changed lines
  Added in v.3448

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