summaryrefslogtreecommitdiff
path: root/scope.c
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2007-01-01 21:16:13 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-01-04 15:29:02 +0000
commit6c9570dc5de7137a22f5d4e76431529d4f7342b7 (patch)
treece00721c47e0777bbbd4109f6af44ee1eca06fd2 /scope.c
parent17dd9954ac1485d9f7bfd39f371dd627e20503a9 (diff)
downloadperl-6c9570dc5de7137a22f5d4e76431529d4f7342b7.tar.gz
The first three patches from:
Subject: [PATCH] Cleanup SVf arguments (2nd try) Message-ID: <20070101201613.4120d9ef@r2d2> Adds (void*) casts to %-p and %p printf arguments p4raw-id: //depot/perl@29686
Diffstat (limited to 'scope.c')
-rw-r--r--scope.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/scope.c b/scope.c
index d15d2d93c1..31a5ab06cf 100644
--- a/scope.c
+++ b/scope.c
@@ -642,7 +642,8 @@ Perl_leave_scope(pTHX_ I32 base)
sv = *(SV**)ptr;
DEBUG_S(PerlIO_printf(Perl_debug_log,
"restore svref: %p %p:%s -> %p:%s\n",
- ptr, sv, SvPEEK(sv), value, SvPEEK(value)));
+ (void*)ptr, (void*)sv, SvPEEK(sv),
+ (void*)value, SvPEEK(value)));
*(SV**)ptr = value;
SvREFCNT_dec(sv);
PL_localizing = 2;