answer lint's complaints
diff --git a/Objects/floatobject.c b/Objects/floatobject.c
index 7af5cd1..dba6681 100644
--- a/Objects/floatobject.c
+++ b/Objects/floatobject.c
@@ -64,6 +64,13 @@
return (object *) op;
}
+void
+float_dealloc(op)
+ object *op;
+{
+ DEL(op);
+}
+
double
getfloatvalue(op)
object *op;
@@ -106,11 +113,12 @@
}
}
+/* ARGSUSED */
static int
float_print(v, fp, flags)
floatobject *v;
FILE *fp;
- int flags;
+ int flags; /* Not used but required by interface */
{
char buf[100];
float_buf_repr(buf, v);
@@ -178,7 +186,7 @@
floatobject *w;
{
double vx, wx;
- double div, mod;
+ double /* div, */ mod;
wx = w->ob_fval;
if (wx == 0.0) {
err_setstr(ZeroDivisionError, "float modulo");
@@ -186,10 +194,10 @@
}
vx = v->ob_fval;
mod = fmod(vx, wx);
- div = (vx - mod) / wx;
+ /* div = (vx - mod) / wx; */
if (wx*mod < 0) {
mod += wx;
- div -= 1.0;
+ /* div -= 1.0; */
}
return newfloatobject(mod);
}
@@ -317,7 +325,7 @@
"float",
sizeof(floatobject),
0,
- free, /*tp_dealloc*/
+ float_dealloc, /*tp_dealloc*/
float_print, /*tp_print*/
0, /*tp_getattr*/
0, /*tp_setattr*/