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 | trunk |
Files: | files | file ages | folders |
SHA1: |
fb1352c7ed335bb045472120f9104be6 |
User & Date: | dgp 2011-06-21 14:10:30 |
Context
2011-06-21
| ||
16:49 | tcltest 2.3.3 fixes: * Use package ifneeded so slave gets exactly same tcltest version as master ... check-in: 5c0438d85a user: dgp tags: trunk | |
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:11 | merge changes to trunk check-in: 3b3f0c8d18 user: dgp tags: trunk | |
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-08 Andreas Kupries <[email protected]> * generic/tclExecute.c: Reverted the fix for [Bug 3274728] | > > > > > | 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-08 Andreas Kupries <[email protected]> * generic/tclExecute.c: Reverted the fix for [Bug 3274728] |
︙ | ︙ |
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 = 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 = 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; |
︙ | ︙ |