diff options
| author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2015-10-11 09:56:49 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2015-10-11 09:56:49 +0200 |
| commit | f8bc6863f72948b8041289e200ff1d8b1f63a342 (patch) | |
| tree | b0c0d0713140069f6a5da2cce1296c6e275e9b4d /flocq/Appli/Fappli_IEEE_bits.v | |
| parent | b0c47e12f2bbff0905ad853b90169df16d87f6be (diff) | |
| parent | 0af966a42eb60e9af43f9a450d924758a83946c6 (diff) | |
| download | compcert-f8bc6863f72948b8041289e200ff1d8b1f63a342.tar.gz compcert-f8bc6863f72948b8041289e200ff1d8b1f63a342.zip | |
Merge pull request #55 from silene/master
Upgrade to Flocq 2.5.0.
Diffstat (limited to 'flocq/Appli/Fappli_IEEE_bits.v')
| -rw-r--r-- | flocq/Appli/Fappli_IEEE_bits.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/flocq/Appli/Fappli_IEEE_bits.v b/flocq/Appli/Fappli_IEEE_bits.v index 5a77bf57..87aa1046 100644 --- a/flocq/Appli/Fappli_IEEE_bits.v +++ b/flocq/Appli/Fappli_IEEE_bits.v @@ -617,7 +617,7 @@ apply refl_equal. Qed. Definition default_nan_pl32 : bool * nan_pl 24 := - (false, exist _ (iter_nat 22 _ xO xH) (refl_equal true)). + (false, exist _ (iter_nat xO 22 xH) (refl_equal true)). Definition unop_nan_pl32 (f : binary32) : bool * nan_pl 24 := match f with @@ -660,7 +660,7 @@ apply refl_equal. Qed. Definition default_nan_pl64 : bool * nan_pl 53 := - (false, exist _ (iter_nat 51 _ xO xH) (refl_equal true)). + (false, exist _ (iter_nat xO 51 xH) (refl_equal true)). Definition unop_nan_pl64 (f : binary64) : bool * nan_pl 53 := match f with |