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 /pp_sort.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 'pp_sort.c')
| -rw-r--r-- | pp_sort.c | 10 |
1 files changed, 0 insertions, 10 deletions
@@ -1514,10 +1514,6 @@ PP(pp_sort) PL_secondgv = gv_fetchpv("b", TRUE, SVt_PV); PL_sortstash = stash; } -#ifdef USE_5005THREADS - sv_lock((SV *)PL_firstgv); - sv_lock((SV *)PL_secondgv); -#endif SAVESPTR(GvSV(PL_firstgv)); SAVESPTR(GvSV(PL_secondgv)); } @@ -1536,10 +1532,8 @@ PP(pp_sort) /* This is mostly copied from pp_entersub */ AV *av = (AV*)PAD_SVl(0); -#ifndef USE_5005THREADS cx->blk_sub.savearray = GvAV(PL_defgv); GvAV(PL_defgv) = (AV*)SvREFCNT_inc(av); -#endif /* USE_5005THREADS */ CX_CURPAD_SAVE(cx->blk_sub); cx->blk_sub.argarray = av; } @@ -1612,11 +1606,7 @@ sortcv_stacked(pTHX_ SV *a, SV *b) I32 result; AV *av; -#ifdef USE_5005THREADS - av = (AV*)PAD_SVl(0); -#else av = GvAV(PL_defgv); -#endif if (AvMAX(av) < 1) { SV** ary = AvALLOC(av); |