From 214ab56c02860a9c472f701b601cbf6c9cf5fd69 Mon Sep 17 00:00:00 2001 From: xleroy Date: Wed, 16 Apr 2014 13:42:57 +0000 Subject: Continued: change typeconv t into incrdecr_type t for Epostincr. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2456 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- cfrontend/SimplExpr.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'cfrontend/SimplExpr.v') diff --git a/cfrontend/SimplExpr.v b/cfrontend/SimplExpr.v index 01f304e2..f9aa8dbf 100644 --- a/cfrontend/SimplExpr.v +++ b/cfrontend/SimplExpr.v @@ -139,8 +139,8 @@ Function makeif (a: expr) (s1 s2: statement) : statement := Definition transl_incrdecr (id: incr_or_decr) (a: expr) (ty: type) : expr := match id with - | Incr => Ebinop Oadd a (Econst_int Int.one type_int32s) (typeconv ty) - | Decr => Ebinop Osub a (Econst_int Int.one type_int32s) (typeconv ty) + | Incr => Ebinop Oadd a (Econst_int Int.one type_int32s) (incrdecr_type ty) + | Decr => Ebinop Osub a (Econst_int Int.one type_int32s) (incrdecr_type ty) end. (** Generate a [Sset] or [Sbuiltin] operation as appropriate -- cgit