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 2623, Thu May 15 20:01:40 2014 UTC revision 2624, Fri May 16 17:53:41 2014 UTC
# Line 135  Line 135 
135          val _ = X.checkEIN(e)          val _ = X.checkEIN(e)
136    
137          val (_,code)=S1.genfn(e,einargs,args)          val (_,code)=S1.genfn(e,einargs,args)
138          val DstIL.ASSGN (a1,DstIL.OP(opss1,args1))=List.hd(List.rev(code))          val DstIL.ASSGN (a1,A)=List.hd(List.rev(code))
139          val c=DstIL.ASSGN (y,DstIL.OP(opss1,args1))          val c=DstIL.ASSGN (y,A)
140    
141          val _ =(case testing          val _ =(case testing
142              of 0 => 1              of 0 => 1
143              | _  => (print(String.concat(["**\n post gen",Int.toString(length(code)), "\n NEW-- ", DstIL.Var.toString y,"===", DstOp.toString opss1,"-"]@(List.map (fn e=> (DstIL.Var.toString(e)^",")) args1)@ ["\n made it post code"]));1)              | _  => 1
144              (*end case*))              (*end case*))
145          in code@[c]          in code@[c]
146          end          end

Legend:
Removed from v.2623  
changed lines
  Added in v.2624

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