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 3897, Sun May 22 20:39:23 2016 UTC revision 3900, Mon May 23 15:20:24 2016 UTC
# Line 38  Line 38 
38      structure ToC = TreeToCxx      structure ToC = TreeToCxx
39      structure Env = CodeGenEnv      structure Env = CodeGenEnv
40      structure Inp = Inputs      structure Inp = Inputs
41        structure RN = RuntimeNames
42    
43      type input_desc = GVar.t Inp.input      type input_desc = GVar.t Inp.input
44    
45      val worldPtrTy = CL.T_Ptr(CL.T_Named "world")      val worldPtrTy = RuntimeNames.worldPtrTy
46      val globalPtrTy = CL.T_Ptr(CL.T_Named "globals")      val globalPtrTy = RuntimeNames.globalPtrTy
47    
48    (* translate a TreeIR type to the C types used to represent it in the external API *)    (* translate a TreeIR type to the C types used to represent it in the external API *)
49      val trType = CodeGenUtil.trAPIType      val trType = CodeGenUtil.trAPIType
# Line 78  Line 79 
79            in            in
80              CL.D_Func(              CL.D_Func(
81                ["static"], CL.voidTy, "register_inputs",                ["static"], CL.voidTy, "register_inputs",
82                [CL.PARAM([], globalPtrTy, globalsV), CL.PARAM([], optionsPtrTy, "opts")],                [CL.PARAM([], globalPtrTy, globalsV), CL.PARAM([], RN.optionsPtrTy env, "opts")],
83                CL.mkBlock(List.map registerInput inputs))                CL.mkBlock(List.map registerInput inputs))
84            end            end
85    

Legend:
Removed from v.3897  
changed lines
  Added in v.3900

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