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 2583, Thu Apr 10 19:50:28 2014 UTC revision 2584, Tue Apr 15 03:22:58 2014 UTC
# Line 261  Line 261 
261            fun expandEinOp (env, y, e, args) = let            fun expandEinOp (env, y, e, args) = let
262              val einargs=Env.renameList(env, args)              val einargs=Env.renameList(env, args)
263              val f=print(String.concat(["\n\n new ein \n", DstIL.Var.toString(y),"=",P.printerE(e)]@(List.map (fn e=> (DstIL.Var.toString(e)^",")) einargs)))              val f=print(String.concat(["\n\n new ein \n", DstIL.Var.toString(y),"=",P.printerE(e)]@(List.map (fn e=> (DstIL.Var.toString(e)^",")) einargs)))
264                val _=print "\n ** pre gen**"
265              val (_,code)=genEin.genfn(y,e,args,einargs)              val (_,code)=genEin.genfn(y,e,args,einargs)
266                val _=print "**\n post gen"
267                 val _=print(Int.toString(length(code)))
268              val DstIL.ASSGN (a1,DstIL.OP(opss1,args1))=List.hd(List.rev(code))              val DstIL.ASSGN (a1,DstIL.OP(opss1,args1))=List.hd(List.rev(code))
269              val c=DstIL.ASSGN (y,DstIL.OP(opss1,args1))              val c=DstIL.ASSGN (y,DstIL.OP(opss1,args1))
270    

Legend:
Removed from v.2583  
changed lines
  Added in v.2584

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