Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Handle empty tail case to stop test failures. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | remove-pathappend-intrep |
| Files: | files | file ages | folders |
| SHA1: |
b14befee575818f9bd5aa1e89b09c313 |
| User & Date: | dgp 2011-10-06 19:57:03 |
Context
|
2011-10-13
| ||
| 19:18 | merge trunk check-in: 610f5b391c user: dgp tags: remove-pathappend-intrep | |
|
2011-10-06
| ||
| 19:57 | Handle empty tail case to stop test failures. check-in: b14befee57 user: dgp tags: remove-pathappend-intrep | |
| 19:26 | Disabled more large blocks of code not needed in the absence of the TCLPATH_APPEND intrep. check-in: 3ea6aab6df user: dgp tags: remove-pathappend-intrep | |
Changes
Changes to generic/tclPathObj.c.
| ︙ | ︙ | |||
1280 1281 1282 1283 1284 1285 1286 |
const char *addStrRep,
int len)
{
#if 1
Tcl_Obj *newPath, *tail = Tcl_NewStringObj(addStrRep, len);
Tcl_IncrRefCount(tail);
| | | 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 |
const char *addStrRep,
int len)
{
#if 1
Tcl_Obj *newPath, *tail = Tcl_NewStringObj(addStrRep, len);
Tcl_IncrRefCount(tail);
if (len == 0 || addStrRep[0] == '~') {
newPath = AppendPath(dirPtr, tail);
Tcl_DecrRefCount(tail);
return newPath;
}
newPath = Tcl_FSJoinToPath(dirPtr, 1, &tail);
if (newPath != tail) {
|
| ︙ | ︙ |