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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/c-util/gen-inputs.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-util/gen-inputs.sml

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

revision 2782, Tue Oct 14 17:05:56 2014 UTC revision 2783, Tue Oct 14 19:01:31 2014 UTC
# Line 67  Line 67 
67    (* gather the input globals from the input initialization block *)    (* gather the input globals from the input initialization block *)
68      fun gatherInputs (IL.Block{body, ...}) = let      fun gatherInputs (IL.Block{body, ...}) = let
69            fun inputInfo cvt (x, name, desc, NONE) =            fun inputInfo cvt (x, name, desc, NONE) =
70                  SOME(IL.Var.ty x, name, desc, NONE)                  SOME(IL.Var.ty x, "gv_" ^ name, desc, NONE)
71              | inputInfo cvt (x, name, desc, SOME v) =              | inputInfo cvt (x, name, desc, SOME v) =
72                  SOME(IL.Var.ty x, name, desc, SOME(cvt v))                  SOME(IL.Var.ty x, "gv_" ^ name, desc, SOME(cvt v))
73            fun gather (IL.S_Input inp) = inputInfo (fn e => e) inp            fun gather (IL.S_Input inp) = inputInfo (fn e => e) inp
74              | gather (IL.S_InputNrrd inp) = inputInfo (fn s => TreeIL.E_Lit(Literal.String s)) inp              | gather (IL.S_InputNrrd inp) = inputInfo (fn s => TreeIL.E_Lit(Literal.String s)) inp
75              | gather _ = NONE              | gather _ = NONE

Legend:
Removed from v.2782  
changed lines
  Added in v.2783

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