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 3709, Fri Apr 1 20:06:56 2016 UTC revision 3710, Fri Apr 1 21:41:45 2016 UTC
# Line 11  Line 11 
11  structure EinToScalar : sig  structure EinToScalar : sig
12    
13      val expand :      val expand :
14            AvailRHS.t * int IntRedBlackMap.map * (Ein.param_kind list * Ein.ein_exp * LowIR.var list)            AvailRHS.t * int IntRedBlackMap.map * Ein.param_kind list * Ein.ein_exp * LowIR.var list
15              -> LowIR.var              -> LowIR.var
16    
17    end = struct    end = struct
# Line 30  Line 30 
30            (* end case *))            (* end case *))
31    
32  (* FIXME: we probably do not need the params (depending on how we implement FieldToLow.expand *)  (* FIXME: we probably do not need the params (depending on how we implement FieldToLow.expand *)
33      fun expand (avail, mapp, (params, body, args)) = let      fun expand (avail, mapp, params, body, args) = let
34            fun gen (mapp, body) = let            fun gen (mapp, body) = let
35                (*********sumexpression ********)                (*********sumexpression ********)
36                  fun tb n =  List.tabulate (n, fn e => e)                  fun tb n =  List.tabulate (n, fn e => e)

Legend:
Removed from v.3709  
changed lines
  Added in v.3710

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