Tcl Source Code

Artifact b81ff7d6033a5b8dd6f8d3ae88000b91b7fe383b:

Attachment "tclUtil.patch" to ticket [1494330fff] added by fridolin 2006-05-25 12:13:27.

---

*** tclUtil.c.orig	2006-05-24 16:01:47.000000000 +0200
--- tclUtil.c	2006-05-24 15:57:21.000000000 +0200
***************
*** 434,442 ****
  	}
      }
      size++;			/* Leave space for final NULL pointer. */
      argv = (CONST char **) ckalloc((unsigned)
! 	    ((size * sizeof(char *)) + (l - list) + 1));
!     length = strlen(list);
      for (i = 0, p = ((char *) argv) + size*sizeof(char *);
  	    *list != 0;  i++) {
  	CONST char *prevList = list;
--- 434,442 ----
  	}
      }
      size++;			/* Leave space for final NULL pointer. */
+     length = l - list;
      argv = (CONST char **) ckalloc((unsigned)
! 	    ((size * sizeof(char *)) + length + 1));
      for (i = 0, p = ((char *) argv) + size*sizeof(char *);
  	    *list != 0;  i++) {
  	CONST char *prevList = list;