diff options
| author | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2019-02-13 18:53:17 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2019-03-27 11:38:25 +0100 |
| commit | 0f919eb26c68d3882e612a1b3a9df45bee6d3624 (patch) | |
| tree | b8bcf57e06d761be09b8d2cf2f80741acb1e4949 /powerpc/Archi.v | |
| parent | d5c0b4054c8490bda3b3d191724c58d5d4002e58 (diff) | |
| download | compcert-kvx-0f919eb26c68d3882e612a1b3a9df45bee6d3624.tar.gz compcert-kvx-0f919eb26c68d3882e612a1b3a9df45bee6d3624.zip | |
Upgrade embedded version of Flocq to 3.1.
Main changes to CompCert outside of Flocq are as follows:
- Minimal supported version of Coq is now 8.7, due to Flocq requirements.
- Most modifications are due to Z2R being dropped in favor of IZR and to
the way Flocq now handles NaNs.
- CompCert now correctly handles NaNs for the Risc-V architecture
(hopefully).
Diffstat (limited to 'powerpc/Archi.v')
| -rw-r--r-- | powerpc/Archi.v | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/powerpc/Archi.v b/powerpc/Archi.v index 5d11aad1..d792e4fe 100644 --- a/powerpc/Archi.v +++ b/powerpc/Archi.v @@ -17,8 +17,8 @@ (** Architecture-dependent parameters for PowerPC *) Require Import ZArith. -Require Import Fappli_IEEE. -Require Import Fappli_IEEE_bits. +(*From Flocq*) +Require Import Binary Bits. Definition ptr64 := false. @@ -37,21 +37,24 @@ Proof. reflexivity. Qed. -Program Definition default_pl_64 : bool * nan_pl 53 := - (false, iter_nat 51 _ xO xH). +Definition default_nan_64 : { x : binary64 | is_nan _ _ x = true } := + exist _ (B754_nan 53 1024 false (iter_nat 51 _ xO xH) (eq_refl true)) (eq_refl true). -Definition choose_binop_pl_64 (s1: bool) (pl1: nan_pl 53) (s2: bool) (pl2: nan_pl 53) := +Definition choose_binop_pl_64 (pl1 pl2 : positive) := false. (**r always choose first NaN *) -Program Definition default_pl_32 : bool * nan_pl 24 := - (false, iter_nat 22 _ xO xH). +Definition default_nan_32 : { x : binary32 | is_nan _ _ x = true } := + exist _ (B754_nan 24 128 false (iter_nat 22 _ xO xH) (eq_refl true)) (eq_refl true). -Definition choose_binop_pl_32 (s1: bool) (pl1: nan_pl 24) (s2: bool) (pl2: nan_pl 24) := +Definition choose_binop_pl_32 (pl1 pl2 : positive) := false. (**r always choose first NaN *) +Definition fpu_returns_default_qNaN := false. + Definition float_of_single_preserves_sNaN := true. Global Opaque ptr64 big_endian splitlong - default_pl_64 choose_binop_pl_64 - default_pl_32 choose_binop_pl_32 - float_of_single_preserves_sNaN.
\ No newline at end of file + default_nan_64 choose_binop_pl_64 + default_nan_32 choose_binop_pl_32 + fpu_returns_default_qNaN + float_of_single_preserves_sNaN. |