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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/c-target/runtime-names.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/c-target/runtime-names.sml

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

revision 622, Mon Mar 14 19:56:40 2011 UTC revision 623, Tue Mar 15 17:04:53 2011 UTC
# Line 42  Line 42 
42      fun ivecTy n = concat["vec", Int.toString n, !gIntSuffix, "_t"]      fun ivecTy n = concat["vec", Int.toString n, !gIntSuffix, "_t"]
43      fun imageTy n = concat["Diderot_image", Int.toString n, "D_t"]      fun imageTy n = concat["Diderot_image", Int.toString n, "D_t"]
44    
45    (* names of generated functions *)    (* names of generated tyes, functions, and globals *)
46      val initGlobals = "Diderot_InitGlobals"     (* function for initializing program globals *)      val initGlobals = "Diderot_InitGlobals"     (* function for initializing program globals *)
47      val initially = "Diderot_Initially"         (* function for creating initial strands *)      val initially = "Diderot_Initially"         (* function for creating initial strands *)
48      fun strandInit strand = strand ^ "_InitState"      fun strandInit strand = strand ^ "_InitState"
49      fun strandTy strand = concat["Strand_", strand, "_t"]      fun strandTy strand = concat["Strand_", strand, "_t"]
50        fun strandDesc strand = concat["Strand_", strand]
51        val numStrands = "Diderot_NumStrands"
52        val strands = "Diderot_Strands"
53    
54    (* scalar math functions *)    (* scalar math functions *)
55      fun max ty = addTySuffix ("max", ty)      fun max ty = addTySuffix ("max", ty)
# Line 73  Line 76 
76      val toImageSpace = addVecSuffix "Diderot_ToImageSpace"      val toImageSpace = addVecSuffix "Diderot_ToImageSpace"
77      val inside = addVecSuffix "Diderot_Inside"      val inside = addVecSuffix "Diderot_Inside"
78      fun loadImage dim = concat["Diderot_LoadImage", Int.toString dim, "D"]      fun loadImage dim = concat["Diderot_LoadImage", Int.toString dim, "D"]
     val numStrands = "Diderot_NumStrands"  
     val strands = "Diderot_Strands"  
79      val strandDescTy = "Strand_t"      val strandDescTy = "Strand_t"
80        val worldTy = "Diderot_World_t"
81        val allocInitially = "Diderot_AllocInitially"
82        val inState = "Diderot_InState"
83    
84      fun input ty = (case ty      fun input ty = (case ty
85             of TargetTy.T_String => "Diderot_InputString"             of TargetTy.T_String => "Diderot_InputString"

Legend:
Removed from v.622  
changed lines
  Added in v.623

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