diff options
author | David Mitchell <davem@iabyn.com> | 2017-11-13 11:03:15 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2017-11-13 12:23:19 +0000 |
commit | b5bf9f73a7cc9feabf29609f45df824fed127956 (patch) | |
tree | 6e9804b6f690d30079b95a969d4449d13f2fc7de /pp_hot.c | |
parent | bc60657c80df1e21e2a12017077425d3b6db6cfe (diff) | |
download | perl-b5bf9f73a7cc9feabf29609f45df824fed127956.tar.gz |
rename op_aux field from 'size' to 'ssize'
This part of the op_aux union was added for OP_MULTICONCAT; its actually
of type SSize_t, so rename it to ssize to better reflect that it's signed.
This should make no functional difference.
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 24 |
1 files changed, 12 insertions, 12 deletions
@@ -523,8 +523,8 @@ PP(pp_multiconcat) if ( svpv_end == svpv_buf + 1 /* no const string segments */ - && aux[PERL_MULTICONCAT_IX_LENGTHS].size == -1 - && aux[PERL_MULTICONCAT_IX_LENGTHS + 1].size == -1 + && aux[PERL_MULTICONCAT_IX_LENGTHS].ssize == -1 + && aux[PERL_MULTICONCAT_IX_LENGTHS + 1].ssize == -1 ) { /* special case: if the overloaded sv is the * second arg in the concat chain, stop at the @@ -588,8 +588,8 @@ PP(pp_multiconcat) && is_append && nargs == 1 /* no const string segments */ - && aux[PERL_MULTICONCAT_IX_LENGTHS].size == -1 - && aux[PERL_MULTICONCAT_IX_LENGTHS+1].size == -1) + && aux[PERL_MULTICONCAT_IX_LENGTHS].ssize == -1 + && aux[PERL_MULTICONCAT_IX_LENGTHS+1].ssize == -1) { /* special-case $tied .= $tied. * @@ -779,7 +779,7 @@ PP(pp_multiconcat) { SSize_t len; len = aux[dst_utf8 ? PERL_MULTICONCAT_IX_UTF8_LEN - : PERL_MULTICONCAT_IX_PLAIN_LEN].size; + : PERL_MULTICONCAT_IX_PLAIN_LEN].ssize; slow_concat = cBOOL(len); grow += len; } @@ -888,7 +888,7 @@ PP(pp_multiconcat) UNOP_AUX_item *lens = const_lens; /* length of first const string segment */ - STRLEN offset = lens->size > 0 ? lens->size : 0; + STRLEN offset = lens->ssize > 0 ? lens->ssize : 0; assert(targ_chain); svpv_p = svpv_base; @@ -902,7 +902,7 @@ PP(pp_multiconcat) if (len < 0) /* variant args have this */ len = -len; offset += (STRLEN)len; - len = (++lens)->size; + len = (++lens)->ssize; offset += (len >= 0) ? (STRLEN)len : 0; if (!offset) { /* all args and consts so far are empty; update @@ -979,7 +979,7 @@ PP(pp_multiconcat) svpv_p = svpv_base - 1; for (;;) { - SSize_t len = (const_lens++)->size; + SSize_t len = (const_lens++)->ssize; /* append next const string segment */ if (len > 0) { @@ -1055,8 +1055,8 @@ PP(pp_multiconcat) * (including constant strings), so would * form part of the first concat */ bool first_concat = ( n == 0 - || (n == 1 && const_lens[-2].size < 0 - && const_lens[-1].size < 0)); + || (n == 1 && const_lens[-2].ssize < 0 + && const_lens[-1].ssize < 0)); int f_assign = first_concat ? 0 : AMGf_assign; left = dsv; @@ -1066,7 +1066,7 @@ PP(pp_multiconcat) for (i = 0; i < 2; i++) { if (i) { /* append next const string segment */ - STRLEN len = (STRLEN)((const_lens++)->size); + STRLEN len = (STRLEN)((const_lens++)->ssize); /* a length of -1 implies no constant string * rather than a zero-length one, e.g. * ($a . $b) versus ($a . "" . $b) @@ -1099,7 +1099,7 @@ PP(pp_multiconcat) * before we broke from the loop earlier */ getmg = TRUE; - if (first_concat && n == 0 && const_lens[-1].size < 0) { + if (first_concat && n == 0 && const_lens[-1].ssize < 0) { /* nothing before the current arg; repeat the * loop to get a second arg */ left = right; |