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/tree-to-opr.sml
ViewVC logotype

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

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

revision 2837, Wed Nov 19 23:42:17 2014 UTC revision 2838, Tue Nov 25 03:40:24 2014 UTC
# Line 17  Line 17 
17    
18      (*stmt-> sets(TySet, OprSet)*)      (*stmt-> sets(TySet, OprSet)*)
19      fun TypeofOp rator = (case rator      fun TypeofOp rator = (case rator
20          of Op.addVec d               => ([vecTy d],[Fnc.OP rator])          of Op.prodScaV d             => ([vecTy d],[Fnc.CONSV d,Fnc.OP(rator)])
         | Op.subVec d               => ([vecTy d],[Fnc.OP rator])  
         | Op.prodVec d              => ([vecTy d],[Fnc.OP rator])  
         | Op.prodScaV d             => ([vecTy d],[Fnc.CONSV d,Fnc.OP(rator)])  
21          | Op.Floor d                => ([vecTy d],[Fnc.OP rator])          | Op.Floor d                => ([vecTy d],[Fnc.OP rator])
22          | Op.clampVec d             => ([vecTy d],[Fnc.OP rator])          | Op.clampVec d             => ([vecTy d],[Fnc.OP rator])
23          | Op.lerpVec d             => ([vecTy d],[Fnc.OP rator,Fnc.CONSV d,Fnc.OP (Op.prodScaV d)])          | Op.lerpVec d             => ([vecTy d],[Fnc.OP rator,Fnc.CONSV d,Fnc.OP (Op.prodScaV d)])
24          | Op.sumVec (nSize,oSize)   => (([Ty.unionTy nSize],[Fnc.OP rator]))          | Op.sumVec (nSize,oSize)   => (([Ty.unionTy nSize],[Fnc.OP rator]))
25            | Op.Zero(Ty.TensorTy n)      => ([],[Fnc.OP rator])
26          | _ => default          | _ => default
27          (* end case *))          (* end case *))
28      and getKind [x] =SOME(V.kind x)      and getKind [x] =SOME(V.kind x)
# Line 84  Line 82 
82          | _                             => set1          | _                             => set1
83      (*end case*))      (*end case*))
84  val (tys,oprs)=newset  val (tys,oprs)=newset
85  (*val _ =print( Fnc.setToString(tys,oprs,"\nin set"))*)  val _ =print( Fnc.setToString(tys,oprs,"\nin set"))
86    
87          in newset          in newset
88          end          end

Legend:
Removed from v.2837  
changed lines
  Added in v.2838

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