diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-08 19:00:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-08 19:00:39 (GMT) |
| commit | 1812305cb35d0096d50f9b1e7c1c368f230b6f07 (patch) | |
| tree | 29a9a607c030b3cfa6c0ae744822eb76de21ee86 /win/tclAppInit.c | |
| parent | fe34611d8ec24bd6dd816cf00fa8ac15355bde79 (diff) | |
| parent | 99e9ce3656f195c60ba4e928559c05d47167901c (diff) | |
| download | tcl-1812305cb35d0096d50f9b1e7c1c368f230b6f07.zip tcl-1812305cb35d0096d50f9b1e7c1c368f230b6f07.tar.gz tcl-1812305cb35d0096d50f9b1e7c1c368f230b6f07.tar.bz2 | |
TIP #494 implementation: More use of size_t in Tcl 9
Diffstat (limited to 'win/tclAppInit.c')
| -rw-r--r-- | win/tclAppInit.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/win/tclAppInit.c b/win/tclAppInit.c index 6444b21..d82e8ac 100644 --- a/win/tclAppInit.c +++ b/win/tclAppInit.c @@ -267,11 +267,10 @@ setargv( } } - /* Make sure we don't call ckalloc through the (not yet initialized) stub table */ + /* Make sure we don't call Tcl_Alloc through the (not yet initialized) stub table */ # undef Tcl_Alloc -# undef Tcl_DbCkalloc - argSpace = ckalloc(size * sizeof(char *) + argSpace = Tcl_Alloc(size * sizeof(char *) + (_tcslen(cmdLine) * sizeof(TCHAR)) + sizeof(TCHAR)); argv = (TCHAR **) argSpace; argSpace += size * (sizeof(char *)/sizeof(TCHAR)); |