lint fix

Objects/intobject.c

@@ -114,11 +114,12 @@ getintvalue(op)
 
 /* 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 @@ int_mod(x, y)
 	long d, m;
 	if (i_divmod(x, y, &d, &m) < 0)
 		return NULL;
-	newintobject(m);
+	return newintobject(m);
 }
 
 static object *

Objects/stringobject.c

@@ -60,6 +60,13 @@ newstringobject(str)
 	return (object *) op;
 }
 
+void
+stringdealloc(op)
+	object *op;
+{
+	DEL(op);
+}
+
 unsigned int
 getstringsize(op)
 	register object *op;
@@ -305,7 +312,7 @@ typeobject Stringtype = {
 	"string",
 	sizeof(stringobject),
 	sizeof(char),
-	free,		/*tp_dealloc*/
+	stringdealloc,	/*tp_dealloc*/
 	stringprint,	/*tp_print*/
 	0,		/*tp_getattr*/
 	0,		/*tp_setattr*/