rearranged code in debugging version of DELREF to avoid touching data

gvanrossum · gvanrossum · commit 9776adf56561 · 1994-09-07T14:36:45.000Z
after it has been freed.
diff --git 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)

Original file line number	Diff line number	Diff line change
`@@ -406,12 +406,13 @@ UNREF(op)`
`406`	`406`	`DELREF(op)`
`407`	`407`	`object *op;`
`408`	`408`	`{`
	`409`	`+ destructor dealloc = op->ob_type->tp_dealloc;`
`409`	`410`	`UNREF(op);`
`410`	`411`	`#ifdef COUNT_ALLOCS`
`411`	`412`	`op->ob_type->tp_free++;`
`412`	`413`	`#endif`
`413`		`- (*(op)->ob_type->tp_dealloc)(op);`
`414`	`414`	`op->ob_type = NULL;`
	`415`	`+ (*dealloc)(op);`
`415`	`416`	`}`
`416`	`417`
`417`	`418`	`printrefs(fp)`