diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-01 09:55:23 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-01 14:11:56 -0400 |
commit | a985cadd390dc83e2be80ce22961ff6da5e6feb5 (patch) | |
tree | e6a1ebad3d9c92411ca37325c382939844d995fc /perlapi.h | |
parent | c0cd65b2410a7d7f64d2d3336de4f12861b430b2 (diff) | |
download | perl-a985cadd390dc83e2be80ce22961ff6da5e6feb5.tar.gz |
Do not use HUGE_VAL/VALL for NV_INF.
Because some platforms (like HP-UX 10.*) have HUGE_VAL as DBL_MAX,
which, while large, is not quite the infinity. So have infinity
own our very own.
Similarly for NV_NAN.
Diffstat (limited to 'perlapi.h')
-rw-r--r-- | perlapi.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -121,6 +121,8 @@ END_EXTERN_C #define PL_hash_seed_set (*Perl_Ghash_seed_set_ptr(NULL)) #undef PL_hints_mutex #define PL_hints_mutex (*Perl_Ghints_mutex_ptr(NULL)) +#undef PL_infinity +#define PL_infinity (*Perl_Ginfinity_ptr(NULL)) #undef PL_keyword_plugin #define PL_keyword_plugin (*Perl_Gkeyword_plugin_ptr(NULL)) #undef PL_malloc_mutex @@ -131,6 +133,8 @@ END_EXTERN_C #define PL_my_ctx_mutex (*Perl_Gmy_ctx_mutex_ptr(NULL)) #undef PL_my_cxt_index #define PL_my_cxt_index (*Perl_Gmy_cxt_index_ptr(NULL)) +#undef PL_nan +#define PL_nan (*Perl_Gnan_ptr(NULL)) #undef PL_op_mutex #define PL_op_mutex (*Perl_Gop_mutex_ptr(NULL)) #undef PL_op_seq |