Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | 3317466 Prevent multiple Tcl_LinkVar() links to a single Tcl variable. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
39eb20d6a2249d4b28ab2749c9d63dd2 |
| User & Date: | dgp 2011-06-21 14:09:31 |
Context
|
2011-06-21
| ||
| 16:28 | Backport tcltest 2.3.3 for release with Tcl 8.5.* check-in: 8017ea6ba5 user: dgp tags: core-8-5-branch | |
| 14:10 | 3317466 Prevent multiple Tcl_LinkVar() links to a single Tcl variable. check-in: fb1352c7ed user: dgp tags: trunk | |
| 14:09 | 3317466 Prevent multiple Tcl_LinkVar() links to a single Tcl variable. check-in: 39eb20d6a2 user: dgp tags: core-8-5-branch | |
|
2011-06-20
| ||
| 20:09 | another changes item check-in: dfbe13b3ff user: dgp tags: core-8-5-branch | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2011-06-13 Don Porter <[email protected]> * generic/tclStrToD.c: [Bug 3315098] Mem leak fix from Gustaf Neumann. 2011-06-02 Don Porter <[email protected]> * generic/tclBasic.c: Removed TclCleanupLiteralTable(), and old | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2011-06-21 Don Porter <[email protected]> * generic/tclLink.c: Prevent multiple links to a single Tcl variable when calling Tcl_LinkVar(). [Bug 3317466] 2011-06-13 Don Porter <[email protected]> * generic/tclStrToD.c: [Bug 3315098] Mem leak fix from Gustaf Neumann. 2011-06-02 Don Porter <[email protected]> * generic/tclBasic.c: Removed TclCleanupLiteralTable(), and old |
| ︙ | ︙ |
Changes to generic/tclLink.c.
| ︙ | ︙ | |||
107 108 109 110 111 112 113 114 115 116 117 118 119 120 |
* varName. */
int type) /* Type of C variable: TCL_LINK_INT, etc. Also
* may have TCL_LINK_READ_ONLY OR'ed in. */
{
Tcl_Obj *objPtr;
Link *linkPtr;
int code;
linkPtr = (Link *) ckalloc(sizeof(Link));
linkPtr->interp = interp;
linkPtr->varName = Tcl_NewStringObj(varName, -1);
Tcl_IncrRefCount(linkPtr->varName);
linkPtr->addr = addr;
linkPtr->type = type & ~TCL_LINK_READ_ONLY;
| > > > > > > > > | 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 |
* varName. */
int type) /* Type of C variable: TCL_LINK_INT, etc. Also
* may have TCL_LINK_READ_ONLY OR'ed in. */
{
Tcl_Obj *objPtr;
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);
Tcl_IncrRefCount(linkPtr->varName);
linkPtr->addr = addr;
linkPtr->type = type & ~TCL_LINK_READ_ONLY;
|
| ︙ | ︙ |