diff options
| author | andreas_kupries <akupries@shaw.ca> | 2005-08-04 17:28:48 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2005-08-04 17:28:48 (GMT) |
| commit | 4814711c48d631ba65ddf08bde60095481b4e7a3 (patch) | |
| tree | 2293b604f609e1110e59a67982e6fd2e9ec5666a /generic | |
| parent | 1e15563e9a0ba038175fd5b0a2dda5cca01bd363 (diff) | |
| download | tcl-4814711c48d631ba65ddf08bde60095481b4e7a3.zip tcl-4814711c48d631ba65ddf08bde60095481b4e7a3.tar.gz tcl-4814711c48d631ba65ddf08bde60095481b4e7a3.tar.bz2 | |
* generic/tclIO.c (CloseChannel): Fixed comment nit, added
apparently missing word to complete a sentence.
* generic/tclObj.c (Tcl_DbDecrRefCount): Fixed whitespace nit in
panic message.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclIO.c | 4 | ||||
| -rw-r--r-- | generic/tclObj.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index e11f489..dcb4e9d 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIO.c,v 1.91 2005/07/17 21:17:40 dkf Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.92 2005/08/04 17:29:01 andreas_kupries Exp $ */ #include "tclInt.h" @@ -2329,7 +2329,7 @@ CloseChannel(interp, chanPtr, errorCode) * There is only the TOP Channel, so we free the remaining pointers we * have and then ourselves. Since this is the last of the channels in the * stack, make sure to free the ChannelState structure associated with it. - * We use Tcl_EventuallyFree to allow for any last + * We use Tcl_EventuallyFree to allow for any last references. */ chanPtr->typePtr = NULL; diff --git a/generic/tclObj.c b/generic/tclObj.c index 1115b6f..3f0af61 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclObj.c,v 1.91 2005/08/04 16:32:41 dgp Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.92 2005/08/04 17:29:06 andreas_kupries Exp $ */ #include "tclInt.h" @@ -3264,7 +3264,7 @@ Tcl_DbDecrRefCount(objPtr, file, line) hPtr = Tcl_FindHashEntry(tablePtr, (char *) objPtr); if (!hPtr) { Tcl_Panic("%s%s", - "Trying to decr ref count of", + "Trying to decr ref count of ", "Tcl_Obj allocated in another thread"); } |