diff options
| author | Jens Hamisch <jens@Strawberry.COM> | 2000-10-17 10:39:36 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-20 19:15:54 +0000 |
| commit | 1048ea30476937814737f4fb47f5b4cb2620fbb6 (patch) | |
| tree | 51ef4ee006daee524693f7c7f6d131fb027458a4 /perl.h | |
| parent | d1ee8ea942531922f62d42196a4beaeb1f71ab86 (diff) | |
| download | perl-1048ea30476937814737f4fb47f5b4cb2620fbb6.tar.gz | |
Don't write double values through long double pointers,
based on a part of
Subject: [ID 20001016.017] [jens: 5.7.0 Solaris 8, 64 Bit, Workshop 6.0 Compiler]
Message-Id: <20001017083936.A11104@Strawberry.COM>
p4raw-id: //depot/perl@7380
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -1075,6 +1075,9 @@ typedef UVTYPE UV; #endif #ifdef USE_LONG_DOUBLE +# if defined(HAS_LONG_DOUBLE) && LONG_DOUBLESIZE == DOUBLESIZE +# define LONG_DOUBLE_EQUALS_DOUBLE +# endif # if !(defined(HAS_LONG_DOUBLE) && (LONG_DOUBLESIZE > DOUBLESIZE)) # undef USE_LONG_DOUBLE /* Ouch! */ # endif @@ -1184,13 +1187,9 @@ typedef NVTYPE NV; /* e.g. libsunmath doesn't have modfl and frexpl as of mid-March 2000 */ # ifdef HAS_MODFL # define Perl_modf(x,y) modfl(x,y) -# else -# define Perl_modf(x,y) ((long double)modf((double)(x),(double*)(y))) # endif # ifdef HAS_FREXPL # define Perl_frexp(x,y) frexpl(x,y) -# else -# define Perl_frexp(x,y) ((long double)frexp((double)(x),y)) # endif # ifdef HAS_ISNANL # define Perl_isnan(x) isnanl(x) |