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

Parent Directory | Revision Log | 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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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