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: | 
2bfc88617310a273bd9ec52a223dd73d | 
| 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 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24  | 
--- tclvfs-20080503.orig/generic/vfs.c	2006-08-30 19:38:03.000000000 +0000
+++ tclvfs-20080503-fixinternalrepuse/generic/vfs.c	2014-11-17 18:34:43.317025829 +0000
@@ -1986,16 +1986,17 @@
         return NULL;
     }
     
-    splitPosition = nativeRep->splitPosition;
-    normed = Tcl_FSGetNormalizedPath(NULL, pathPtr);
-    normedString = Tcl_GetStringFromObj(normed, &len);
-    
     mountCmd = Tcl_DuplicateObj(nativeRep->fsCmd->mountCmd);
     Tcl_IncrRefCount(mountCmd);
     if (Tcl_ListObjLength(NULL, mountCmd, &dummyLen) == TCL_ERROR) {
 	Tcl_DecrRefCount(mountCmd);
 	return NULL;
     }
+
+    splitPosition = nativeRep->splitPosition;
+    normed = Tcl_FSGetNormalizedPath(NULL, pathPtr);
+    normedString = Tcl_GetStringFromObj(normed, &len);
+    
     Tcl_ListObjAppendElement(NULL, mountCmd, Tcl_NewStringObj(cmd,-1));
     if (splitPosition == len) {
 	Tcl_ListObjAppendElement(NULL, mountCmd, normed);
 |