diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-09 15:52:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-09 15:52:01 (GMT) |
| commit | 67ba502f3489051889064fbb4b3b66741704d254 (patch) | |
| tree | eb38de0d823f5f75d6bdd9f0c3f479502c434b86 /generic/tclLink.c | |
| parent | b8b961810253e1b691ad2d19915e6d6d4a3d569f (diff) | |
| parent | d232a6d28e46259037f109b33e7c77afa3361bbe (diff) | |
| download | tcl-67ba502f3489051889064fbb4b3b66741704d254.zip tcl-67ba502f3489051889064fbb4b3b66741704d254.tar.gz tcl-67ba502f3489051889064fbb4b3b66741704d254.tar.bz2 | |
Merge 8.6.
Fix compilation warning. No longer return linked adress as interp result in Tcl_LinkArra(): This is not documented, not tested, and simply dangerous: It leaks pointer values into the Tcl space.
Diffstat (limited to 'generic/tclLink.c')
| -rw-r--r-- | generic/tclLink.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index 3bcfb72..030e471 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -392,8 +392,6 @@ Tcl_LinkArray( if (code != TCL_OK) { Tcl_DecrRefCount(linkPtr->varName); LinkFree(linkPtr); - } else { - Tcl_SetObjResult(interp, Tcl_NewIntObj((int) linkPtr->addr)); } return code; } |