diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2015-12-10 18:27:23 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-12-14 06:38:34 -0500 |
| commit | 1f02ab1d906235f4e471be89230a7ddc630298a8 (patch) | |
| tree | 0a3347f2ab09340f8a902c8817dafb3da8c05758 /pp.c | |
| parent | 74c6ce8743ba719b8416ce00933e19104484b949 (diff) | |
| download | perl-1f02ab1d906235f4e471be89230a7ddc630298a8.tar.gz | |
infnan: NaN payload for mixed endian double-doubles
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1373,7 +1373,7 @@ PP(pp_multiply) goto do_iv; SP--; result = nl * nr; -# if defined(__sgi) && defined(USE_LONG_DOUBLE) && LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BIG_ENDIAN && NVSIZE == 16 +# if defined(__sgi) && defined(USE_LONG_DOUBLE) && LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE && NVSIZE == 16 if (Perl_isinf(result)) { Zero((U8*)&result + 8, 8, U8); } @@ -1505,7 +1505,7 @@ PP(pp_multiply) NV result = left * right; (void)POPs; -#if defined(__sgi) && defined(USE_LONG_DOUBLE) && LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BIG_ENDIAN && NVSIZE == 16 +#if defined(__sgi) && defined(USE_LONG_DOUBLE) && LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE && NVSIZE == 16 if (Perl_isinf(result)) { Zero((U8*)&result + 8, 8, U8); } |