diff options
| author | Andy Lester <andy@petdance.com> | 2006-06-12 03:59:34 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-12 14:12:18 +0000 |
| commit | fe2ae5081bc2e29bed890e921179e594deb788ec (patch) | |
| tree | e94131081f65b241fa47638a3af5e8cdbf13cc33 /pp_sort.c | |
| parent | d1ef75db26a53db337bba97d4d09e1f6e1468cbe (diff) | |
| download | perl-fe2ae5081bc2e29bed890e921179e594deb788ec.tar.gz | |
Static cleanup in pp_sort.c
Message-ID: <20060612135934.GA2202@petdance.com>
p4raw-id: //depot/perl@28385
Diffstat (limited to 'pp_sort.c')
| -rw-r--r-- | pp_sort.c | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -1365,8 +1365,10 @@ S_qsortsv(pTHX_ gptr *list1, size_t nmemb, SVCOMPARE_t cmp, U32 flags) PL_sort_RealCmp = cmp; /* Put comparison routine where cmpindir can find it */ /* sort, with indirection */ - S_qsortsvu(aTHX_ (gptr *)indir, nmemb, - ((flags & SORTf_DESC) != 0 ? cmpindir_desc : cmpindir)); + if (flags & SORTf_DESC) + qsortsvu((gptr *)indir, nmemb, cmpindir_desc); + else + qsortsvu((gptr *)indir, nmemb, cmpindir); pp = indir; q = list1; @@ -1413,11 +1415,11 @@ S_qsortsv(pTHX_ gptr *list1, size_t nmemb, SVCOMPARE_t cmp, U32 flags) const SVCOMPARE_t savecmp = PL_sort_RealCmp; /* Save current comparison routine, if any */ PL_sort_RealCmp = cmp; /* Put comparison routine where cmp_desc can find it */ cmp = cmp_desc; - S_qsortsvu(aTHX_ list1, nmemb, cmp); + qsortsvu(list1, nmemb, cmp); /* restore prevailing comparison routine */ PL_sort_RealCmp = savecmp; } else { - S_qsortsvu(aTHX_ list1, nmemb, cmp); + qsortsvu(list1, nmemb, cmp); } } |