diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-02-11 22:46:42 +0100 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-02-11 22:46:42 +0100 |
| commit | f2a2cca20b8ae576c603b4f119cb2a7c73515f18 (patch) | |
| tree | 7af4a1a9416bb83adea370f1dc969148bb178199 /kvx | |
| parent | 8675997219a5883ca639429639b2ab0edff16aa2 (diff) | |
| download | compcert-kvx-f2a2cca20b8ae576c603b4f119cb2a7c73515f18.tar.gz compcert-kvx-f2a2cca20b8ae576c603b4f119cb2a7c73515f18.zip | |
remove useless stuff
Diffstat (limited to 'kvx')
| -rw-r--r-- | kvx/Archi.v | 2 | ||||
| -rw-r--r-- | kvx/SelectLong.vp | 4 | ||||
| -rw-r--r-- | kvx/SelectLongproof.v | 18 |
3 files changed, 7 insertions, 17 deletions
diff --git a/kvx/Archi.v b/kvx/Archi.v index 6d59a3d1..b1739421 100644 --- a/kvx/Archi.v +++ b/kvx/Archi.v @@ -16,7 +16,7 @@ (** Architecture-dependent parameters for MPPA KVX. Mostly copied from the Risc-V backend *) Require Import ZArith List. -Require Import Binary Bits. +From Flocq Require Import Binary Bits. Definition ptr64 := true. diff --git a/kvx/SelectLong.vp b/kvx/SelectLong.vp index b3638eca..16517aa5 100644 --- a/kvx/SelectLong.vp +++ b/kvx/SelectLong.vp @@ -433,19 +433,15 @@ Definition cmpl (c: comparison) (e1 e2: expr) := (** ** Floating-point conversions *) Definition longoffloat (e: expr) := - if Archi.splitlong then SplitLong.longoffloat e else Eop Olongoffloat (e:::Enil). Definition longuoffloat (e: expr) := - if Archi.splitlong then SplitLong.longuoffloat e else Eop Olonguoffloat (e:::Enil). Definition floatoflong (e: expr) := - if Archi.splitlong then SplitLong.floatoflong e else Eop Ofloatoflong (e:::Enil). Definition floatoflongu (e: expr) := - if Archi.splitlong then SplitLong.floatoflongu e else Eop Ofloatoflongu (e:::Enil). Definition longofsingle (e: expr) := longoffloat (floatofsingle e). diff --git a/kvx/SelectLongproof.v b/kvx/SelectLongproof.v index c3abdbc7..a88863b4 100644 --- a/kvx/SelectLongproof.v +++ b/kvx/SelectLongproof.v @@ -884,32 +884,28 @@ Qed. Theorem eval_longoffloat: partial_unary_constructor_sound longoffloat Val.longoffloat. Proof. - unfold longoffloat; red; intros. destruct Archi.splitlong eqn:SL. - eapply SplitLongproof.eval_longoffloat; eauto. + unfold longoffloat; red; intros. TrivialExists. simpl. rewrite H0. reflexivity. Qed. Theorem eval_longuoffloat: partial_unary_constructor_sound longuoffloat Val.longuoffloat. Proof. - unfold longuoffloat; red; intros. destruct Archi.splitlong eqn:SL. - eapply SplitLongproof.eval_longuoffloat; eauto. + unfold longuoffloat; red; intros. TrivialExists. simpl. rewrite H0. reflexivity. Qed. Theorem eval_floatoflong: partial_unary_constructor_sound floatoflong Val.floatoflong. Proof. - unfold floatoflong; red; intros. destruct Archi.splitlong eqn:SL. - eapply SplitLongproof.eval_floatoflong; eauto. + unfold floatoflong; red; intros. TrivialExists. simpl. rewrite H0. reflexivity. Qed. Theorem eval_floatoflongu: partial_unary_constructor_sound floatoflongu Val.floatoflongu. Proof. - unfold floatoflongu; red; intros. destruct Archi.splitlong eqn:SL. - eapply SplitLongproof.eval_floatoflongu; eauto. + unfold floatoflongu; red; intros. TrivialExists. simpl. rewrite H0. reflexivity. Qed. @@ -936,16 +932,14 @@ Qed. Theorem eval_singleoflong: partial_unary_constructor_sound singleoflong Val.singleoflong. Proof. - unfold singleoflong; red; intros. (* destruct Archi.splitlong eqn:SL. *) + unfold singleoflong; red; intros. eapply SplitLongproof.eval_singleoflong; eauto. -(* TrivialExists. *) Qed. Theorem eval_singleoflongu: partial_unary_constructor_sound singleoflongu Val.singleoflongu. Proof. - unfold singleoflongu; red; intros. (* destruct Archi.splitlong eqn:SL. *) + unfold singleoflongu; red; intros. eapply SplitLongproof.eval_singleoflongu; eauto. -(* TrivialExists. *) Qed. End CMCONSTR. |