This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Regen headers for #6207.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 7 Jun 2000 01:05:23 +0000 (01:05 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 7 Jun 2000 01:05:23 +0000 (01:05 +0000)
p4raw-id: //depot/cfgperl@6208

embed.h
objXSUB.h

diff --git a/embed.h b/embed.h
index 33ef720..7cc8e63 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define xstat                  S_xstat
 #  endif
 #endif
+#define lock                   Perl_lock
 #if defined(PERL_OBJECT)
 #endif
 #define ck_anoncode            Perl_ck_anoncode
 #define xstat(a)               S_xstat(aTHX_ a)
 #  endif
 #endif
+#define lock(a)                        Perl_lock(aTHX_ a)
 #if defined(PERL_OBJECT)
 #endif
 #define ck_anoncode(a)         Perl_ck_anoncode(aTHX_ a)
 #define xstat                  S_xstat
 #  endif
 #endif
+#define Perl_lock              CPerlObj::Perl_lock
+#define lock                   Perl_lock
 #if defined(PERL_OBJECT)
 #endif
 #define Perl_ck_anoncode       CPerlObj::Perl_ck_anoncode
index 25536e9..23077d4 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
 #  if defined(LEAKTEST)
 #  endif
 #endif
+#undef  Perl_lock
+#define Perl_lock              pPerl->Perl_lock
+#undef  lock
+#define lock                   Perl_lock
 #if defined(PERL_OBJECT)
 #endif