This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
intrvar.h: document PL_tmps_max
authorDavid Mitchell <davem@iabyn.com>
Sun, 8 Nov 2015 20:08:20 +0000 (20:08 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 09:18:33 +0000 (09:18 +0000)
Its name implies that it's the top allocated element; in fact it's top+1.

intrpvar.h

index e54f53e..4f558a8 100644 (file)
@@ -51,7 +51,7 @@ PERLVAR(I, scopestack_max, I32)
 PERLVAR(I, tmps_stack, SV **)          /* mortals we've made */
 PERLVARI(I, tmps_ix,   SSize_t,        -1)
 PERLVARI(I, tmps_floor,        SSize_t,        -1)
 PERLVAR(I, tmps_stack, SV **)          /* mortals we've made */
 PERLVARI(I, tmps_ix,   SSize_t,        -1)
 PERLVARI(I, tmps_floor,        SSize_t,        -1)
-PERLVAR(I, tmps_max,   SSize_t)
+PERLVAR(I, tmps_max,   SSize_t)        /* first unalloced slot in tmps stack */
 
 PERLVARI(I, sub_generation, U32, 1)    /* incr to invalidate method cache */
 
 
 PERLVARI(I, sub_generation, U32, 1)    /* incr to invalidate method cache */