Check-in [2bfc886173]
Overview
SHA1:2bfc88617310a273bd9ec52a223dd73de1c4a114
Date: 2014-11-17 18:43:33
User: rkeene
Comment:Fixed bug in TclVFS where internal representation was used after being free'd
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2014-11-19
04:25
[3d4fcdb4c1] Updated to disable TclX when cross-compiling (user: rkeene, tags: trunk)
2014-11-17
18:43
[2bfc886173] Fixed bug in TclVFS where internal representation was used after being free'd (user: rkeene, tags: trunk)
18:43
[dfa8940a62] Updated order of Incr/Decr in CVFS for consistency (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);