In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/7301378635b35757b228e07c14276afaf06a4728?hp=cb198164564566deec7e26370654b1378a1a5f1d>
- Log -----------------------------------------------------------------
commit 7301378635b35757b228e07c14276afaf06a4728
Author: Jarkko Hietaniemi <j...@iki.fi>
Date: Sun Aug 14 10:16:55 2016 -0400
Follow-up on a149d118.
The added tests were meant only for x86-80-bit long doubles,
but were accidentally run also on 128-bit doubles (quadmath,
or probably also on true IEEE 754 quadruples).
-----------------------------------------------------------------------
Summary of changes:
t/op/hexfp.t | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/t/op/hexfp.t b/t/op/hexfp.t
index d6c0482..c4c08cc 100644
--- a/t/op/hexfp.t
+++ b/t/op/hexfp.t
@@ -245,8 +245,11 @@ SKIP:
# [perl #128919] limited exponent range in hex fp literal with long double
SKIP: {
- skip("nv_preserves_uv_bits is $Config{nv_preserves_uv_bits} not 64", 4)
- unless ($Config{nv_preserves_uv_bits} == 64);
+ skip("non-80-bit-long-double", 4)
+ unless ($Config{uselongdouble} &&
+ ($Config{nvsize} == 16 || $Config{nvsize} == 12) &&
+ ($Config{longdblkind} == 3 ||
+ $Config{longdblkind} == 4));
is(0x1p-1074, 4.94065645841246544e-324);
is(0x1p-1075, 2.47032822920623272e-324, '[perl #128919]');
is(0x1p-1076, 1.23516411460311636e-324);
--
Perl5 Master Repository
