Diff of /branches/pure-cfg/src/compiler/c-target/runtime-names.sml

Parent Directory | Revision Log | 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 *))

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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