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 2631, Fri May 23 18:13:12 2014 UTC revision 2632, Fri May 23 18:57:58 2014 UTC
# Line 102  Line 102 
102        | IL.E_Op(Op, exp) => [TypeofOp  Op]@ (flat(List.map typeOfExp exp))        | IL.E_Op(Op, exp) => [TypeofOp  Op]@ (flat(List.map typeOfExp exp))
103        | IL.E_Apply (_, exp)=> flat(List.map typeOfExp exp)        | IL.E_Apply (_, exp)=> flat(List.map typeOfExp exp)
104        | IL.E_Cons (ty , exp)=> [ty]@(flat(List.map typeOfExp exp))        | IL.E_Cons (ty , exp)=> [ty]@(flat(List.map typeOfExp exp))
105        | IL.E_LoadVec(fullTy, _,_,exp)=>[vecTy fullTy]@(typeOfExp exp)        | IL.E_LoadVec(fullTy, _, exp, _)=>[vecTy fullTy]@(typeOfExp exp)
106        | IL.E_mkVec(_,ty,_,exp)=>  [vecTy ty]@(flat(List.map typeOfExp exp))        | IL.E_mkVec(_,ty,_,exp)=>  [vecTy ty]@(flat(List.map typeOfExp exp))
107          (*end case*))          (*end case*))
108    

Legend:
Removed from v.2631  
changed lines
  Added in v.2632

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