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 560, Tue Feb 22 22:14:12 2011 UTC revision 561, Wed Feb 23 00:31:32 2011 UTC
# Line 38  Line 38 
38        | addTySuffix (stem, TargetTy.T_Vec n) = addVecSuffix stem n        | addTySuffix (stem, TargetTy.T_Vec n) = addVecSuffix stem n
39        | addTySuffix (stem, ty) = raise Fail(concat["invalid type ", TargetTy.toString ty, " for ", stem])        | addTySuffix (stem, ty) = raise Fail(concat["invalid type ", TargetTy.toString ty, " for ", stem])
40    
41      val vecTy = addVecSuffix "vec"      fun vecTy n = concat["vec", Int.toString n, !gRealSuffix, "_t"]
42      val ivecTy = addIVecSuffix "vec"      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 functions *)
# Line 47  Line 47 
47      fun strandInit strand = strand ^ "_InitState"      fun strandInit strand = strand ^ "_InitState"
48      fun strandTy strand = concat["Strand_", strand, "_t"]      fun strandTy strand = concat["Strand_", strand, "_t"]
49    
50      (* scalar math functions *)
51        fun max ty = addTySuffix ("max", ty)
52        fun min ty = addTySuffix ("min", ty)
53    
54    (* vector math functions *)    (* vector math functions *)
55      val mkVec = addVecSuffix "vec"      val mkVec = addVecSuffix "vec"
56      val scale = addVecSuffix "scale"      val scale = addVecSuffix "scale"

Legend:
Removed from v.560  
changed lines
  Added in v.561

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