return newfloatobject((double)x);
}
else if (is_longobject(v)) {
- extern double dgetlongvalue();
return newfloatobject(dgetlongvalue(v));
}
else if (is_floatobject(v)) {
else if (is_longobject(v)) {
long x;
x = getlongvalue(v);
- if (x == -1 && err_occurred())
+ if (err_occurred())
return NULL;
return newintobject(x);
}
else if (is_floatobject(v)) {
double x = getfloatvalue(v);
+ /* XXX should check for overflow */
return newintobject((long)x);
}
err_setstr(TypeError, "int() argument must be int, long or float");
}
else if (is_floatobject(v)) {
double x = getfloatvalue(v);
- return newlongobject((long)x);
+ return dnewlongobject(x);
}
err_setstr(TypeError, "long() argument must be int, long or float");
return NULL;