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 3646, Tue Feb 2 14:09:56 2016 UTC revision 3648, Tue Feb 2 15:25:34 2016 UTC
# Line 10  Line 10 
10    
11  structure EinToScalar : sig  structure EinToScalar : sig
12    
13      val expand : ?? -> ??      val expand :
14              AvailRHS.t * ?? IntRedBlackMap.map * (Ein.param_kind list * Ein.ein_exp * LowIR.var list)
15                -> ??
16    
17    end = struct    end = struct
18    
# Line 19  Line 21 
21      structure Op = LowOps      structure Op = LowOps
22      structure Var = LowIR.Var      structure Var = LowIR.Var
23      structure E = Ein      structure E = Ein
24      structure H = Helper      structure Mk = MkLowIR
25      structure P = EinPP      structure P = EinPP
26      structure IMap = IntRedBlackMap      structure IMap = IntRedBlackMap
27    
28      fun evalField e =  FieldToLow.evalField e      fun evalField e =  FieldToLow.evalField e
29      fun mapIndex e = H.mapIndex e      fun mapIndex e = Mk.mapIndex e
30      fun intToReal e = H.intToReal e      fun intToReal e = Mk.intToReal e
31      fun indexTensor e = H.indexTensor e      fun indexTensor e = Mk.indexTensor e
32      fun mkSubSca e =  H.mkSubSca e      fun mkSubSca e =  Mk.mkSubSca e
33      fun mkProdSca e = H.mkProdSca e      fun mkProdSca e = Mk.mkProdSca e
34      fun mkDivSca e =  H.mkDivSca e      fun mkDivSca e =  Mk.mkDivSca e
35      fun mkMultiple e = H.mkMultiple e      fun mkMultiple e = Mk.mkMultiple e
36      fun evalG e =  H.evalG e      fun evalG e =  Mk.evalG e
37      fun mkOp1 e =  H.mkOp1 e      fun mkOp1 e =  Mk.mkOp1 e
38      fun insert  (k, v) d =  IMap.insert (d, k, v)      fun insert  (k, v) d =  IMap.insert (d, k, v)
39      fun errField e = raise FaIR ("Invalid Field Here:"^ (P.expToString e))      fun errField e = raise FaIR ("Invalid Field Here:"^ (P.expToString e))
40    
41      (* general expressions*)      fun expand (avail, mapp, (params, body, args)) = let
 fun generalfn (setOrig, dict, (e:Ein.ein as E.EIN{params,body,...}, args:LowIR.var list)) = let  
42          val mapp = ref dict          val mapp = ref dict
43          val info =  (e, args)          val info =  (e, args)
44          fun gen (avaIR, body) =  let          fun gen (avaIR, body) =  let

Legend:
Removed from v.3646  
changed lines
  Added in v.3648

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