p4raw-id: //depot/perl@4076
# endif
#endif
++#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_GET_THX)
++# ifdef USE_THREADS
++# define PERL_GET_THX THR
++# else
++# ifdef MULTIPLICITY
++# define PERL_GET_THX PERL_GET_INTERP
++# else
++# ifdef PERL_OBJECT
++# define PERL_GET_THX ((CPerlObj*)PERL_GET_INTERP)
++# else
++# define PERL_GET_THX ((void*)0)
++# endif
++# endif
++# endif
++#endif
++
/* Some unistd.h's give a prototype for pause() even though
HAS_PAUSE ends up undefined. This causes the #define
below to be rejected by the compmiler. Sigh.