//separate compiland/obj file
#define PERL_NO_GET_CONTEXT
#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>

__declspec(dllexport) int no_cxt(){
    dTHX;
    return ((int) my_perl) >> 1;
}
__declspec(dllexport) int cxt(pTHX){
    return ((int) my_perl) >> 1;
}