diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2003-02-01 00:22:23 +0000 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2003-02-01 00:22:23 +0000 |
| commit | 3be050da324a9329f195bfdc13dc7b8b221a72dc (patch) | |
| tree | 4f7058300af2788a000b77622b0522b10277d48a | |
| parent | a85d1d546846b30b6c7b439be253bb188d8574bc (diff) | |
| download | postgresql-3be050da324a9329f195bfdc13dc7b8b221a72dc.tar.gz postgresql-3be050da324a9329f195bfdc13dc7b8b221a72dc.zip | |
Prevent core dump from calling Tcl_DontCallWhenDeleted() with a null
interp pointer. Per report from Gerhard Hintermayer.
| -rw-r--r-- | src/interfaces/libpgtcl/pgtclId.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/interfaces/libpgtcl/pgtclId.c b/src/interfaces/libpgtcl/pgtclId.c index 56fd72754f9..4d19886a311 100644 --- a/src/interfaces/libpgtcl/pgtclId.c +++ b/src/interfaces/libpgtcl/pgtclId.c @@ -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.37.2.1 2003/02/01 00:07:19 tgl Exp $ + * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclId.c,v 1.37.2.2 2003/02/01 00:22:23 tgl Exp $ * *------------------------------------------------------------------------- */ @@ -273,8 +273,9 @@ PgDelConnectionId(DRIVER_DEL_PROTO) Tcl_DeleteHashTable(¬ifies->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); } |