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 2400, Sun Jul 7 13:29:54 2013 UTC revision 2401, Sun Jul 7 19:43:45 2013 UTC
# Line 124  Line 124 
124                  (BV.add_tt,             tensorEinOp(EinOp.addTensors)),                  (BV.add_tt,             tensorEinOp(EinOp.addTensors)),
125    
126   (*SrcOp.Field d*)   (*SrcOp.Field d*)
127                  (BV.add_ff,             fn (y, _, [f, g])                  (BV.add_ff,             fn (y, [_, dv, sv], [f, g])
128                                              =>assignEin(y, createFldEin(EinOp.addField,f ), [f, g])),                                              =>assignEin(y, createFldEin(EinOp.addField,f ), [f, g])),
129                  (BV.add_fr,             fn (y, _, [f, s])                  (BV.add_fr,             fn (y, _, [f, s])
130                                              => assignEin(y, createFldEin(EinOp.addTenField,f ), [f, s])),                                              => assignEin(y, createFldEin(EinOp.addTenField,f ), [f, s])),
# Line 151  Line 151 
151                                              IL.ASSGN(y, IL.OP(Op.OffsetField, [f', s]))                                              IL.ASSGN(y, IL.OP(Op.OffsetField, [f', s]))
152                                            ] end),                                            ] end),
153    
154                  (BV.mul_ii,              simpleOp(Op.IMul DstTy.IntTy)),                  (BV.mul_ii,             simpleOp Op.IMul),
155                  (BV.mul_rr,              simpleOp(Op.IMul DstTy.IntTy)),                  (BV.mul_rr,              simpleOp(Op.IMul DstTy.IntTy)),
156                  (BV.mul_rt,             tensorEinOp(EinOp.scaleTensor)),                  (BV.mul_rt,             tensorEinOp(EinOp.scaleTensor)),
157                  (BV.mul_tr,             fn (y, sv, [t, r])                  (BV.mul_tr,             fn (y, [sv], [t, r]) =>
158                                              =>assignEin(y,createTenEin(EinOp.scaleTensor, sv), [r,t])),                                              assignEin(y, createTenEin(EinOp.scaleTensor, sv), [r, t])),
159                  (BV.mul_rf,             fn (y, _, [s, f])                  (BV.mul_rf,             fn (y, _, [s, f]) =>
160                                              => assignEin(y, createFldEin(EinOp.scaleField,f), [s, f])),                                              assignEin(y, createFldEin(EinOp.scaleField, f), [s, f])),
161                  (BV.mul_fr,             fn (y, _, [f, s])                  (BV.mul_fr,             fn (y, _, [f, s]) =>
162                                              => assignEin(y, createFldEin(EinOp.scaleField,f), [s, f])),                                              assignEin(y, createFldEin(EinOp.scaleField, f), [s, f])),
163    
164                  (BV.div_ii,             simpleOp(Op.IDiv DstTy.IntTy)),                  (BV.div_ii,             simpleOp(Op.IDiv DstTy.IntTy)),
165                  (BV.div_rr,             simpleOp(Op.IDiv DstTy.realTy)),                  (BV.div_rr,             simpleOp(Op.IDiv DstTy.realTy)),

Legend:
Removed from v.2400  
changed lines
  Added in v.2401

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