diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2002-10-19 14:10:21 +0000 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2002-10-19 14:10:21 +0000 |
| commit | 3db8f154c4c6e098a5a0bdf7932e8f86fbd2c451 (patch) | |
| tree | 304393fdb48236335e35a83047fba6223e13f602 /thrdvar.h | |
| parent | efc41c8ef9279ab1e5f723c2c73a85333a96e0e2 (diff) | |
| download | perl-3db8f154c4c6e098a5a0bdf7932e8f86fbd2c451.tar.gz | |
Happy chainsaw stories; The removal of the 5005 threads
Still imcomplete. Configure will follow
p4raw-id: //depot/perl@18030
Diffstat (limited to 'thrdvar.h')
| -rw-r--r-- | thrdvar.h | 30 |
1 files changed, 0 insertions, 30 deletions
@@ -27,10 +27,6 @@ /* Important ones in the first cache line (if alignment is done right) */ -#ifdef USE_5005THREADS -PERLVAR(interp, PerlInterpreter*) /* thread owner */ -#endif - PERLVAR(Tstack_sp, SV **) /* top of the stack */ #ifdef OP_IN_REGISTER PERLVAR(Topsave, OP *) @@ -246,31 +242,5 @@ PERLVAR(Twatchok, char *) /* Note that the variables below are all explicitly referenced in the code * as thr->whatever and therefore don't need the 'T' prefix. */ -#ifdef USE_5005THREADS - -PERLVAR(oursv, SV *) -PERLVAR(cvcache, HV *) -PERLVAR(self, perl_os_thread) /* Underlying thread object */ -PERLVAR(flags, U32) -PERLVAR(threadsv, AV *) /* Per-thread SVs ($_, $@ etc.) */ -PERLVAR(threadsvp, SV **) /* AvARRAY(threadsv) */ -PERLVAR(specific, AV *) /* Thread-specific user data */ -PERLVAR(errsv, SV *) /* Backing SV for $@ */ -PERLVAR(mutex, perl_mutex) /* For the fields others can change */ -PERLVAR(tid, U32) -PERLVAR(prev, struct perl_thread *) -PERLVAR(next, struct perl_thread *) - /* Circular linked list of threads */ - -#ifdef HAVE_THREAD_INTERN -PERLVAR(i, struct thread_intern) - /* Platform-dependent internals */ -#endif - -PERLVAR(trailing_nul, char) /* For the sake of thrsv and oursv */ -PERLVAR(thr_done, bool) /* True when the thread has finished */ - -#endif /* USE_5005THREADS */ - PERLVAR(Treg_match_utf8, bool) /* was what we matched against utf8 */ |