p->ob_refcnt != 0) {
char buf[100];
PyFloat_AsString(buf, p);
+ /* XXX(twouters) cast refcount to
+ long until %zd is universally
+ available
+ */
fprintf(stderr,
- "# <float at %p, refcnt=%d, val=%s>\n",
- p, p->ob_refcnt, buf);
+ "# <float at %p, refcnt=%ld, val=%s>\n",
+ p, (long)p->ob_refcnt, buf);
}
}
list = list->next;
i < N_INTOBJECTS;
i++, p++) {
if (PyInt_CheckExact(p) && p->ob_refcnt != 0)
+ /* XXX(twouters) cast refcount to
+ long until %zd is universally
+ available
+ */
fprintf(stderr,
- "# <int at %p, refcnt=%d, val=%ld>\n",
- p, p->ob_refcnt, p->ob_ival);
+ "# <int at %p, refcnt=%ld, val=%ld>\n",
+ p, (long)p->ob_refcnt,
+ p->ob_ival);
}
list = list->next;
}
{
char buf[300];
+ /* XXX(twouters) cast refcount to long until %zd is universally
+ available */
PyOS_snprintf(buf, sizeof(buf),
- "%s:%i object at %p has negative ref count %i",
- fname, lineno, op, op->ob_refcnt);
+ "%s:%i object at %p has negative ref count %ld",
+ fname, lineno, op, (long)op->ob_refcnt);
Py_FatalError(buf);
}
}
else {
if (op->ob_refcnt <= 0)
- fprintf(fp, "<refcnt %u at %p>",
- op->ob_refcnt, op);
+ /* XXX(twouters) cast refcount to long until %zd is
+ universally available */
+ fprintf(fp, "<refcnt %ld at %p>",
+ (long)op->ob_refcnt, op);
else if (op->ob_type->tp_print == NULL) {
PyObject *s;
if (flags & Py_PRINT_RAW)
else {
fprintf(stderr, "object : ");
(void)PyObject_Print(op, stderr, 0);
+ /* XXX(twouters) cast refcount to long until %zd is
+ universally available */
fprintf(stderr, "\n"
"type : %s\n"
- "refcount: %d\n"
+ "refcount: %ld\n"
"address : %p\n",
op->ob_type==NULL ? "NULL" : op->ob_type->tp_name,
- op->ob_refcnt,
+ (long)op->ob_refcnt,
op);
}
}
PyObject *op;
fprintf(fp, "Remaining objects:\n");
for (op = refchain._ob_next; op != &refchain; op = op->_ob_next) {
- fprintf(fp, "%p [%d] ", op, op->ob_refcnt);
+ /* XXX(twouters) cast refcount to long until %zd is
+ universally available */
+ fprintf(fp, "%p [%ld] ", op, (long)op->ob_refcnt);
if (PyObject_Print(op, fp, 0) != 0)
PyErr_Clear();
putc('\n', fp);
PyObject *op;
fprintf(fp, "Remaining object addresses:\n");
for (op = refchain._ob_next; op != &refchain; op = op->_ob_next)
- fprintf(fp, "%p [%d] %s\n", op, op->ob_refcnt,
+ /* XXX(twouters) cast refcount to long until %zd is
+ universally available */
+ fprintf(fp, "%p [%ld] %s\n", op, (long)op->ob_refcnt,
op->ob_type->tp_name);
}