diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-04-16 13:42:57 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-04-16 13:42:57 +0000 |
| commit | 214ab56c02860a9c472f701b601cbf6c9cf5fd69 (patch) | |
| tree | 73f4aceb0eabd3202c18f64589ec7e8d67b89b5a /cfrontend | |
| parent | 029a8acc9057480021eefc88d435bccf99590985 (diff) | |
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
Diffstat (limited to 'cfrontend')
| -rw-r--r-- | cfrontend/Cexec.v | 2 | ||||
| -rw-r--r-- | cfrontend/SimplExpr.v | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/cfrontend/Cexec.v b/cfrontend/Cexec.v index bc85efd..b41902c 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) diff --git a/cfrontend/SimplExpr.v b/cfrontend/SimplExpr.v index 01f304e..f9aa8db 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 |