Check-in [2bfc886173]
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);