diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-01 07:45:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-01 07:45:06 +0000 |
| commit | 20b634c2cddd73f32cb58e435a5061f5c6e53570 (patch) | |
| tree | e6566daa2c22e5601fe014122612ccfc19caf9cb /ext/threads | |
| parent | 0f5d0394b2f5b3a7ac4dba1b324a4ccfb7799a4b (diff) | |
| download | perl-20b634c2cddd73f32cb58e435a5061f5c6e53570.tar.gz | |
z/OS: More threaded build tweaks from Brian De Pradine--
apparently now it works!
p4raw-id: //depot/perl@19368
Diffstat (limited to 'ext/threads')
| -rwxr-xr-x | ext/threads/threads.xs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs index a12c1a8782..83f9e89dfe 100755 --- a/ext/threads/threads.xs +++ b/ext/threads/threads.xs @@ -350,13 +350,21 @@ ithread * SV_to_ithread(pTHX_ SV *sv) { ithread *thread; +#ifdef OEMVS + void *ptr; +#endif if (SvROK(sv)) { thread = INT2PTR(ithread*, SvIV(SvRV(sv))); } else { +#ifdef OEMVS + PERL_THREAD_GETSPECIFIC(self_key,ptr); + thread = (ithread *) ptr; +#else PERL_THREAD_GETSPECIFIC(self_key,thread); +#endif } return thread; } @@ -515,7 +523,13 @@ SV* Perl_ithread_self (pTHX_ SV *obj, char* Class) { ithread *thread; +#ifdef OEMVS + void *ptr; + PERL_THREAD_GETSPECIFIC(self_key,ptr); + thread = (ithread *) ptr; +#else PERL_THREAD_GETSPECIFIC(self_key,thread); +#endif return ithread_to_SV(aTHX_ obj, thread, Class, TRUE); } |