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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/translate/translate-basis.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/translate/translate-basis.sml

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

revision 2830, Tue Nov 18 17:48:05 2014 UTC revision 2838, Tue Nov 25 03:40:24 2014 UTC
# Line 285  Line 285 
285                                  [assignEin(y, (mk.modulate dd1),xs)]),                                  [assignEin(y, (mk.modulate dd1),xs)]),
286  (*  (*
287  vectorOp Op.Normalize),*)  vectorOp Op.Normalize),*)
288                  (*only supports vectors *)  
289                  (BV.fn_normalize, fn (y, [Ty.DIM i], [x]) =>let                  (BV.fn_normalize, vectorOp Op.Normalize),
290    
291                        (* fn (y, [Ty.DIM i], [x]) =>let
292                              val (c,sqrtop,dot)= mkNorm ([i],x)                              val (c,sqrtop,dot)= mkNorm ([i],x)
293                              val d = IL.Var.new ("int", DstTy.intTy)                              val d = IL.Var.new ("int", DstTy.intTy)
294                              val e=IL.Var.new("divide" ,DstTy.TensorTy [])                              val e=IL.Var.new("divide" ,DstTy.TensorTy [])
# Line 294  Line 296 
296                              IL.ASSGN (d, IL.LIT(Literal.Int 1)),                              IL.ASSGN (d, IL.LIT(Literal.Int 1)),
297                              assignEin(e,mk.divScalar,[d,c]),                              assignEin(e,mk.divScalar,[d,c]),
298                              assignEin(y,mk.scaleTen [i],[e,x])]                              assignEin(y,mk.scaleTen [i],[e,x])]
299                      end),                      end)*)
300    
301                  (BV.fn_principleEvec,   vectorOp Op.PrincipleEvec),                  (BV.fn_principleEvec,   vectorOp Op.PrincipleEvec),
302                  (BV.fn_trace,           fn (y, [Ty.DIM d], xs) =>                  (BV.fn_trace,           fn (y, [Ty.DIM d], xs) =>

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

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