(perl #131570) don't skip the temps stack entry we just allocated

tonycoz · tonycoz · commit 67c3640a5744 · 2017-07-10T09:02:06.000+10:00
diff --git a/pp_hot.c b/pp_hot.c
@@ -1736,7 +1736,7 @@ PP(pp_aassign)
                     if (UNLIKELY(ix >= PL_tmps_max))
                         /* speculatively grow enough to cover other
                          * possible refs */
-                        ix = tmps_grow_p(ix + (lastlelem - lelem));
+                         (void)tmps_grow_p(ix + (lastlelem - lelem));
                     PL_tmps_stack[ix] = ref;
                 }
 

Original file line number	Diff line number	Diff line change
`@@ -1736,7 +1736,7 @@ PP(pp_aassign)`
`1736`	`1736`	`if (UNLIKELY(ix >= PL_tmps_max))`
`1737`	`1737`	`/* speculatively grow enough to cover other`
`1738`	`1738`	`* possible refs */`
`1739`		`- ix = tmps_grow_p(ix + (lastlelem - lelem));`
	`1739`	`+ (void)tmps_grow_p(ix + (lastlelem - lelem));`
`1740`	`1740`	`PL_tmps_stack[ix] = ref;`
`1741`	`1741`	`}`
`1742`	`1742`