This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make change #22889 work for threaded builds, Part 2.
authorMarcus Holland-Moritz <mhx-perl@gmx.net>
Wed, 2 Jun 2004 18:03:40 +0000 (18:03 +0000)
committerMarcus Holland-Moritz <mhx-perl@gmx.net>
Wed, 2 Jun 2004 18:03:40 +0000 (18:03 +0000)
p4raw-link: @22889 on //depot/perl: e1f795dc699c88c2d9eb4a46fe629483760393c2

p4raw-id: //depot/perl@22897

XSUB.h

diff --git a/XSUB.h b/XSUB.h
index 77b9441..4306454 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -114,7 +114,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 = Perl_find_rundefsvoffset()
+#define dUNDERBAR I32 padoff_du = find_rundefsvoffset()
 #define UNDERBAR ((padoff_du == NOT_IN_PAD \
            || PAD_COMPNAME_FLAGS(padoff_du) & SVpad_OUR) \
        ? DEFSV : PAD_SVl(padoff_du))