summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-04-26 13:00:21 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-04-26 13:00:21 (GMT)
commit7c581d9f012e8608db1a31726831bcc723a550a2 (patch)
tree5dbc707fcb9bf6d847e38eef2fec91a9d503b03b /unix
parent6483a5f83b04e8660d81cdd65ef3390724bd3b65 (diff)
parent9d2e439a664858bfbe32eef058ab965b1e43ce4b (diff)
downloadtcl-7c581d9f012e8608db1a31726831bcc723a550a2.zip
tcl-7c581d9f012e8608db1a31726831bcc723a550a2.tar.gz
tcl-7c581d9f012e8608db1a31726831bcc723a550a2.tar.bz2
fix Linux build ;-(
Diffstat (limited to 'unix')
-rw-r--r--unix/tclUnixFile.c7
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;