Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/tree-il/getTypes.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/tree-il/getTypes.sml

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

revision 2670, Wed Jul 9 21:54:54 2014 UTC revision 2671, Fri Jul 18 18:57:06 2014 UTC
# Line 35  Line 35 
35    
36      fun mkFnC(IL.E_LoadVec(A,fTy, oTy,_, offset))=[ILF.LD(A,fTy,oTy)]      fun mkFnC(IL.E_LoadVec(A,fTy, oTy,_, offset))=[ILF.LD(A,fTy,oTy)]
37        | mkFnC(IL.E_mkVec(A,rTy,oTy,_,_,_))= [ILF.MKVEC(A,rTy,oTy)]        | mkFnC(IL.E_mkVec(A,rTy,oTy,_,_,_))= [ILF.MKVEC(A,rTy,oTy)]
38          | mkFnC(IL.E_mkVec2(A,rTy,oTy,_,Ty.vectorLength pieces,_))=
39                List.map (fn p => ILF.MKVEC(A,p,oTy)) pieces
40        | mkFnC(IL.E_Cons (ty , exps))= [ILF.CONS ty]        | mkFnC(IL.E_Cons (ty , exps))= [ILF.CONS ty]
41        | mkFnC e= []        | mkFnC e= []
42    
# Line 60  Line 62 
62              | IL.E_Apply (_, exps)      => add(default,exps)              | IL.E_Apply (_, exps)      => add(default,exps)
63              | IL.E_Cons (ty , exps)     => add(([ty],mkFnC exp),exps)              | IL.E_Cons (ty , exps)     => add(([ty],mkFnC exp),exps)
64              | IL.E_LoadVec(_,ty,_,exps,_) => add(([vecTy ty],mkFnC exp),[exps])              | IL.E_LoadVec(_,ty,_,exps,_) => add(([vecTy ty],mkFnC exp),[exps])
65              | IL.E_mkVec(_,_,ty,_,_,exps)   => add(([vecTy ty,Ty.unionTy ty],mkFnC exp), exps)              | IL.E_mkVec(_,_,ty,_,_,exps)   => add(([vecTy ty,Ty.unionTy ty],mkFnC exp), [exps])
66                | IL.E_mkVec2(_,_,ty,_,_,exps)   => add(([vecTy ty,Ty.unionTy ty],mkFnC exp), exps)
67              | IL.E_Op(Op, exps)         => add(TypeofOp Op, exps)              | IL.E_Op(Op, exps)         => add(TypeofOp Op, exps)
68              (*end case*))              (*end case*))
69          end          end

Legend:
Removed from v.2670  
changed lines
  Added in v.2671

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