diff options
Diffstat (limited to 'arm/Nan.v')
| -rw-r--r-- | arm/Nan.v | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/arm/Nan.v b/arm/Nan.v deleted file mode 100644 index e2bddf63..00000000 --- a/arm/Nan.v +++ /dev/null @@ -1,29 +0,0 @@ -(* *********************************************************************) -(* *) -(* The Compcert verified compiler *) -(* *) -(* Xavier Leroy, INRIA Paris-Rocquencourt *) -(* Jacques-Henri Jourdan, INRIA Paris-Rocquencourt *) -(* *) -(* Copyright Institut National de Recherche en Informatique et en *) -(* Automatique. All rights reserved. This file is distributed *) -(* under the terms of the GNU General Public License as published by *) -(* the Free Software Foundation, either version 2 of the License, or *) -(* (at your option) any later version. This file is also distributed *) -(* under the terms of the INRIA Non-Commercial License Agreement. *) -(* *) -(* *********************************************************************) - -Require Import Fappli_IEEE. -Require Import Fappli_IEEE_bits. -Require Import Floats. -Require Import ZArith. -Require Import Integers. - -Program Definition default_pl : bool * nan_pl 53 := (false, nat_iter 51 xO xH). - -Definition choose_binop_pl (s1: bool) (pl1: nan_pl 53) (s2: bool) (pl2: nan_pl 53) := - (** Choose second NaN if pl2 is sNaN but pl1 is qNan. - In all other cases, choose first NaN *) - (Pos.testbit (proj1_sig pl1) 51 && - negb (Pos.testbit (proj1_sig pl2) 51))%bool. |