Select Code to Download

void
CxtSpeed()
...
    }
    QueryPerformanceCounter(&end);
    printf("cxt %I64u\n", end.QuadPart-start.QuadPart);

//separate compiland/obj file
#define PERL_NO_GET_CONTEXT
...
__declspec(dllexport) int cxt(pTHX){
    return ((int) my_perl) >> 1;
}

#in makefile.pl hash to WriteMakefile
    FUNCLIST       => ['no_cxt', 'cxt'],
    dynamic_lib => { OTHERLDFLAGS => ' noopt.obj ' ,
    INST_DYNAMIC_DEP => 'noopt.obj'
    },

C:\Documents and Settings\Owner\Desktop\cpan libs\lxs>perl -MLocal::XS
+ -e "Local::
XS::CxtSpeed();"
...
cxt 11096124

C:\Documents and Settings\Owner\Desktop\cpan libs\lxs>