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 /scope.c | |
| 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 'scope.c')
| -rw-r--r-- | scope.c | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -469,16 +469,8 @@ Perl_save_padsv(pTHX_ PADOFFSET off) SV ** Perl_save_threadsv(pTHX_ PADOFFSET i) { -#ifdef USE_5005THREADS - SV **svp = &THREADSV(i); /* XXX Change to save by offset */ - DEBUG_S(PerlIO_printf(Perl_debug_log, "save_threadsv %"UVuf": %p %p:%s\n", - (UV)i, svp, *svp, SvPEEK(*svp))); - save_svref(svp); - return svp; -#else Perl_croak(aTHX_ "panic: save_threadsv called in non-threaded perl"); return 0; -#endif /* USE_5005THREADS */ } void |