Overview
Comment: | Fixed bug in TclVFS where internal representation was used after being free'd |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | 2bfc88617310a273bd9ec52a223dd73de1c4a114 |
User & Date: | rkeene on 2014-11-17 18:43:33 |
Other Links: | manifest | tags |
Context
2014-11-19
| ||
04:25 | Updated to disable TclX when cross-compiling check-in: 3d4fcdb4c1 user: rkeene tags: trunk | |
2014-11-17
| ||
18:43 | Fixed bug in TclVFS where internal representation was used after being free'd check-in: 2bfc886173 user: rkeene tags: trunk | |
18:43 | Updated order of Incr/Decr in CVFS for consistency check-in: dfa8940a62 user: rkeene tags: trunk | |
Changes
Added tclvfs/patches/all/tclvfs-20080503-fixinternalrepuse.diff version [2689cdda92].
1 +--- tclvfs-20080503.orig/generic/vfs.c 2006-08-30 19:38:03.000000000 +0000 2 ++++ tclvfs-20080503-fixinternalrepuse/generic/vfs.c 2014-11-17 18:34:43.317025829 +0000 3 +@@ -1986,16 +1986,17 @@ 4 + return NULL; 5 + } 6 + 7 +- splitPosition = nativeRep->splitPosition; 8 +- normed = Tcl_FSGetNormalizedPath(NULL, pathPtr); 9 +- normedString = Tcl_GetStringFromObj(normed, &len); 10 +- 11 + mountCmd = Tcl_DuplicateObj(nativeRep->fsCmd->mountCmd); 12 + Tcl_IncrRefCount(mountCmd); 13 + if (Tcl_ListObjLength(NULL, mountCmd, &dummyLen) == TCL_ERROR) { 14 + Tcl_DecrRefCount(mountCmd); 15 + return NULL; 16 + } 17 ++ 18 ++ splitPosition = nativeRep->splitPosition; 19 ++ normed = Tcl_FSGetNormalizedPath(NULL, pathPtr); 20 ++ normedString = Tcl_GetStringFromObj(normed, &len); 21 ++ 22 + Tcl_ListObjAppendElement(NULL, mountCmd, Tcl_NewStringObj(cmd,-1)); 23 + if (splitPosition == len) { 24 + Tcl_ListObjAppendElement(NULL, mountCmd, normed);