summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-10-23 21:47:49 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-10-23 21:47:49 +0000
commitb900a5214ea580557fb7c41bb3b529d90bad25a3 (patch)
tree938bd01cc3111259f4c4a073b1647bd546a4603b /mg.c
parent31582a29107eeb803e2d1134e77b201068578e21 (diff)
downloadperl-b900a5214ea580557fb7c41bb3b529d90bad25a3.tar.gz
More printf-fixes (see also #4426).
p4raw-id: //depot/cfgperl@4429
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/mg.c b/mg.c
index b08cee356b..e037282cd4 100644
--- a/mg.c
+++ b/mg.c
@@ -1941,8 +1941,9 @@ int
Perl_magic_mutexfree(pTHX_ SV *sv, MAGIC *mg)
{
dTHR;
- DEBUG_S(PerlIO_printf(Perl_debug_log, "0x%lx: magic_mutexfree 0x%lx\n",
- (unsigned long)thr, (unsigned long)sv);)
+ DEBUG_S(PerlIO_printf(Perl_debug_log,
+ "0x%"UVxf": magic_mutexfree 0x%"UVxf"\n",
+ PTR2UV(thr), PTR2UV(sv));)
if (MgOWNER(mg))
Perl_croak(aTHX_ "panic: magic_mutexfree");
MUTEX_DESTROY(MgMUTEXP(mg));