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/Cexec.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'cfrontend/Cexec.v') diff --git a/cfrontend/Cexec.v b/cfrontend/Cexec.v index bc85efd8..b41902c9 100644 --- a/cfrontend/Cexec.v +++ b/cfrontend/Cexec.v @@ -863,7 +863,7 @@ Fixpoint step_expr (k: kind) (a: expr) (m: mem): reducts expr := let op := match id with Incr => Oadd | Decr => Osub end in let r' := Ecomma (Eassign (Eloc b ofs ty) - (Ebinop op (Eval v1 ty) (Eval (Vint Int.one) type_int32s) (typeconv ty)) + (Ebinop op (Eval v1 ty) (Eval (Vint Int.one) type_int32s) (incrdecr_type ty)) ty) (Eval v1 ty) ty in topred (Rred r' m t) -- cgit