Diff of /trunk/src/compiler/fields/raw-types.sml

Parent Directory | Revision Log | Patch

	revision 202, Tue Aug 3 13:06:03 2010 UTC	revision 239, Fri Aug 6 00:36:04 2010 UTC
#	Line 18	Line 18
18	| RT_Int64 | RT_UInt64	| RT_Int64 | RT_UInt64
19	| RT_Float | RT_Double	| RT_Float | RT_Double
20
21		fun fromString ty = (case ty
22		of "signed char" => RT_Int8
23		| "unsigned char" => RT_UInt8
24		| "short" => RT_Int16
25		| "unsigned short" => RT_UInt16
26		| "int" => RT_Int32
27		| "unsigned int" => RT_UInt32
28		| "long long int" => RT_Int64
29		| "unsigned long long int" => RT_UInt64
30		| "float" => RT_Float
31		| "double" => RT_Double
32		| _ => raise Fail("unknown raw type "^ty)
33		(* end case *))
34
35	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.202   changed lines   Added in v.239

---

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