diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-09-20 17:13:20 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-09-20 17:13:20 +0000 |
| commit | 64a7a97c20dd04240e4f413ed151ebe43591df37 (patch) | |
| tree | 739d142f04c4a38d9793e6424329322c7e462ea8 /ext/Time/HiRes/HiRes.xs | |
| parent | bc8c94cb1e936701f1bcc05c67b0d0624b30c0b0 (diff) | |
| download | perl-64a7a97c20dd04240e4f413ed151ebe43591df37.tar.gz | |
Upgrade to Time::HiRes 1.65.
p4raw-id: //depot/perl@23329
Diffstat (limited to 'ext/Time/HiRes/HiRes.xs')
| -rw-r--r-- | ext/Time/HiRes/HiRes.xs | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs index 2fb9d23230..76352e2acd 100644 --- a/ext/Time/HiRes/HiRes.xs +++ b/ext/Time/HiRes/HiRes.xs @@ -24,18 +24,6 @@ extern "C" { } #endif -#ifdef START_MY_CXT -# ifndef MY_CXT_CLONE -# define MY_CXT_CLONE \ - dMY_CXT_SV; \ - my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\ - Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1, my_cxt_t); \ - sv_setuv(my_cxt_sv, PTR2UV(my_cxtp)) -# endif -#else -# define MY_CXT_CLONE NOOP -#endif - #ifndef PerlProc_pause # define PerlProc_pause() Pause() #endif @@ -43,7 +31,7 @@ extern "C" { #ifdef HAS_PAUSE # define Pause pause #else -# define Pause() sleep(~0) +# define Pause() sleep(~0) /* Zzz for a long time. */ #endif /* Though the cpp define ITIMER_VIRTUAL is available the functionality |