diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-11 08:30:14 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-11 08:30:14 +0200 |
commit | d5b86a98560c36fbcb3ab8d2698e09147acda512 (patch) | |
tree | f3ab850a1620fa5d3dbbe439998d09de8e0d817d /ia32 | |
parent | ea2d6b70ed06c60dba9ba81cf53883c85fb92068 (diff) | |
parent | 3872ce9f9806d9af334b1fde092145edf664d170 (diff) | |
download | compcert-d5b86a98560c36fbcb3ab8d2698e09147acda512.tar.gz compcert-d5b86a98560c36fbcb3ab8d2698e09147acda512.zip |
Merge branch 'master' into add-file
Diffstat (limited to 'ia32')
-rw-r--r-- | ia32/Archi.v | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ia32/Archi.v b/ia32/Archi.v index 267c0eee..ded460d2 100644 --- a/ia32/Archi.v +++ b/ia32/Archi.v @@ -26,13 +26,13 @@ Notation align_int64 := 4%Z (only parsing). Notation align_float64 := 4%Z (only parsing). Program Definition default_pl_64 : bool * nan_pl 53 := - (true, nat_iter 51 xO xH). + (true, iter_nat 51 _ xO xH). Definition choose_binop_pl_64 (s1: bool) (pl1: nan_pl 53) (s2: bool) (pl2: nan_pl 53) := false. (**r always choose first NaN *) Program Definition default_pl_32 : bool * nan_pl 24 := - (true, nat_iter 22 xO xH). + (true, iter_nat 22 _ xO xH). Definition choose_binop_pl_32 (s1: bool) (pl1: nan_pl 24) (s2: bool) (pl2: nan_pl 24) := false. (**r always choose first NaN *) @@ -43,4 +43,3 @@ Global Opaque big_endian default_pl_64 choose_binop_pl_64 default_pl_32 choose_binop_pl_32 float_of_single_preserves_sNaN. - |