diff options
| author | Nicholas Clark <nick@ccl4.org> | 2021-06-15 12:34:22 +0000 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-07-31 15:24:26 -0700 |
| commit | 4c8bd78b274a8ba54f3dd4b06b10a2a57cb9cf4a (patch) | |
| tree | 659ce426777efd1eb1cbababa7aec1c4a277394b /pp_sort.c | |
| parent | 900d3b30296b2e23a5ebe1c5e277b46665a1ce6d (diff) | |
| download | perl-4c8bd78b274a8ba54f3dd4b06b10a2a57cb9cf4a.tar.gz | |
Remove the flags OPpSORT_STABLE and OPpSORT_UNSTABLE.
Remove the code in Perl_ck_sort() that reads from PL_hintgv that sets these,
and the code in pp_sort that reads them and sets SORTf_STABLE and
SORTf_UNSTABLE (which were no longer read. Remove these too.)
Diffstat (limited to 'pp_sort.c')
| -rw-r--r-- | pp_sort.c | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -34,10 +34,6 @@ #define SMALLSORT (200) #endif -/* Flags for sortsv_flags */ -#define SORTf_STABLE 1 -#define SORTf_UNSTABLE 2 - /* * The mergesort implementation is by Peter M. Mcilroy <pmcilroy@lucent.com>. * @@ -711,10 +707,6 @@ PP(pp_sort) if ((priv & OPpSORT_DESCEND) != 0) descending = 1; - if ((priv & OPpSORT_STABLE) != 0) - sort_flags |= SORTf_STABLE; - if ((priv & OPpSORT_UNSTABLE) != 0) - sort_flags |= SORTf_UNSTABLE; if (gimme != G_LIST) { SP = MARK; |