From abe2bb5c40260a31ce5ee27b841bcbd647ff8b88 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 9 Apr 2011 16:59:13 +0000 Subject: Merge of branch "unsigned-offsets": - In pointer values "Vptr b ofs", interpret "ofs" as an unsigned int. (Fixes issue with wrong comparison of pointers across 0x8000_0000) - Revised Stacking pass to not use negative SP offsets. - Add pointer validity checks to Cminor ... Mach to support the use of memory injections in Stacking. - Cleaned up Stacklayout modules. - IA32: improved code generation for Mgetparam. - ARM: improved code generation for op-immediate instructions. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1632 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- cfrontend/Csharpminor.v | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) (limited to 'cfrontend/Csharpminor.v') diff --git a/cfrontend/Csharpminor.v b/cfrontend/Csharpminor.v index 2f05678e..d2eb3c1e 100644 --- a/cfrontend/Csharpminor.v +++ b/cfrontend/Csharpminor.v @@ -267,17 +267,7 @@ Definition eval_constant (cst: constant) : option val := Definition eval_unop := Cminor.eval_unop. -Definition eval_binop (op: binary_operation) - (arg1 arg2: val) (m: mem): option val := - match op, arg1, arg2 with - | Cminor.Ocmp c, Vptr b1 n1, Vptr b2 n2 => - if Mem.valid_pointer m b1 (Int.signed n1) - && Mem.valid_pointer m b2 (Int.signed n2) - then Cminor.eval_binop op arg1 arg2 - else None - | _, _, _ => - Cminor.eval_binop op arg1 arg2 - end. +Definition eval_binop := Cminor.eval_binop. (** Allocation of local variables at function entry. Each variable is bound to the reference to a fresh block of the appropriate size. *) -- cgit