From 8e465cd366902ca70ad10aad3428c37501f6f772 Mon Sep 17 00:00:00 2001 From: mescalinum Date: Wed, 16 Nov 2011 11:06:26 +0000 Subject: remove obj-inst -> class-name mapping in tclpd_free svn path=/trunk/externals/loaders/tclpd/; revision=15755 --- tcl_class.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tcl_class.c b/tcl_class.c index 0ce39d2..085334a 100644 --- a/tcl_class.c +++ b/tcl_class.c @@ -208,6 +208,11 @@ void tclpd_free(t_tcl *x) { Tcl_DecrRefCount(av[1]); Tcl_DecrRefCount(av[2]); + // remove obj instance -> classname mapping + char delmapcmd[256]; + snprintf(delmapcmd, 256, "unset ::pd::classname(%s)", Tcl_GetStringFromObj(x->self, NULL)); + Tcl_Eval(tclpd_interp, delmapcmd); + // here ends the lifetime of x->classname and x->self Tcl_DecrRefCount(x->self); Tcl_DecrRefCount(x->classname); -- cgit v1.2.1