From 83102e6f2f98d36d59b7b69132074e9724dc2feb Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 21 Jun 2011 14:09:31 +0000 Subject: 3317466 Prevent multiple Tcl_LinkVar() links to a single Tcl variable. --- ChangeLog | 5 +++++ generic/tclLink.c | 8 ++++++++ 2 files changed, 13 insertions(+) diff --git a/ChangeLog b/ChangeLog index da20558..aebd347 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2011-06-21 Don Porter + + * generic/tclLink.c: Prevent multiple links to a single Tcl + variable when calling Tcl_LinkVar(). [Bug 3317466] + 2011-06-13 Don Porter * generic/tclStrToD.c: [Bug 3315098] Mem leak fix from Gustaf Neumann. diff --git a/generic/tclLink.c b/generic/tclLink.c index df8b16a..f7911a4 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -112,6 +112,14 @@ Tcl_LinkVar( Link *linkPtr; int code; + linkPtr = (Link *) Tcl_VarTraceInfo(interp, varName, TCL_GLOBAL_ONLY, + LinkTraceProc, (ClientData) NULL); + if (linkPtr != NULL) { + Tcl_SetObjResult(interp, Tcl_ObjPrintf( + "variable '%s' is already linked", varName)); + return TCL_ERROR; + } + linkPtr = (Link *) ckalloc(sizeof(Link)); linkPtr->interp = interp; linkPtr->varName = Tcl_NewStringObj(varName, -1); -- cgit v0.12