From ac551825f2874d6fbe0d449ac4d9c08da5e75b42 Mon Sep 17 00:00:00 2001
From: nijtmans <nijtmans>
Date: Wed, 17 Nov 2010 10:37:38 +0000
Subject: Bring compilation under mingw-w64 a bit closer to reality (but don't
 break mingw32 build!)

---
 win/tclAppInit.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/win/tclAppInit.c b/win/tclAppInit.c
index 2189238..fad2a8f 100644
--- a/win/tclAppInit.c
+++ b/win/tclAppInit.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclAppInit.c,v 1.35 2010/11/16 14:03:34 nijtmans Exp $
+ * RCS: @(#) $Id: tclAppInit.c,v 1.36 2010/11/17 10:37:38 nijtmans Exp $
  */
 
 #ifdef TCL_BROKEN_MAINARGS
@@ -253,9 +253,9 @@ setargv(
 	}
     }
     argSpace = (char *) ckalloc(
-	    (unsigned) (size * sizeof(char *) + (strlen(cmdLine)) + 1));
+	    (unsigned) (size * sizeof(char *) + strlen(cmdLine) + 1));
     argv = (char **) argSpace;
-    argSpace += size;
+    argSpace += size * sizeof(char *);
     size--;
 
     p = cmdLine;
-- 
cgit v0.12