diff options
| author | nijtmans <nijtmans@noemail.net> | 2010-11-17 10:37:38 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans@noemail.net> | 2010-11-17 10:37:38 (GMT) |
| commit | 74552ca9a56d63ce243ec224f5fa25eeba9379b6 (patch) | |
| tree | 60254913f9f3964793b2cfd3bd3ff7fa0e9c6771 | |
| parent | 2d6dcc4ea154697d83cc404611bc404bdcfd6010 (diff) | |
| download | tcl-74552ca9a56d63ce243ec224f5fa25eeba9379b6.zip tcl-74552ca9a56d63ce243ec224f5fa25eeba9379b6.tar.gz tcl-74552ca9a56d63ce243ec224f5fa25eeba9379b6.tar.bz2 | |
Bring compilation under mingw-w64 a bit closer to reality (but don't break mingw32 build!)
FossilOrigin-Name: 87efc548664be5cba9686a39e401a1038f000e20
| -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; |