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 2389, Sun Jun 16 18:45:16 2013 UTC revision 2394, Fri Jun 21 02:28:07 2013 UTC
# Line 171  Line 171 
171    
172                  (BV.div_ii,             simpleOp(Op.Div DstTy.IntTy)),                  (BV.div_ii,             simpleOp(Op.Div DstTy.IntTy)),
173                  (BV.div_rr,             simpleOp(Op.Div DstTy.realTy)),                  (BV.div_rr,             simpleOp(Op.Div DstTy.realTy)),
174                  (BV.div_tr,             fn (y, [sv], [x, s]) => let                          (* Changed *)
175                                            val one = IL.Var.new("one", DstTy.realTy)                  (BV.div_tr,             fn (y, [sv], [x, s]) =>
176                                            val s' = IL.Var.new("sInv", DstTy.realTy)                                           assignEin(y, createTenEin(EinOp.divideTensor,sv), [x,s])),
177                                            in [                  (BV.div_fr,             fn (y, _, [f, s]) =>
178                                              IL.ASSGN(one, IL.LIT(Literal.Float(FloatLit.one))),                                            assignEin(y, createFldEin(EinOp.divideField,sv), [x,s])),
179                                              IL.ASSGN(s', IL.OP(Op.Div DstTy.realTy, [one, s])),                           (*UnChanged*)
                                             IL.ASSGN(y, IL.OP(Op.Scale(shapeVarToTensor sv), [s', x]))  
                                           ] end),  
                 (BV.div_fr,             fn (y, _, [f, s]) => let  
                                           val one = IL.Var.new("one", DstTy.realTy)  
                                           val s' = IL.Var.new("sInv", DstTy.realTy)  
                                           in [  
                                             IL.ASSGN(one, IL.LIT(Literal.Float(FloatLit.one))),  
                                             IL.ASSGN(s', IL.OP(Op.Div DstTy.realTy, [one, s])),  
                                             IL.ASSGN(y, IL.OP(Op.ScaleField, [s', f]))  
                                           ] end),  
180                  (BV.exp_ri,             simpleOp(Op.Power)),                  (BV.exp_ri,             simpleOp(Op.Power)),
181                  (BV.exp_rr,             basisFn MathFuns.pow),                  (BV.exp_rr,             basisFn MathFuns.pow),
182    

Legend:
Removed from v.2389  
changed lines
  Added in v.2394

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