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 /taint.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 'taint.c')
| -rw-r--r-- | taint.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -14,12 +14,12 @@ Perl_taint_proper(pTHX_ const char *f, char *s) dTHR; /* just for taint */ char *ug; -#ifdef IV_IS_QUAD +#if Uid_t_SIGN == -1 DEBUG_u(PerlIO_printf(Perl_debug_log, - "%s %d %" PERL_PRId64 " %" PERL_PRId64 "\n", s, PL_tainted, (IV)PL_uid, (IV)PL_euid)); + "%s %d %"IVdf" %"IVdf"\n", s, PL_tainted, (IV)PL_uid, (IV)PL_euid)); #else DEBUG_u(PerlIO_printf(Perl_debug_log, - "%s %d %lu %lu\n", s, PL_tainted, (unsigned long)PL_uid, (unsigned long)PL_euid)); + "%s %d %"UVuf" %"UVuf"\n", s, PL_tainted, (UV)PL_uid, (UV)PL_euid)); #endif if (PL_tainted) { |