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 1998, Thu Oct 4 12:30:44 2012 UTC revision 1999, Thu Oct 4 12:34:24 2012 UTC
# Line 46  Line 46 
46      fun setImage dim = concat["Diderot_SetImage", Int.toString dim, "D"]      fun setImage dim = concat["Diderot_SetImage", Int.toString dim, "D"]
47      fun loadImage dim = concat["Diderot_LoadImage", Int.toString dim, "D"]      fun loadImage dim = concat["Diderot_LoadImage", Int.toString dim, "D"]
48      fun freeImage dim = concat["Diderot_FreeImage", Int.toString dim, "D"]      fun freeImage dim = concat["Diderot_FreeImage", Int.toString dim, "D"]
49        fun loadDynSeq ty = (case ty
50               of Ty.BoolTy => "Diderot_DynSeqLoadBool"
51                | Ty.IntTy => "Diderot_DynSeqLoadInt"
52                | Ty.TensorTy _ => "Diderot_DynSeqLoadReal"
53                | ty => raise Fail("unsupported sequence type " ^ Ty.toString ty)
54              (* end case *))
55      val strandDescTy = "Strand_t"      val strandDescTy = "Strand_t"
56      val worldTy = qualifyName "World_t"      val worldTy = qualifyName "World_t"
57      val globalTy = qualifyName "Globals_t"      val globalTy = qualifyName "Globals_t"

Legend:
Removed from v.1998  
changed lines
  Added in v.1999

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