diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | doc/FileSystem.3 | 4 | ||||
| -rw-r--r-- | generic/tclFCmd.c | 8 |
3 files changed, 12 insertions, 6 deletions
@@ -1,3 +1,9 @@ +2001-10-15 Vince Darley <vincentdarley@users.sourceforge.net> + + * generic/tclFCmd.c: fix to memory leak in TclFileDeleteCmd on + certain error conditions. + * doc/FileSystem.3: fix to typo. + 2001-10-12 Jeff Hobbs <jeffh@ActiveState.com> * library/encoding/ebcdic.enc: diff --git a/doc/FileSystem.3 b/doc/FileSystem.3 index e6f750d..83f29ce 100644 --- a/doc/FileSystem.3 +++ b/doc/FileSystem.3 @@ -4,7 +4,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: FileSystem.3,v 1.8 2001/09/29 11:09:35 vincentdarley Exp $ +'\" RCS: @(#) $Id: FileSystem.3,v 1.9 2001/10/15 10:30:07 vincentdarley Exp $ '\" .so man.macros .TH Tcl_FSCopyFile 3 8.4 Tcl "Tcl Library Procedures" @@ -225,7 +225,7 @@ required (and may cache the results of such conversions for greater efficiency on subsequent calls). Fourth, and perhaps most importantly, all of these functions are 'virtual filesystem aware'. Any virtual filesystem which has been registered (through -\fBTclRegisterFilesystem\fR) may reroute file access to alternative +\fBTcl_FSRegister\fR) may reroute file access to alternative media or access methods. This means that all of these functions (and therefore the corresponding \fBfile\fR, \fBpwd\fR, \fBcd\fR, \fBopen\fR, etc. Tcl commands) may be operate on 'files' which are not diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 042fe79..57507ab 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFCmd.c,v 1.13 2001/09/08 14:05:09 vincentdarley Exp $ + * RCS: @(#) $Id: tclFCmd.c,v 1.14 2001/10/15 10:30:07 vincentdarley Exp $ */ #include "tclInt.h" @@ -406,11 +406,11 @@ TclFileDeleteCmd(interp, objc, objv) Tcl_GetString(errfile), "\": ", Tcl_PosixError(interp), (char *) NULL); } - if (errorBuffer != NULL) { - Tcl_DecrRefCount(errorBuffer); - } } done: + if (errorBuffer != NULL) { + Tcl_DecrRefCount(errorBuffer); + } return result; } |