diff options
| -rw-r--r-- | Objects/intobject.c | 5 | ||||
| -rw-r--r-- | Objects/stringobject.c | 9 |
2 files changed, 11 insertions, 3 deletions
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 @@ 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 16884d3..ca7bac6 100644 --- 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*/ |