p4raw-id: //depot/cfgperl@6208
#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
# 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