PERL_SET_CONTEXT(aTHX)
PERL_SET_CONTEXT((aTHX = PL_sharedsv_space))
PERL_SET_CONTEXT((aTHX = caller_perl))
PERL_SET_CONTEXT(interp)
PERL_SET_CONTEXT(aTHX)
PERL_SET_CONTEXT(thread->interp)
PERL_SET_CONTEXT(aTHX)
PERL_SET_THX(t)               PERL_SET_CONTEXT(t)
PERL_SET_CONTEXT
PERL_SET_INTERP(i)
Perl_set_context((void*)t)
cthread_set_data(cthread_self(), t)
(PL_current_context = t)
PERL_SET_THX(t)                PERL_SET_CONTEXT(t)
PERL_SET_CONTEXT(proto_perl);