1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

compile.c: comments for concatstrings optimization [ci skip]

Browse Source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@60759 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2017-11-14 02:40:04 +00:00
parent 77c301073b
commit 9cabbf849e
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compile.c
View File

@ -2614,6 +2614,12 @@ iseq_peephole_optimize(rb_iseq_t *iseq, LINK_ELEMENT *list, const int do_tailcal
if (IS_INSN_ID(iobj, tostring)) { if (IS_INSN_ID(iobj, tostring)) {
LINK_ELEMENT *next = iobj->link.next; LINK_ELEMENT *next = iobj->link.next;
/*
* tostring
* concatstrings 1
* =>
* tostring
*/
if (IS_INSN(next) && IS_INSN_ID(next, concatstrings) && if (IS_INSN(next) && IS_INSN_ID(next, concatstrings) &&
OPERAND_AT(next, 0) == INT2FIX(1)) { OPERAND_AT(next, 0) == INT2FIX(1)) {
REMOVE_ELEM(next); REMOVE_ELEM(next);
@ -2622,6 +2628,12 @@ iseq_peephole_optimize(rb_iseq_t *iseq, LINK_ELEMENT *list, const int do_tailcal
if (IS_INSN_ID(iobj, putstring) || if (IS_INSN_ID(iobj, putstring) ||
(IS_INSN_ID(iobj, putobject) && RB_TYPE_P(OPERAND_AT(iobj, 0), T_STRING))) { (IS_INSN_ID(iobj, putobject) && RB_TYPE_P(OPERAND_AT(iobj, 0), T_STRING))) {
/*
* putstring ""
* concatstrings N
* =>
* concatstrings N-1
*/
if (IS_NEXT_INSN_ID(&iobj->link, concatstrings) && if (IS_NEXT_INSN_ID(&iobj->link, concatstrings) &&
RSTRING_LEN(OPERAND_AT(iobj, 0)) == 0) { RSTRING_LEN(OPERAND_AT(iobj, 0)) == 0) {
INSN *next = (INSN *)iobj->link.next; INSN *next = (INSN *)iobj->link.next;
@ -2633,6 +2645,12 @@ iseq_peephole_optimize(rb_iseq_t *iseq, LINK_ELEMENT *list, const int do_tailcal
} }
if (IS_INSN_ID(iobj, concatstrings)) { if (IS_INSN_ID(iobj, concatstrings)) {
/*
* concatstrings N
* concatstrings M
* =>
* concatstrings N+M-1
*/
LINK_ELEMENT *next = iobj->link.next, *freeze = 0; LINK_ELEMENT *next = iobj->link.next, *freeze = 0;
INSN *jump = 0; INSN *jump = 0;
if (IS_INSN(next) && IS_INSN_ID(next, freezestring)) if (IS_INSN(next) && IS_INSN_ID(next, freezestring))