Help for this page
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>
www.com | www.net | www.org
No recent polls found