Tcl Source Code

Artifact 5c32712e642e0a44e430d1b176921535dc9ed0408c95415b86b85e37057652fb:

Attachment "tcl8.6.8_generic_tclIndexObj.c.patch" to ticket [0238027108] added by anonymous 2019-01-29 23:00:34. (unpublished)

---

diff --git a/tclIndexObj.c b/tclIndexObj.c
index 30c33f1..07792c5 100644
--- a/tclIndexObj.c
+++ b/tclIndexObj.c
@@ -1207,7 +1207,7 @@ Tcl_ParseArgsObjv(
 	infoPtr = matchPtr;
 	switch (infoPtr->type) {
 	case TCL_ARGV_CONSTANT:
-	    *((int *) infoPtr->dstPtr) = PTR2INT(infoPtr->srcPtr);
+	    *((int *) infoPtr->dstPtr) = *((int *) infoPtr->srcPtr);
 	    break;
 	case TCL_ARGV_INT:
 	    if (objc == 0) {