This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
leave_adjust_stacks() fix some code comments
authorDavid Mitchell <davem@iabyn.com>
Mon, 18 Jan 2016 13:09:35 +0000 (13:09 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 09:19:21 +0000 (09:19 +0000)
One comment was obsolete; the other referred to the wrong pp function

pp_hot.c

index 87bf61c..8f5d82e 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -3405,8 +3405,6 @@ Perl_leave_adjust_stacks(pTHX_ SV **from_sp, SV **to_sp, U8 gimme, int pass)
 
         EXTEND_MORTAL(nargs); /* one big extend for worst-case scenario */
         tmps_basep = PL_tmps_stack + tmps_base;
-        /* whether any SVs have have SvTEMP temporarily turned off,
-         * indicating that they need saving below the cut */
 
         /* process each return arg */
 
@@ -3433,7 +3431,7 @@ Perl_leave_adjust_stacks(pTHX_ SV **from_sp, SV **to_sp, U8 gimme, int pass)
              *  1) there is pp code similar to pp_substr that is
              *     returning a PADTMP instead of a mortal, and probably
              *     needs fixing, or
-             *  2) pp_leavesub is making unwarranted assumptions
+             *  2) pp_leavesublv is making unwarranted assumptions
              *     about always croaking on a PADTMP
              */
             if (SvPADTMP(sv) && SvSMAGICAL(sv)) {