fix what lint found
diff --git a/Python/compile.c b/Python/compile.c
index ccb1de2..c8ce0aa 100644
--- a/Python/compile.c
+++ b/Python/compile.c
@@ -313,7 +313,6 @@
{
unsigned char *code = (unsigned char *) getstringvalue(c->c_code);
int target = c->c_nexti;
- int lastanchor = 0;
int dist;
int prev;
for (;;) {
@@ -324,7 +323,6 @@
code[anchor+1] = dist >> 8;
if (!prev)
break;
- lastanchor = anchor;
anchor -= prev;
}
}
@@ -408,18 +406,16 @@
parsenumber(s)
char *s;
{
- extern long strtol();
- extern unsigned long strtoul();
- extern double strtod();
+ extern long strtol PROTO((const char *, char **, int));
+ extern unsigned long strtoul PROTO((const char *, char **, int));
+ extern double strtod PROTO((const char *, char **));
char *end;
long x;
double xx;
errno = 0;
end = s + strlen(s) - 1;
- if (*end == 'l' || *end == 'L') {
- extern object *long_scan();
+ if (*end == 'l' || *end == 'L')
return long_scan(s, 0);
- }
if (s[0] == '0')
x = (long) strtoul(s, &end, 0);
else
@@ -524,7 +520,6 @@
{
int len;
int i;
- object *v, *w;
if (TYPE(n) != testlist)
REQ(n, exprlist);
/* exprlist: expr (',' expr)* [',']; likewise for testlist */
@@ -669,7 +664,6 @@
com_addbyte(c, BINARY_CALL);
}
else {
- int i;
REQ(n, testlist);
com_list(c, n, 1);
com_addbyte(c, BINARY_CALL);
@@ -914,7 +908,6 @@
}
}
else if (NCH(n) == 2) {
- int t2 = TYPE(CHILD(n, 1));
switch (TYPE(CHILD(n, 0))) {
case NAME: if (strcmp(STR(CHILD(n, 1)), "in") == 0)
return NOT_IN;
@@ -1119,7 +1112,6 @@
node *n;
int assigning;
{
- char *name;
REQ(n, trailer);
switch (TYPE(CHILD(n, 0))) {
case LPAR: /* '(' [exprlist] ')' */
@@ -1381,7 +1373,6 @@
node *n;
{
int i;
- object *v;
REQ(n, global_stmt);
/* 'global' NAME (',' NAME)* */
for (i = 1; i < NCH(n); i += 2) {
@@ -1666,10 +1657,11 @@
}
}
+/* ARGSUSED */
static void
com_continue_stmt(c, n)
struct compiling *c;
- node *n;
+ node *n; /* Not used, but passed for consistency */
{
int i = c->c_nblocks;
if (i-- > 0 && c->c_block[i] == SETUP_LOOP) {
@@ -1707,7 +1699,7 @@
struct compiling *c;
node *n;
{
- int i, nbases;
+ int i;
REQ(n, baselist);
/*
baselist: atom arguments (',' atom arguments)*
@@ -1723,7 +1715,7 @@
struct compiling *c;
node *n;
{
- int i, nbases;
+ int i;
REQ(n, testlist);
/* testlist: test (',' test)* [','] */
for (i = 0; i < NCH(n); i += 2)