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 1717, Sat Mar 10 19:44:29 2012 UTC revision 1718, Sat Mar 10 23:03:02 2012 UTC
# Line 11  Line 11 
11    
12      local      local
13        structure Ty = TreeIL.Ty        structure Ty = TreeIL.Ty
14          fun qualifyName name (tgt : TargetUtil.target_desc) = #namespace tgt ^ name
15      in      in
16    
17    (* names of generated types, functions, and globals *)    (* names of generated types, functions, and globals *)
18      val initGlobals = "Diderot_InitGlobals"     (* function for initializing program globals *)      val initGlobals = "InitGlobals"             (* function for initializing program globals *)
19      val registerOpts = "Diderot_RegisterGlobalOpts" (* function for registering command-line options *)      val registerOpts = "Diderot_RegisterGlobalOpts" (* function for registering command-line options *)
20      val shutdown = "Diderot_Shutdown"           (* function that gets called at the end *)      val shutdown = qualifyName "Shutdown"       (* function that gets called at the end *)
21      val initially = "Diderot_Initially"         (* function for creating initial strands *)      val initially = qualifyName "Initially"     (* function for creating initial strands *)
22      fun strandInit strand = strand ^ "_InitState"      fun strandInit strand = strand ^ "_InitState"
23      fun strandTy strand = concat["Strand_", strand, "_t"]      fun strandTy strand = concat["Strand_", strand, "_t"]
24      fun strandDesc strand = concat["Strand_", strand]      fun strandDesc strand = concat["Strand_", strand]
# Line 28  Line 29 
29      val statusTy = "Status_t"      val statusTy = "Status_t"
30      fun loadImage dim = concat["Diderot_LoadImage", Int.toString dim, "D"]      fun loadImage dim = concat["Diderot_LoadImage", Int.toString dim, "D"]
31      val strandDescTy = "Strand_t"      val strandDescTy = "Strand_t"
32      val worldTy = "Diderot_World_t"      val worldTy = qualifyName "World_t"
33      val optionsTy = "Diderot_Options_t"      val optionsTy = "Diderot_Options_t"
34      val allocInitially = "Diderot_AllocInitially"      val allocInitially = "AllocInitially"
35      val inState = "Diderot_InState"      val inState = "Diderot_InState"
36    
37    (* Math utility functions *)    (* Math utility functions *)

Legend:
Removed from v.1717  
changed lines
  Added in v.1718

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