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

SCM Repository

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

Diff of /branches/vis15/src/compiler/cxx-util/gen-inputs-util.sml

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

revision 4070, Tue Jun 28 02:11:42 2016 UTC revision 4071, Tue Jun 28 13:31:31 2016 UTC
# Line 64  Line 64 
64      fun genInputsStruct (_, []) = []      fun genInputsStruct (_, []) = []
65        | genInputsStruct (env : Env.t, inputs) = let        | genInputsStruct (env : Env.t, inputs) = let
66            fun mkField (Inp.INP{var, ty, ...}) = (case ty            fun mkField (Inp.INP{var, ty, ...}) = (case ty
67                   of Ty.SeqTy(_, NONE) => (CL.charPtr, GVar.qname var)                   of Ty.SeqTy(_, NONE) => (CL.T_Named "std::string", GVar.qname var)
68                    | Ty.ImageTy _ => (CL.charPtr, GVar.qname var)                    | Ty.ImageTy _ => (CL.T_Named "std::string", GVar.qname var)
69                    | ty => (trType(env, ty), GVar.qname var)                    | ty => (trType(env, ty), GVar.qname var)
70                  (* end case *))                  (* end case *))
71            in            in
# Line 126  Line 126 
126            ]            ]
127    
128    (* an l-value expression for accessing a defined-input flag *)    (* an l-value expression for accessing a defined-input flag *)
129      fun defined gv = CL.mkSelect(CL.mkIndirect(CL.mkVar "wrld", "definedInp"), GVar.name gv)      fun defined gv = CL.mkSelect(CL.mkIndirect(CL.mkVar "wrld", "definedInp"), GVar.qname gv)
130    
131    (* generate the typedef for the defined-input flag struct. *)    (* generate the typedef for the defined-input flag struct. *)
132      fun genDefinedInpStruct [] = []      fun genDefinedInpStruct [] = []

Legend:
Removed from v.4070  
changed lines
  Added in v.4071

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