git.postgresql.org Git - postgresql.git/commitdiff

diff --git a/src/interfaces/libpgtcl/pgtclId.c b/src/interfaces/libpgtcl/pgtclId.c

index 7ab1b9e24dc41316adc825dc8feef7a2a565b47a..c1b32866d4137decc4f973b4ec158f63de2296ab 100644 (file)

--- a/src/interfaces/libpgtcl/pgtclId.c

+++ b/src/interfaces/libpgtcl/pgtclId.c

* 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 $

*

*-------------------------------------------------------------------------

*/

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);

}