diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-11 22:22:54 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-11 22:22:54 +0000 |
commit | db618c41a27cbc531951f800a5fa5878ef822de0 (patch) | |
tree | b79a2c0ccc92b5652e8b1a35812b902203268c7d /sv.c | |
parent | 54195c32bb1734df4d96f8aca2d65e155aa0b341 (diff) | |
download | perl-db618c41a27cbc531951f800a5fa5878ef822de0.tar.gz |
Long double patches from Dan Sugalski.
p4raw-id: //depot/cfgperl@3961
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1320,7 +1320,7 @@ Perl_sv_2uv(pTHX_ register SV *sv) (void)SvNOK_on(sv); (void)SvIOK_on(sv); #if defined(USE_LONG_DOUBLE) - DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%lx 2nv(%" PERL_PRIg64 ")\n", + DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%lx 2nv(%" PERL_PRIgldbl ")\n", (unsigned long)sv, SvNVX(sv))); #else DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%lx 2nv(%g)\n", @@ -1438,7 +1438,7 @@ Perl_sv_2nv(pTHX_ register SV *sv) #if defined(USE_LONG_DOUBLE) DEBUG_c({ RESTORE_NUMERIC_STANDARD(); - PerlIO_printf(Perl_debug_log, "0x%lx num(%" PERL_PRIg64 ")\n", + PerlIO_printf(Perl_debug_log, "0x%lx num(%" PERL_PRIgldbl ")\n", (unsigned long)sv, SvNVX(sv)); RESTORE_NUMERIC_LOCAL(); }); @@ -1477,7 +1477,7 @@ Perl_sv_2nv(pTHX_ register SV *sv) #if defined(USE_LONG_DOUBLE) DEBUG_c({ RESTORE_NUMERIC_STANDARD(); - PerlIO_printf(Perl_debug_log, "0x%lx 2nv(%" PERL_PRIg64 ")\n", + PerlIO_printf(Perl_debug_log, "0x%lx 2nv(%" PERL_PRIgldbl ")\n", (unsigned long)sv, SvNVX(sv)); RESTORE_NUMERIC_LOCAL(); }); @@ -5129,8 +5129,8 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV *--eptr = c; #ifdef USE_LONG_DOUBLE { - char* p = PRIfldbl + sizeof(PRIfldbl) - 3; - while (p >= PRIfldbl) { *--eptr = *p-- } + char* p = PERL_PRIfldbl + sizeof(PERL_PRIfldbl) - 3; + while (p >= PERL_PRIfldbl) { *--eptr = *p-- } } #endif if (has_precis) { |