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 1230, Mon May 16 06:08:14 2011 UTC revision 1231, Mon May 16 13:49:17 2011 UTC
# Line 125  Line 125 
125      fun input ty = (case ty      fun input ty = (case ty
126             of Ty.StringTy => "Diderot_InputString"             of Ty.StringTy => "Diderot_InputString"
127              | Ty.TensorTy[] => "Diderot_InputReal"              | Ty.TensorTy[] => "Diderot_InputReal"
128                | Ty.TensorTy[2] => "Diderot_InputVec2"
129              | Ty.TensorTy[3] => "Diderot_InputVec3"              | Ty.TensorTy[3] => "Diderot_InputVec3"
130              | ty => raise Fail("unsupported input type " ^ Ty.toString ty)              | ty => raise Fail("unsupported input type " ^ Ty.toString ty)
131            (* end case *))            (* end case *))

Legend:
Removed from v.1230  
changed lines
  Added in v.1231

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