diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-03-12 17:45:37 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-03-12 17:45:37 (GMT) |
| commit | a9b80c492179a73f008fd8cc5aa7e8a7b9e87bf9 (patch) | |
| tree | 08a6b50f74f697e9ebc1f689f06d7318c0aa83a2 /win/winMain.c | |
| parent | d27c3b360cd9cb780be362ed6ce435776ca42fc1 (diff) | |
| download | tk-a9b80c492179a73f008fd8cc5aa7e8a7b9e87bf9.zip tk-a9b80c492179a73f008fd8cc5aa7e8a7b9e87bf9.tar.gz tk-a9b80c492179a73f008fd8cc5aa7e8a7b9e87bf9.tar.bz2 | |
Remove casts from uses of ckalloc/ckfree/... now that Tcl declares them to be
using useful casts internally.
Diffstat (limited to 'win/winMain.c')
| -rw-r--r-- | win/winMain.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/winMain.c b/win/winMain.c index c6591c5..badda10 100644 --- a/win/winMain.c +++ b/win/winMain.c @@ -354,8 +354,8 @@ setargv( #undef Tcl_Alloc #undef Tcl_DbCkalloc - argSpace = (TCHAR *) ckalloc( - (unsigned) (size * sizeof(char *) + (_tcslen(cmdLine) * sizeof(TCHAR)) + sizeof(TCHAR))); + argSpace = ckalloc(size*sizeof(char *) + + (_tcslen(cmdLine)+1) * sizeof(TCHAR)); argv = (TCHAR **) argSpace; argSpace += size * (sizeof(char *)/sizeof(TCHAR)); size--; |