S_return_lvalues: microöptimisation

This jumps over an if() condition when we know it’s going to be true.

diff --git a/pp_ctl.c b/pp_ctl.c
index 554e47f..5fd7bf5 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2313,6 +2313,7 @@ S_return_lvalues(pTHX_ SV **mark, SV **sp, SV **newsp, I32 gimme,
                        SvREADONLY(TOPs) ? (TOPs == &PL_sv_undef) ? "undef"
                        : "a readonly value" : "a temporary");
                }
                        SvREADONLY(TOPs) ? (TOPs == &PL_sv_undef) ? "undef"
                        : "a readonly value" : "a temporary");
                }

+               goto copy_sv;

            }
            else {
                /* sub:lvalue{} will take us here. */
            }
            else {
                /* sub:lvalue{} will take us here. */


@@ -2328,6 +2329,7 @@ S_return_lvalues(pTHX_ SV **mark, SV **sp, SV **newsp, I32 gimme,
            }
        }
        if (MARK < SP) {
            }
        }
        if (MARK < SP) {

+             copy_sv:

                if (cx->blk_sub.cv && CvDEPTH(cx->blk_sub.cv) > 1) {
                        *++newsp = SvREFCNT_inc(*SP);
                        FREETMPS;
                if (cx->blk_sub.cv && CvDEPTH(cx->blk_sub.cv) > 1) {
                        *++newsp = SvREFCNT_inc(*SP);
                        FREETMPS;