diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-09-26 00:40:23 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-02 12:55:29 +0000 |
| commit | dd2155a49b710f23bc6d72169e5b1d71d8b3aa03 (patch) | |
| tree | 7fd660a6b57a1893830c91b566975bbe7e085966 /pp_sort.c | |
| parent | 78c9d76351ef2d0f7047846bbf29e303753d3fda (diff) | |
| download | perl-dd2155a49b710f23bc6d72169e5b1d71d8b3aa03.tar.gz | |
move all pad-related code to its own src file
Message-ID: <20020925234023.A20044@fdgroup.com>
p4raw-id: //depot/perl@17953
Diffstat (limited to 'pp_sort.c')
| -rw-r--r-- | pp_sort.c | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -1470,8 +1470,7 @@ PP(pp_sort) SAVEVPTR(CvROOT(cv)->op_ppaddr); CvROOT(cv)->op_ppaddr = PL_ppaddr[OP_NULL]; - SAVEVPTR(PL_curpad); - PL_curpad = AvARRAY((AV*)AvARRAY(CvPADLIST(cv))[1]); + PAD_SET_CUR(CvPADLIST(cv), 1); } } } @@ -1535,13 +1534,13 @@ PP(pp_sort) if (hasargs && !is_xsub) { /* This is mostly copied from pp_entersub */ - AV *av = (AV*)PL_curpad[0]; + 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->blk_sub.oldcurpad = PL_curpad; + CX_CURPAD_SAVE(cx->blk_sub); cx->blk_sub.argarray = av; } sortsv((myorigmark+1), max, @@ -1614,7 +1613,7 @@ sortcv_stacked(pTHX_ SV *a, SV *b) AV *av; #ifdef USE_5005THREADS - av = (AV*)PL_curpad[0]; + av = (AV*)PAD_SVl(0); #else av = GvAV(PL_defgv); #endif |