Prevent core dump from calling Tcl_DontCallWhenDeleted() with a null

interp pointer.  Per report from Gerhard Hintermayer.
This commit is contained in:
Tom Lane 2003-02-01 00:22:12 +00:00
parent 032235cafe
commit 361eaa185f
1 changed files with 4 additions and 3 deletions

View File

@ -13,7 +13,7 @@
* Portions Copyright (c) 1994, Regents of the University of California
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclId.c,v 1.39 2003/02/01 00:07:03 tgl Exp $
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclId.c,v 1.40 2003/02/01 00:22:12 tgl Exp $
*
*-------------------------------------------------------------------------
*/
@ -274,8 +274,9 @@ PgDelConnectionId(DRIVER_DEL_PROTO)
Tcl_DeleteHashTable(&notifies->notify_hash);
if (notifies->conn_loss_cmd)
ckfree((void *) notifies->conn_loss_cmd);
Tcl_DontCallWhenDeleted(notifies->interp, PgNotifyInterpDelete,
(ClientData) notifies);
if (notifies->interp)
Tcl_DontCallWhenDeleted(notifies->interp, PgNotifyInterpDelete,
(ClientData) notifies);
ckfree((void *) notifies);
}