rearranged code in debugging version of DELREF to avoid touching data

after it has been freed.

diff --git a/Objects/object.c b/Objects/object.c
index 072b50bbbb9478582eca7914eeebde00005ca5e3..04e1ede89df03afaad78558f569fec2869877cdc 100644 (file)
--- a/Objects/object.c
+++ b/Objects/object.c
@@ -406,12 +406,13 @@ UNREF(op)
 DELREF(op)
        object *op;
 {
+       destructor dealloc = op->ob_type->tp_dealloc;
        UNREF(op);
 #ifdef COUNT_ALLOCS
        op->ob_type->tp_free++;
 #endif
-       (*(op)->ob_type->tp_dealloc)(op);
        op->ob_type = NULL;
+       (*dealloc)(op);
 }
 
 printrefs(fp)