diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-03-29 19:57:16 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-03-29 19:57:16 +0200 |
commit | daccc2928e6410c4e8c886ea7d019fd9a071b931 (patch) | |
tree | aa9fdc779723b2cb33154e45f65821ea46f22d4d /cfrontend/Ctyping.v | |
parent | 57d3627c69a812a037d2d4161941ce25d15082d1 (diff) | |
download | compcert-daccc2928e6410c4e8c886ea7d019fd9a071b931.tar.gz compcert-daccc2928e6410c4e8c886ea7d019fd9a071b931.zip |
Omission: forgot to treat pointer values in bool_of_val and sem_notbool.
Diffstat (limited to 'cfrontend/Ctyping.v')
-rw-r--r-- | cfrontend/Ctyping.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/cfrontend/Ctyping.v b/cfrontend/Ctyping.v index bdeeff2a..2582fff8 100644 --- a/cfrontend/Ctyping.v +++ b/cfrontend/Ctyping.v @@ -1376,9 +1376,9 @@ Proof. Qed. Lemma pres_sem_unop: - forall op ty1 ty v1 v, + forall op ty1 ty v1 m v, type_unop op ty1 = OK ty -> - sem_unary_operation op v1 ty1 = Some v -> + sem_unary_operation op v1 ty1 m = Some v -> wt_val v1 ty1 -> wt_val v ty. Proof. @@ -1390,6 +1390,7 @@ Proof. destruct (Float.cmp Ceq f Float.zero); constructor; auto with ty. destruct (Float32.cmp Ceq f Float32.zero); constructor; auto with ty. destruct (Int.eq i Int.zero); constructor; auto with ty. + constructor. constructor. destruct (Int64.eq i Int64.zero); constructor; auto with ty. - (* notint *) unfold sem_notint in SEM; DestructCases; auto with ty. |