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 2028, Thu Oct 11 12:02:58 2012 UTC revision 2029, Thu Oct 11 12:03:24 2012 UTC
# Line 52  Line 52 
52              | Ty.TensorTy _ => "Diderot_DynSeqLoadReal"              | Ty.TensorTy _ => "Diderot_DynSeqLoadReal"
53              | ty => raise Fail("unsupported sequence type " ^ Ty.toString ty)              | ty => raise Fail("unsupported sequence type " ^ Ty.toString ty)
54            (* end case *))            (* end case *))
55        fun loadDynSeqFromFile ty = (case ty
56               of Ty.BoolTy => "Diderot_DynSeqLoadBoolFromFile"
57                | Ty.IntTy => "Diderot_DynSeqLoadIntFromFile"
58                | Ty.TensorTy _ => "Diderot_DynSeqLoadRealFromFile"
59                | ty => raise Fail("unsupported sequence type " ^ Ty.toString ty)
60              (* end case *))
61      val strandDescTy = "Strand_t"      val strandDescTy = "Strand_t"
62      val worldTy = qualifyName "World_t"      val worldTy = qualifyName "World_t"
63      val globalTy = qualifyName "Globals_t"      val globalTy = qualifyName "Globals_t"

Legend:
Removed from v.2028  
changed lines
  Added in v.2029

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