diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-23 21:47:49 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-23 21:47:49 +0000 |
| commit | b900a5214ea580557fb7c41bb3b529d90bad25a3 (patch) | |
| tree | 938bd01cc3111259f4c4a073b1647bd546a4603b /perl.c | |
| parent | 31582a29107eeb803e2d1134e77b201068578e21 (diff) | |
| download | perl-b900a5214ea580557fb7c41bb3b529d90bad25a3.tar.gz | |
More printf-fixes (see also #4426).
p4raw-id: //depot/cfgperl@4429
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1094,8 +1094,8 @@ S_run_body(pTHX_ va_list args) if (!PL_restartop) { DEBUG_x(dump_all()); DEBUG(PerlIO_printf(Perl_debug_log, "\nEXECUTING...\n\n")); - DEBUG_S(PerlIO_printf(Perl_debug_log, "main thread is 0x%lx\n", - (unsigned long) thr)); + DEBUG_S(PerlIO_printf(Perl_debug_log, "main thread is 0x%"UVxf"\n", + PTR2UV(thr))); if (PL_minus_c) { PerlIO_printf(Perl_error_log, "%s syntax OK\n", PL_origfilename); @@ -1765,7 +1765,7 @@ Perl_moreswitches(pTHX_ char *s) #if defined(LOCAL_PATCH_COUNT) if (LOCAL_PATCH_COUNT > 0) printf("\n(with %d registered patch%s, see perl -V for more detail)", - LOCAL_PATCH_COUNT, (LOCAL_PATCH_COUNT!=1) ? "es" : ""); + (int)LOCAL_PATCH_COUNT, (LOCAL_PATCH_COUNT!=1) ? "es" : ""); #endif printf("\n\nCopyright 1987-1999, Larry Wall\n"); |