diff options
| author | nijtmans <nijtmans> | 2010-11-17 10:37:38 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-11-17 10:37:38 (GMT) |
| commit | ac551825f2874d6fbe0d449ac4d9c08da5e75b42 (patch) | |
| tree | 60254913f9f3964793b2cfd3bd3ff7fa0e9c6771 | |
| parent | ae05668834c34d70dd008a776d47c8bf8cd8e041 (diff) | |
| download | tcl-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.c | 6 |
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; |