upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-11 04:30:00 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

if driver initialization failed, memory was leaked and

Browse source 
dns_sdb_unregister() caught an assertion failure
This commit is contained in:
Andreas Gustafsson 2000-11-20 18:24:41 +00:00
parent 28002bd7cb
commit 2fbc38f7b9
2 changed files with 34 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
contrib/sdb/tcl/tcldb.c
View file

@ -15,7 +15,7 @@
* WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* $Id: tcldb.c,v 1.4 2000/11/18 01:39:20 bwelling Exp $ */
/* $Id: tcldb.c,v 1.5 2000/11/20 18:24:41 gson Exp $ */
#include <config.h>
@ -43,8 +43,6 @@
* the contents of the DNS namespace.
*/
static dns_sdbimplementation_t *tcldb = NULL;
#define CHECK(op) \
do { result = (op); \
if (result != ISC_R_SUCCESS) return (result); \
@ -55,11 +53,14 @@ typedef struct tcldb_driver {
Tcl_Interp *interp;
} tcldb_driver_t;
static tcldb_driver_t *the_driver;
static tcldb_driver_t *the_driver = NULL;
static dns_sdbimplementation_t *tcldb = NULL;
static isc_result_t
tcldb_driver_create(isc_mem_t *mctx, tcldb_driver_t **driverp) {
int tclres;
isc_result_t result = ISC_R_SUCCESS;
tcldb_driver_t *driver = isc_mem_get(mctx, sizeof(tcldb_driver_t));
if (driver == NULL)
return (ISC_R_NOMEMORY);
@ -71,12 +72,18 @@ tcldb_driver_create(isc_mem_t *mctx, tcldb_driver_t **driverp) {
isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
DNS_LOGMODULE_SDB, ISC_LOG_ERROR,
"initializing tcldb: "
"loading lookup.tcl failed: %s",
"loading 'lookup.tcl' failed: %s",
driver->interp->result);
return (ISC_R_FAILURE);
result = ISC_R_FAILURE;
goto cleanup;
}
*driverp = driver;
return (ISC_R_SUCCESS);
cleanup:
isc_mem_put(mctx, driver, sizeof(tcldb_driver_t));
return (result);
}
static void
@ -216,6 +223,8 @@ tcldb_init(void) {
*/
void
tcldb_clear(void) {
dns_sdb_unregister(&tcldb);
tcldb_driver_destroy(&the_driver);
if (tcldb != NULL)
dns_sdb_unregister(&tcldb);
if (the_driver != NULL)
tcldb_driver_destroy(&the_driver);
}

25
contrib/sdb/tcldb.c
View file

@ -15,7 +15,7 @@
* WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* $Id: tcldb.c,v 1.4 2000/11/18 01:39:20 bwelling Exp $ */
/* $Id: tcldb.c,v 1.5 2000/11/20 18:24:41 gson Exp $ */
#include <config.h>
@ -43,8 +43,6 @@
* the contents of the DNS namespace.
*/
static dns_sdbimplementation_t *tcldb = NULL;
#define CHECK(op) \
do { result = (op); \
if (result != ISC_R_SUCCESS) return (result); \
@ -55,11 +53,14 @@ typedef struct tcldb_driver {
Tcl_Interp *interp;
} tcldb_driver_t;
static tcldb_driver_t *the_driver;
static tcldb_driver_t *the_driver = NULL;
static dns_sdbimplementation_t *tcldb = NULL;
static isc_result_t
tcldb_driver_create(isc_mem_t *mctx, tcldb_driver_t **driverp) {
int tclres;
isc_result_t result = ISC_R_SUCCESS;
tcldb_driver_t *driver = isc_mem_get(mctx, sizeof(tcldb_driver_t));
if (driver == NULL)
return (ISC_R_NOMEMORY);
@ -71,12 +72,18 @@ tcldb_driver_create(isc_mem_t *mctx, tcldb_driver_t **driverp) {
isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
DNS_LOGMODULE_SDB, ISC_LOG_ERROR,
"initializing tcldb: "
"loading lookup.tcl failed: %s",
"loading 'lookup.tcl' failed: %s",
driver->interp->result);
return (ISC_R_FAILURE);
result = ISC_R_FAILURE;
goto cleanup;
}
*driverp = driver;
return (ISC_R_SUCCESS);
cleanup:
isc_mem_put(mctx, driver, sizeof(tcldb_driver_t));
return (result);
}
static void
@ -216,6 +223,8 @@ tcldb_init(void) {
*/
void
tcldb_clear(void) {
dns_sdb_unregister(&tcldb);
tcldb_driver_destroy(&the_driver);
if (tcldb != NULL)
dns_sdb_unregister(&tcldb);
if (the_driver != NULL)
tcldb_driver_destroy(&the_driver);
}