From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 29 Jun 2012 20:18:06 +0000 (-0700)
Subject: op.c: Remove unnecessary variable
X-Git-Tag: upstream/5.20.0~6187
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9963ffa20596275dc70831862ce25471cf69f9ed;p=platform%2Fupstream%2Fperl.git

op.c: Remove unnecessary variable

This is left over from when I had the partially-filled slab at the end
of the chain, instead of second (which was never committed).
---

diff --git a/op.c b/op.c
index 2281ddf..e708a99 100644
--- a/op.c
+++ b/op.c
@@ -378,8 +378,6 @@ Perl_Slab_Alloc(pTHX_ size_t sz)
     if ((space = DIFF(&slab2->opslab_slots, slab2->opslab_first)) < sz) {
 	/* Remaining space is too small. */
 
-	OPSLAB *newslab;
-
 	/* If we can fit a BASEOP, add it to the free chain, so as not
 	   to waste it. */
 	if (space >= SIZE_TO_PSIZE(sizeof(OP)) + OPSLOT_HEADER_P) {
@@ -393,9 +391,9 @@ Perl_Slab_Alloc(pTHX_ size_t sz)
 	/* Create a new slab.  Make this one twice as big. */
 	slot = slab2->opslab_first;
 	while (slot->opslot_next) slot = slot->opslot_next;
-	newslab = S_new_slab(aTHX_ DIFF(slab2, slot)*2);
-	newslab->opslab_next = slab->opslab_next;
-	slab->opslab_next = slab2 = newslab;
+	slab2 = S_new_slab(aTHX_ DIFF(slab2, slot)*2);
+	slab2->opslab_next = slab->opslab_next;
+	slab->opslab_next = slab2;
     }
     assert(DIFF(&slab2->opslab_slots, slab2->opslab_first) >= sz);