lint fix
diff --git a/Objects/intobject.c b/Objects/intobject.c
index 6b983f1..4c56bda 100644
--- a/Objects/intobject.c
+++ b/Objects/intobject.c
@@ -114,11 +114,12 @@
/* Methods */
+/* ARGSUSED */
static int
int_print(v, fp, flags)
intobject *v;
FILE *fp;
- int flags;
+ int flags; /* Not used but required by interface */
{
fprintf(fp, "%ld", v->ob_ival);
return 0;
@@ -239,7 +240,7 @@
long d, m;
if (i_divmod(x, y, &d, &m) < 0)
return NULL;
- newintobject(m);
+ return newintobject(m);
}
static object *
diff --git a/Objects/stringobject.c b/Objects/stringobject.c
index 16884d3..ca7bac6 100644
--- a/Objects/stringobject.c
+++ b/Objects/stringobject.c
@@ -60,6 +60,13 @@
return (object *) op;
}
+void
+stringdealloc(op)
+ object *op;
+{
+ DEL(op);
+}
+
unsigned int
getstringsize(op)
register object *op;
@@ -305,7 +312,7 @@
"string",
sizeof(stringobject),
sizeof(char),
- free, /*tp_dealloc*/
+ stringdealloc, /*tp_dealloc*/
stringprint, /*tp_print*/
0, /*tp_getattr*/
0, /*tp_setattr*/