extra check only in debug mode

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7894 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-11-28 02:45:05 +00:00
commit 35ebeba612

View file

@ -18,16 +18,19 @@ char cvsroot_base_c[] = "$Header$";
* DohDelete()
* ----------------------------------------------------------------------------- */
/* #define SWIG_DEBUG_DELETE */
void
DohDelete(DOH *obj) {
DohBase *b = (DohBase *) obj;
DohObjInfo *objinfo;
if (!obj) return;
#ifdef SWIG_DEBUG_DELETE
if (!DohCheck(b)) {
fputs("DOH: Fatal error. Attempt to delete a non-doh object.\n",stderr);
abort();
}
#endif
if (b->flag_intern) return;
assert(b->refcount > 0);
b->refcount--;