diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-26 13:00:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-26 13:00:21 (GMT) |
| commit | aa0788a63fa3b4766cf8103459ec4e5358cfd251 (patch) | |
| tree | 5dbc707fcb9bf6d847e38eef2fec91a9d503b03b /unix/tclUnixFile.c | |
| parent | a2a686690682ab17aee3a3b76e4af3cfa2f93c68 (diff) | |
| parent | 7d93408e22a1c1706a8a37197a5c934aecec4780 (diff) | |
| download | tcl-aa0788a63fa3b4766cf8103459ec4e5358cfd251.zip tcl-aa0788a63fa3b4766cf8103459ec4e5358cfd251.tar.gz tcl-aa0788a63fa3b4766cf8103459ec4e5358cfd251.tar.bz2 | |
fix Linux build ;-(
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 0b8aaf9..c187e0e 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -40,13 +40,13 @@ TclpFindExecutable( * (native). */ { #ifdef __CYGWIN__ + int length; char buf[PATH_MAX * TCL_UTF_MAX + 1]; char name[PATH_MAX * TCL_UTF_MAX + 1]; #else const char *name, *p; Tcl_StatBuf statBuf; Tcl_DString buffer, nameString, cwd, utfName; - Tcl_Encoding encoding; #endif #ifdef __CYGWIN__ @@ -66,9 +66,8 @@ TclpFindExecutable( /* Strip '.exe' part. */ length -= 4; } - tclNativeExecutableName = (char *) ckalloc(length + 1); - memcpy(tclNativeExecutableName, name, length); - buf[length] = '\0'; + TclSetObjNameOfExecutable( + Tcl_NewStringObj(name, length), Tcl_GetEncoding(NULL, NULL)); #else if (argv0 == NULL) { return; |