Select Code to Download

C:\p517\perl\win32>perl -e "for(0..5) {print 'hello world'.\"\n\";};"
hello world
...
PGC count 1133

C:\p517\perl\win32>

/*perllib.c*/
EXTERN_C HANDLE w32_perldll_handle;
...
    fprintf(stderr, "PGC count %u\n", PGC_Count);
    return (exitstatus);
}

/*win32thread.c*/
int PGC_Count = 0;
...
    return NULL;
#endif
}

C:\Documents and Settings\Owner\Desktop\cpan libs\Win32API\g>perl make
+file.pl
...
PGC count 6653

C:\Documents and Settings\Owner\Desktop\cpan libs\Win32API\g>

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

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

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

//separate compiland
#define PERL_NO_GET_CONTEXT
...
    void *my_perl = TlsGetValue(PL_thr_key);
    return ((int) my_perl) >> 1;
}