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 3784, Wed Apr 27 18:13:26 2016 UTC revision 3801, Tue May 3 13:11:50 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) *)                      | E.Sum(sx, E.Opn(E.Prod, (img as E.Img _) :: (kargs as (E.Krn _ :: _)))) =>
                 (*    | E.Sum(sx, E.Opn(E.Prod, prod as (E.Img _ :: E.Krn _ :: _))) =>  
 raise Fail "FIXME"  
 (*  
112                          FieldToLow.expand {                          FieldToLow.expand {
113                              avail = avail, mapp = mapp,                              avail = avail, mapp = mapp,
114                              sx = sx, prod = prod,                              sx = sx, img = img, krnargs = kargs,
115                              args = lowArgs                              args = lowArgs
116                            }                            }
 *)*)  
   
 | E.Sum(sx, E.Opn(E.Prod, prod as (E.Img _ :: E.Krn _ :: _))) =>  
 FieldToLow.expand {  
 avail = avail, mapp = mapp,  
 sx = sx, prod = prod,  
 args = lowArgs  
 }  
   
   
   
117                      | E.Sum(sumx, e) =>                      | E.Sum(sumx, e) =>
118                          Mk.reduce (avail, Mk.realAdd, sumCheck (mapp, sumx, e))                          Mk.reduce (avail, Mk.realAdd, sumCheck (mapp, sumx, e))
119  (* FIXME: need to add normalize *)  (* FIXME: need to add normalize *)

Legend:
Removed from v.3784  
changed lines
  Added in v.3801

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