diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-16 18:55:35 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-16 18:55:35 +0000 |
commit | 2d4389e49f01a9fd18e4d854b4d31048551328b6 (patch) | |
tree | b9836aabebca08c331ad5fff785cd7e93a51862c /dump.c | |
parent | d31e93ed51afbd7df0a0db125e55929ae1cf7552 (diff) | |
download | perl-2d4389e49f01a9fd18e4d854b4d31048551328b6.tar.gz |
Batch of small 64-bit/long double/large file support tweaks:
- scan for LDBL_DIG
- from DBL_DIG and LDBL_DIG select NV_DIG
- introduce IVSIZE, UVSIZE, NVSIZE
- introduce IV_DIG
- remove stdio64
- AIX uses `oslevel` when others use `uname -r`
- already AIX 4.2 goes 64-bit
- in HP-UX require the 64-bit libc, just the directory isn't enough
- group ids are not NVs
- #undef USE_LONG_DOUBLE if long double is no better than double
- introduce NV_WITHIN_*() and IV_FITS_IN_IV
- mention large file support in perldelta
- introduce quad TOPpin' and POPpin'
- the svcat... buffer was tiny for printing quads in %b
- fix the multiplication test in 64bit.t
- try to make VMS to comply with all this removal and "introducal"
of symbols
p4raw-id: //depot/cfgperl@3995
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -17,10 +17,6 @@ #include "perl.h" #include "regcomp.h" -#ifndef DBL_DIG -#define DBL_DIG 15 /* A guess that works lots of places */ -#endif - void Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...) { @@ -923,7 +919,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo if (type >= SVt_PVNV || type == SVt_NV) { RESTORE_NUMERIC_STANDARD(); #ifdef USE_LONG_DOUBLE - Perl_dump_indent(aTHX_ level, file, " NV = %.*" PERL_PRIgldbl "\n", DBL_DIG, SvNVX(sv)); + Perl_dump_indent(aTHX_ level, file, " NV = %.*" PERL_PRIgldbl "\n", LDBL_DIG, SvNVX(sv)); #else Perl_dump_indent(aTHX_ level, file, " NV = %.*g\n", DBL_DIG, SvNVX(sv)); #endif |