Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | gcc warnings |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | core-8-5-branch |
Files: | files | file ages | folders |
SHA1: |
d2d01508c4863228ff5439afb0b5b59d |
User & Date: | jan.nijtmans 2012-04-24 21:25:42 |
Context
2012-04-25
| ||
11:11 | merge-mark check-in: fd5204d93c user: jan.nijtmans tags: core-8-5-branch | |
2012-04-24
| ||
21:29 | [Bug 3508771] load tclreg.dll in cygwin tclsh Implement TclWinGetSockOpt, TclWinGetServByName and Tc... check-in: 3caedf05df user: jan.nijtmans tags: trunk | |
21:25 | gcc warnings check-in: d2d01508c4 user: jan.nijtmans tags: core-8-5-branch | |
21:02 | [Bug 3508771] load tclreg.dll in cygwin tclsh Implement TclWinGetSockOpt, TclWinGetServByName and Tc... check-in: fcc5957e59 user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to unix/tclUnixFile.c.
︙ | ︙ | |||
35 36 37 38 39 40 41 | */ void TclpFindExecutable( CONST char *argv0) /* The value of the application's argv[0] * (native). */ { | < | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | */ void TclpFindExecutable( CONST char *argv0) /* The value of the application's argv[0] * (native). */ { #ifdef __CYGWIN__ 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; |
︙ | ︙ | |||
68 69 70 71 72 73 74 | length -= 4; } tclNativeExecutableName = (char *) ckalloc(length + 1); memcpy(tclNativeExecutableName, name, length); buf[length] = '\0'; #else if (argv0 == NULL) { | | | 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | length -= 4; } tclNativeExecutableName = (char *) ckalloc(length + 1); memcpy(tclNativeExecutableName, name, length); buf[length] = '\0'; #else if (argv0 == NULL) { return; } Tcl_DStringInit(&buffer); name = argv0; for (p = name; *p != '\0'; p++) { if (*p == '/') { /* |
︙ | ︙ |