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

Diff of /branches/charisee/src/compiler/mid-to-low/step3.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 100  Line 100 
100          of 0=> 1          of 0=> 1
101          | _ => let          | _ => let
102              val _=print(tS.toStringAll(ty,code))              val _=print(tS.toStringAll(ty,code))
103              in (case opss              in (*(case opss
104                  of DstOp.addVec n=>(foundaddVec(a,n,args);1)                  of DstOp.addVec n=>(foundaddVec(a,n,args);1)
105                  | DstOp.subVec n=>(foundVec n;1)                  | DstOp.subVec n=>(foundVec n;1)
106                  | DstOp.prodVec n=>(foundVec n;1)                  | DstOp.prodVec n=>(foundVec n;1)
107                  | DstOp.prodScaV n=>(foundVec n;1)                  | DstOp.prodScaV n=>(foundVec n;1)
108                  | DstOp.sumVec n=>(foundVec n;1)                  | DstOp.sumVec n=>(foundVec n;1)
109                  |_ => 1)                  |_ => 1)*) 1
110              end              end
111          (* end case *))          (* end case *))
112      in      in
# Line 115  Line 115 
115    
116    
117  fun mkInt n= aaV(DstOp.C n,[],"Int",Sca)  fun mkInt n= aaV(DstOp.C n,[],"Int",Sca)
118    (*
119    fun mkInt n=let
120        val a=DstIL.Var.new("Int" ,Sca)
121        val code=DstIL.ASSGN (a,DstIL.LIT(Literal.Int n))
122        val _ =(case testing
123            of 0=> 1
124            | _ => (print(tS.toStringAll(Sca,code));1)
125            (*end case*))
126        in
127            (a,[code])
128        end
129    
130    *)
131    
132    
133  (*mk Multiple, Add Ids on list1*)  (*mk Multiple, Add Ids on list1*)

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