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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/mid-to-low/ein-to-scalar.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/mid-to-low/ein-to-scalar.sml

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

revision 3746, Tue Apr 12 11:49:43 2016 UTC revision 3778, Wed Apr 27 13:29:39 2016 UTC
# Line 108  Line 108 
108                      | E.Op2(E.Div, e1 as E.Tensor (_, [_]), e2 as E.Tensor (_, [])) =>                      | E.Op2(E.Div, e1 as E.Tensor (_, [_]), e2 as E.Tensor (_, [])) =>
109                          gen (mapp, E.Opn(E.Prod, [E.Op2 (E.Div, E.Const 1, e2), e1]))                          gen (mapp, E.Opn(E.Prod, [E.Op2 (E.Div, E.Const 1, e2), e1]))
110                      | E.Op2(E.Div, e1, e2) => Mk.realDiv (avail, gen (mapp, e1), gen (mapp, e2))                      | E.Op2(E.Div, e1, e2) => Mk.realDiv (avail, gen (mapp, e1), gen (mapp, e2))
111    (* FIXME: images have been lifted out of Ein expressions at this point (i.e., LoadVoxels) *)
112                      | E.Sum(sx, E.Opn(E.Prod, prod as (E.Img _ :: E.Krn _ :: _))) =>                      | E.Sum(sx, E.Opn(E.Prod, prod as (E.Img _ :: E.Krn _ :: _))) =>
113    raise Fail "FIXME"
114    (*
115                          FieldToLow.expand {                          FieldToLow.expand {
116                              avail = avail, mapp = mapp,                              avail = avail, mapp = mapp,
117                              sx = sx, prod = prod,                              sx = sx, prod = prod,
118                              args = lowArgs                              args = lowArgs
119                            }                            }
120    *)
121                      | E.Sum(sumx, e) =>                      | E.Sum(sumx, e) =>
122                          Mk.reduce (avail, Mk.realAdd, sumCheck (mapp, sumx, e))                          Mk.reduce (avail, Mk.realAdd, sumCheck (mapp, sumx, e))
123  (* FIXME: need to add to normalize *)  (* FIXME: need to add normalize *)
124                      | E.Probe(E.Epsilon e1, e2) => gen(mapp,E.Epsilon e1)                      | E.Probe(E.Epsilon e1, e2) => gen(mapp,E.Epsilon e1)
125                      | E.Probe(E.Eps2 e1, e2) => gen(mapp,E.Eps2 e1)                      | E.Probe(E.Eps2 e1, e2) => gen(mapp,E.Eps2 e1)
126                      | E.Probe(E.Const e1, e2) => gen(mapp, E.Const e1)                      | E.Probe(E.Const e1, e2) => gen(mapp, E.Const e1)

Legend:
Removed from v.3746  
changed lines
  Added in v.3778

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