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

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

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

revision 3543, Mon Jan 4 21:06:20 2016 UTC revision 3544, Tue Jan 5 00:01:44 2016 UTC
# Line 104  Line 104 
104        | indexTensor(opset,mapp,(lhs,params,args,id,ix,ty))= let        | indexTensor(opset,mapp,(lhs,params,args,id,ix,ty))= let
105          val nU=List.nth(args,id)          val nU=List.nth(args,id)
106          val ixx=(List.map (fn (e1)=> mapIndex(e1,mapp)) ix)          val ixx=(List.map (fn (e1)=> mapIndex(e1,mapp)) ix)
107          val ix'=DstTy.indexTy ixx          val ix'= ixx
108          val argTy=getTensorTy(params,id)          val argTy=getTensorTy(params,id)
109          val opp=DstOp.IndexTensor(id,ix',argTy)          val opp=DstOp.IndexTensor(id,ix',argTy)
110          val name=String.concat["Indx_",iToss ixx,"_"]          val name=String.concat["Indx_",iToss ixx,"_"]
# Line 174  Line 174 
174              | E.ArcTangent      => DstOp.ArcTangent              | E.ArcTangent      => DstOp.ArcTangent
175              | E.Sqrt            => DstOp.Sqrt              | E.Sqrt            => DstOp.Sqrt
176              | E.Exp             => DstOp.Exp              | E.Exp             => DstOp.Exp
             | E.PowReal n       => DstOp.powRat(DstTy.R n)  
177              (*end case*))              (*end case*))
178          in  mkSingle(opp,"_op1_",e) end          in  mkSingle(opp,"_op1_",e) end
179      (*mkMultiple:string*Var list*LowOps.Op *ListIL.Ty -> Var*code list      (*mkMultiple:string*Var list*LowOps.Op *ListIL.Ty -> Var*code list

Legend:
Removed from v.3543  
changed lines
  Added in v.3544

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