diff options
author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2007-01-01 21:16:13 +0100 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-04 15:29:02 +0000 |
commit | 6c9570dc5de7137a22f5d4e76431529d4f7342b7 (patch) | |
tree | ce00721c47e0777bbbd4109f6af44ee1eca06fd2 /scope.c | |
parent | 17dd9954ac1485d9f7bfd39f371dd627e20503a9 (diff) | |
download | perl-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.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; |