From: Vincent Pit <perl@profvince.com>
Date: Mon, 6 Jun 2016 08:59:07 +0000 (+0200)
Subject: Remove a couple of unused variable
X-Git-Tag: rt112246^2~4
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=4229b39e5533bbe91f1c56d47401b8602ed62dbc;p=perl%2Fmodules%2FScope-Upper.git

Remove a couple of unused variable
---

diff --git a/Upper.xs b/Upper.xs
index 6ff176d..f1a3e24 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -1089,7 +1089,6 @@ static void su_pop(pTHX_ void *ud);
 
 static void su_ss_push_destructor(pTHX_ void *ud, I32 depth, bool first) {
  su_ud_origin_elem *origin = SU_UD_ORIGIN(ud);
- I32 pad;
 
  assert(first || origin[depth+1].orig_ix == PL_savestack_ix);
  su_ss_push_padding(aTHX_ ud,
@@ -1166,7 +1165,7 @@ static void su_pop(pTHX_ void *ud) {
 
 static void su_init(pTHX_ void *ud, I32 cxix, I32 size) {
 #define su_init(U, C, S) su_init(aTHX_ (U), (C), (S))
- I32 i, depth, base;
+ I32 i, depth;
  su_ud_origin_elem *origin;
  I32 cur_cx_ix;
  I32 cur_scope_ix;