diff options
author | David Mitchell <davem@iabyn.com> | 2016-03-30 15:11:26 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-03-30 15:11:26 +0100 |
commit | c349b9a040f3048e07809d40d2a1c12e8873b4ca (patch) | |
tree | a41b0cc2c8230702254c90f3577c07b2e2da177b /pp_hot.c | |
parent | aea0412a260d9d7295c0a5bebb8bb6978dc02ccd (diff) | |
download | perl-c349b9a040f3048e07809d40d2a1c12e8873b4ca.tar.gz |
Improve code comments for some ctx stuff
* in pp_return(), some comments were out of date about how
leave_adjust_stacks() is called ;
* add a comment to all the functions that pp_return() tail-calls to the
effect that they can be tail-called;
* make it clearer when/why OPf_SPECIAL is set on OP_LEAVE;
* CXt_LOOP_PLAIN can be a while loop as well as a plain block.
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -3623,6 +3623,8 @@ Perl_leave_adjust_stacks(pTHX_ SV **from_sp, SV **to_sp, U8 gimme, int pass) } +/* also tail-called by pp_return */ + PP(pp_leavesub) { U8 gimme; |