From 66d313d36514f67fb0d8444137faa9692346508f Mon Sep 17 00:00:00 2001 From: Roy Frostig Date: Mon, 28 Jun 2010 15:27:05 -0700 Subject: Teach the typechecker that uints are integral types. Closes #88. --- src/boot/me/type.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/boot/me/type.ml b/src/boot/me/type.ml index 4e0e6ea9..346c6e39 100644 --- a/src/boot/me/type.ml +++ b/src/boot/me/type.ml @@ -302,7 +302,7 @@ let process_crate (cx:ctxt) (crate:Ast.crate) : unit = let integral (ty:Ast.ty) : bool = match ty with - Ast.TY_int | Ast.TY_mach TY_u8 | Ast.TY_mach TY_u16 + Ast.TY_int | Ast.TY_uint | Ast.TY_mach TY_u8 | Ast.TY_mach TY_u16 | Ast.TY_mach TY_u32 | Ast.TY_mach TY_u64 | Ast.TY_mach TY_i8 | Ast.TY_mach TY_i16 | Ast.TY_mach TY_i32 | Ast.TY_mach TY_i64 -> -- cgit v1.2.3