From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 26 Apr 2006 19:18:09 +0000 (+0000)
Subject: Change type of temporary padoff_du used in dUNDERBAR
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f887a311898cc2bf99ef46debb8cd05eb8490c3;p=p5sagit%2Fp5-mst-13.2.git

Change type of temporary padoff_du used in dUNDERBAR
from I32 to PADOFFSET, which is more correct (and fixes
a warning in Devel::PPPort).

p4raw-id: //depot/perl@27968
---

diff --git a/XSUB.h b/XSUB.h
index 9832b7d..f6b4f9d 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -148,7 +148,7 @@ is a lexical $_ in scope.
 #define XSINTERFACE_FUNC_SET(cv,f)	\
 		CvXSUBANY(cv).any_dxptr = (void (*) (pTHX_ void*))(f)
 
-#define dUNDERBAR I32 padoff_du = find_rundefsvoffset()
+#define dUNDERBAR PADOFFSET padoff_du = find_rundefsvoffset()
 #define UNDERBAR ((padoff_du == NOT_IN_PAD \
 	    || PAD_COMPNAME_FLAGS_isOUR(padoff_du)) \
 	? DEFSV : PAD_SVl(padoff_du))