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

SCM Repository

[diderot] Diff of /trunk/src/compiler/c-util/runtime-names.sml
ViewVC logotype

Diff of /trunk/src/compiler/c-util/runtime-names.sml

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

revision 1639, Wed Nov 16 01:48:07 2011 UTC revision 1640, Wed Nov 16 02:19:51 2011 UTC
# Line 33  Line 33 
33      val allocInitially = "Diderot_AllocInitially"      val allocInitially = "Diderot_AllocInitially"
34      val inState = "Diderot_InState"      val inState = "Diderot_InState"
35    
36      (* Math utility functions *)
37        val evecs2x2 = "Diderot_evecs2x2"
38        val evecs3x3 = "Diderot_evecs3x3"
39        val evals2x2 = "Diderot_evals2x2"
40        val evals3x3 = "Diderot_evals3x3"
41    
42    (* functions for defining program inputs *)    (* functions for defining program inputs *)
43      fun input ty = (case ty      fun input ty = (case ty
44             of Ty.StringTy => "Diderot_OptAddString"             of Ty.StringTy => "Diderot_OptAddString"
45              | Ty.BoolTy => "Diderot_OptAddBool"              | Ty.BoolTy => "Diderot_OptAddBool"
46              | Ty.IVecTy 1 => "Diderot_OptAddInt"              | Ty.IntTy => "Diderot_OptAddInt"
47              | Ty.TensorTy[] => "Diderot_OptAddReal"              | Ty.TensorTy[] => "Diderot_OptAddReal"
48              | Ty.TensorTy[2] => "Diderot_OptAddReal2"              | Ty.TensorTy[2] => "Diderot_OptAddReal2"
49              | Ty.TensorTy[3] => "Diderot_OptAddReal3"              | Ty.TensorTy[3] => "Diderot_OptAddReal3"

Legend:
Removed from v.1639  
changed lines
  Added in v.1640

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