diff options
| author | Tomasz Konojacki <me@xenu.pl> | 2019-10-29 17:33:00 +0100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2019-10-30 15:11:58 +1100 |
| commit | 17d445953201af33b64e278caa974aeae05a2c95 (patch) | |
| tree | d9b1e8ea53d5a10e9991fd8441ea88d80bddaba7 /doop.c | |
| parent | d398c6bff9ffeadd64017079aea6fd0967884bf4 (diff) | |
| download | perl-17d445953201af33b64e278caa974aeae05a2c95.tar.gz | |
remove CONSERVATIVE and LIBERAL
These constants were undocumented and don't do anything useful.
Saving a few kilobytes of memory doesn't justify the complexity
caused by adding a new build flag.
All platforms except 64-bit Windows were using LIBERAL. It's not
clear why win64 was using -DCONSERVATIVE, but removing it doesn't
break anything.
[gh #17232]
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -1005,11 +1005,9 @@ Perl_do_vecset(pTHX_ SV *sv) void Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right) { -#ifdef LIBERAL long *dl; long *ll; long *rl; -#endif char *dc; STRLEN leftlen; STRLEN rightlen; @@ -1115,7 +1113,6 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right) dc = SvPVX(sv); /* sv_usepvn() calls Renew() */ } -#ifdef LIBERAL if (len >= sizeof(long)*4 && !(PTR2nat(dc) % sizeof(long)) && !(PTR2nat(lc) % sizeof(long)) && @@ -1160,7 +1157,7 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right) len = remainder; } -#endif + switch (optype) { case OP_BIT_AND: while (len--) |