From 80307576245aabf00285db020bbfbc4c3a891766 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Tue, 27 Jul 2010 19:21:51 -0700 Subject: Switch machine-type lexemes to use suffixes. Remove support for foo(bar) as a cast notation. Closes #129. --- src/boot/llvm/lltrans.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/boot/llvm') diff --git a/src/boot/llvm/lltrans.ml b/src/boot/llvm/lltrans.ml index e191ce01..ee192725 100644 --- a/src/boot/llvm/lltrans.ml +++ b/src/boot/llvm/lltrans.ml @@ -746,12 +746,12 @@ let trans_crate Ast.LIT_nil -> llnil | Ast.LIT_bool value -> Llvm.const_int (Llvm.i1_type llctx) (if value then 1 else 0) - | Ast.LIT_mach (mty, value, _) -> + | Ast.LIT_mach_int (mty, value) -> let llty = trans_mach_ty mty in Llvm.const_of_int64 llty value (mach_is_signed mty) - | Ast.LIT_int (value, _) -> + | Ast.LIT_int value -> Llvm.const_of_int64 (Llvm.i32_type llctx) value true - | Ast.LIT_uint (value, _) -> + | Ast.LIT_uint value -> Llvm.const_of_int64 (Llvm.i32_type llctx) value false | Ast.LIT_char ch -> Llvm.const_int (Llvm.i32_type llctx) ch -- cgit v1.2.3