diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-01 22:50:11 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-01 22:50:11 +0000 |
| commit | 4d46a988fb57e00fb9da4a6d7b635516b5f56306 (patch) | |
| tree | a719cbb5e27394a83c3d711001202dea2f89b8f3 /ext | |
| parent | a45d1c963db196562caca890a443b969285f7f76 (diff) | |
| download | perl-4d46a988fb57e00fb9da4a6d7b635516b5f56306.tar.gz | |
Use HUGE_VALL if applicable.
p4raw-id: //depot/cfgperl@6037
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 3a523d1d07..9f1e8555fa 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -1517,6 +1517,15 @@ constant(char *name, int arg) break; case 'H': if (strEQ(name, "HUGE_VAL")) +#ifdef USE_LONG_DOUBLE + /* HUGE_VALL is admittedly non-POSIX but if are using long doubles + * we might as well use long doubles. --jhi */ +# ifdef HUGE_VALL + return HUGE_VALL; +# else + goto not_there; +# endif +#endif #ifdef HUGE_VAL return HUGE_VAL; #else |