lint fix

diff --git a/Objects/intobject.c b/Objects/intobject.c
index 6b983f16c0b045d88a63c250c6a7785b175af356..4c56bda9891f9ccf92579269e74b62a4b12930d6 100644 (file)
--- a/Objects/intobject.c
+++ b/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 *

diff --git a/Objects/stringobject.c b/Objects/stringobject.c
index 16884d369f0e048115d18a31d486205a4aaac504..ca7bac6dcac7cd2a2b24c2c0ab82cdcde51ef89e 100644 (file)
--- a/Objects/stringobject.c
+++ b/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*/