diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-07-19 18:25:09 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-07-19 18:25:09 +0200 |
| commit | 3b79923a6c9fa8c76916df1eecfdecd7ae2124a5 (patch) | |
| tree | 98b27b88ea7195a244eff90eaa5f63028ad518a6 /powerpc/SelectOpproof.v | |
| parent | 9bc337d05eed466e2bfc9b18aa35fac34d3954a9 (diff) | |
| parent | 91381b65f5aa76e5195caae9ef331b3f5f95afaf (diff) | |
| download | compcert-kvx-3b79923a6c9fa8c76916df1eecfdecd7ae2124a5.tar.gz compcert-kvx-3b79923a6c9fa8c76916df1eecfdecd7ae2124a5.zip | |
Merge branch 'master' of https://github.com/AbsInt/CompCert into mppa-work-upstream-merge
Diffstat (limited to 'powerpc/SelectOpproof.v')
| -rw-r--r-- | powerpc/SelectOpproof.v | 28 |
1 files changed, 18 insertions, 10 deletions
diff --git a/powerpc/SelectOpproof.v b/powerpc/SelectOpproof.v index 92852d36..3e34244d 100644 --- a/powerpc/SelectOpproof.v +++ b/powerpc/SelectOpproof.v @@ -13,17 +13,10 @@ (** Correctness of instruction selection for operators *) Require Import Coqlib. -Require Import Maps. +Require Import AST Integers Floats. +Require Import Values Memory Builtins Globalenvs. +Require Import Cminor Op CminorSel. Require Import Compopts. -Require Import AST. -Require Import Integers. -Require Import Floats. -Require Import Values. -Require Import Memory. -Require Import Globalenvs. -Require Import Cminor. -Require Import Op. -Require Import CminorSel. Require Import SelectOp. Require Import OpHelpers. Require Import OpHelpersproof. @@ -1069,6 +1062,7 @@ Proof. - constructor; auto. Qed. +<<<<<<< HEAD (* floating-point division without HELPERS *) Theorem eval_divf_base: forall le a b x y, @@ -1089,4 +1083,18 @@ Proof. intros; unfold divfs_base. TrivialExists. Qed. +======= +(** Platform-specific known builtins *) + +Theorem eval_platform_builtin: + forall bf al a vl v le, + platform_builtin bf al = Some a -> + eval_exprlist ge sp e m le al vl -> + platform_builtin_sem bf vl = Some v -> + exists v', eval_expr ge sp e m le a v' /\ Val.lessdef v v'. +Proof. + intros. discriminate. +Qed. + +>>>>>>> 91381b65f5aa76e5195caae9ef331b3f5f95afaf End CMCONSTR. |