summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-11-17 10:37:38 (GMT)
committernijtmans <nijtmans>2010-11-17 10:37:38 (GMT)
commitac551825f2874d6fbe0d449ac4d9c08da5e75b42 (patch)
tree60254913f9f3964793b2cfd3bd3ff7fa0e9c6771
parentae05668834c34d70dd008a776d47c8bf8cd8e041 (diff)
downloadtcl-ac551825f2874d6fbe0d449ac4d9c08da5e75b42.zip
tcl-ac551825f2874d6fbe0d449ac4d9c08da5e75b42.tar.gz
tcl-ac551825f2874d6fbe0d449ac4d9c08da5e75b42.tar.bz2
Bring compilation under mingw-w64 a bit closer to reality (but don't break mingw32 build!)
-rw-r--r--win/tclAppInit.c6
1 files 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;