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/runtime-names.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-util/runtime-names.sml

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

revision 1814, Sun Apr 8 15:44:36 2012 UTC revision 1815, Tue Apr 10 11:52:06 2012 UTC
# Line 12  Line 12 
12      local      local
13        structure Ty = TreeIL.Ty        structure Ty = TreeIL.Ty
14        fun qualifyName name (tgt : TargetUtil.target_desc) = #namespace tgt ^ name        fun qualifyName name (tgt : TargetUtil.target_desc) = #namespace tgt ^ name
15          fun qualifyName' fixed (tgt : TargetUtil.target_desc, name) =
16                concat[#namespace tgt, fixed, "_", name]
17      in      in
18    
19      (* generated types *)
20        val worldTy = qualifyName "World_t"
21        val globalsTy = qualifyName "Globals_t"
22    
23      (* generate names for input and output variables *)
24        val inputDesc = qualifyName' "InVarDesc"
25        val inputGet = qualifyName' "InVarGet"
26        val inputSet = qualifyName' "InVarSet"
27        val inputSetByName = qualifyName' "InVarSetByName"
28        val outputGet = qualifyName' "OutputGet"
29    
30    (* names of generated types, functions, and globals *)    (* names of generated types, functions, and globals *)
31      val initGlobals = "InitGlobals"             (* function for initializing program globals *)      val initGlobals = "InitGlobals"             (* function for initializing program globals *)
32      val initDefaults = "InitDefaults"           (* function for initializing input defaults *)      val initDefaults = "InitDefaults"           (* function for initializing input defaults *)

Legend:
Removed from v.1814  
changed lines
  Added in v.1815

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