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/step2.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2627, Sat May 17 00:44:22 2014 UTC revision 2628, Wed May 21 04:02:06 2014 UTC
# Line 41  Line 41 
41  fun mkMultipleSca(ids,rator)=S3.mkMultiple(ids,rator,Sca)  fun mkMultipleSca(ids,rator)=S3.mkMultiple(ids,rator,Sca)
42  fun mkInt n= S3.aaV(DstOp.C n,[],"Int",Sca)  fun mkInt n= S3.aaV(DstOp.C n,[],"Int",Sca)
43    
 (*  
44    
45  fun mkInt n=let  
 val a=DstIL.Var.new("Int" ,Sca)  
 val code=DstIL.ASSGN (a,DstIL.LIT(Literal.Int n))  
 in  
 (a,[code])  
 end  
 *)  
46    
47    
48  fun prodIter(origIndex,index,nextfn,args)=(let  fun prodIter(origIndex,index,nextfn,args)=(let

Legend:
Removed from v.2627  
changed lines
  Added in v.2628

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