diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-02 23:05:50 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-02 23:05:50 +0000 |
| commit | 57def98fcb6c98601beaf31e3c48ad681bfdc2a3 (patch) | |
| tree | 1c2ca5d1ae7bb4508bf076e61eda828a50a82f9d /doio.c | |
| parent | ac8eabc1ebb57d426c973b83f7ee5241b2084b4e (diff) | |
| download | perl-57def98fcb6c98601beaf31e3c48ad681bfdc2a3.tar.gz | |
Untangle the IV_IS_QUAD jungle by introduding
macros to be used when doing formatted printing:
IVdf, UVuf, UVxf, UVof. Also introduce Uid_t_SIGN.
p4raw-id: //depot/cfgperl@4288
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 11 |
1 files changed, 2 insertions, 9 deletions
@@ -1013,17 +1013,10 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp) if (SvIOK(sv)) { if (SvGMAGICAL(sv)) mg_get(sv); -#ifdef IV_IS_QUAD if (SvIsUV(sv)) - PerlIO_printf(fp, "%" PERL_PRIu64, (UV)SvUVX(sv)); + PerlIO_printf(fp, "%"UVuf, (UV)SvUVX(sv)); else - PerlIO_printf(fp, "%" PERL_PRId64, (IV)SvIVX(sv)); -#else - if (SvIsUV(sv)) - PerlIO_printf(fp, "%lu", (unsigned long)SvUVX(sv)); - else - PerlIO_printf(fp, "%ld", (long)SvIVX(sv)); -#endif + PerlIO_printf(fp, "%"IVdf, (IV)SvIVX(sv)); return !PerlIO_error(fp); } /* FALL THROUGH */ |