Tcl Source Code

Artifact dd7a2cba77b10dcbd7a65d5d89f4f024fb15dbb6:

Attachment "tclCmdAH.c-diff" to ticket [1529526fff] added by afredd 2006-07-27 15:15:08.

---

--- tclCmdAH.c-orig	2006-07-26 17:04:40.437500000 +0100
+++ tclCmdAH.c	2006-07-26 17:06:14.781250000 +0100
@@ -1472,7 +1472,7 @@
      */
 
 #define STORE_ARY(fieldName, object) \
-    Tcl_SetStringObj(field, (fieldName), -1); \
+    Tcl_SetStringObj(field, fieldName, (sizeof("" fieldName) - 1)); \
     value = (object); \
     if (Tcl_ObjSetVar2(interp,varName,field,value,TCL_LEAVE_ERR_MSG)==NULL) { \
 	Tcl_DecrRefCount(field); \