diff options
author | dkf <dkf@noemail.net> | 2006-08-10 12:15:27 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2006-08-10 12:15:27 (GMT) |
commit | 76c4837f4f8cb42a9a1457b367f86960b2ffa997 (patch) | |
tree | 8cd60dbc9d7cd070ffaff79758e86c8cca2f24bb /win/tclWinThrd.c | |
parent | 51649e935a55041c167fa3dac90b22aac41f9fda (diff) | |
download | tcl-76c4837f4f8cb42a9a1457b367f86960b2ffa997.zip tcl-76c4837f4f8cb42a9a1457b367f86960b2ffa997.tar.gz tcl-76c4837f4f8cb42a9a1457b367f86960b2ffa997.tar.bz2 |
Various minor object file size efficiency fixes. [Bug 1530474]
FossilOrigin-Name: a09967381cf3a88dc91d8eb051a73d82af962eb8
Diffstat (limited to 'win/tclWinThrd.c')
-rw-r--r-- | win/tclWinThrd.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c index 66a685c..98137c4 100644 --- a/win/tclWinThrd.c +++ b/win/tclWinThrd.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: tclWinThrd.c,v 1.41 2005/11/04 00:06:51 dkf Exp $ + * RCS: @(#) $Id: tclWinThrd.c,v 1.42 2006/08/10 12:15:32 dkf Exp $ */ #include "tclWinInt.h" @@ -912,7 +912,7 @@ TclpGetAllocCache(void) result = TlsGetValue(tlsKey); if ((result == NULL) && (GetLastError() != NO_ERROR)) { - Tcl_Panic("TlsGetValue failed from TclpGetAllocCache!"); + Tcl_Panic("TlsGetValue failed from TclpGetAllocCache"); } return result; } @@ -924,7 +924,7 @@ TclpSetAllocCache( BOOL success; success = TlsSetValue(tlsKey, ptr); if (!success) { - Tcl_Panic("TlsSetValue failed from TclpSetAllocCache!"); + Tcl_Panic("TlsSetValue failed from TclpSetAllocCache"); } } @@ -943,7 +943,7 @@ TclpFreeAllocCache( TclFreeAllocCache(ptr); success = TlsSetValue(tlsKey, NULL); if (!success) { - Tcl_Panic("TlsSetValue failed from TclpFreeAllocCache!"); + Tcl_Panic("TlsSetValue failed from TclpFreeAllocCache"); } } else if (once) { /* @@ -953,7 +953,7 @@ TclpFreeAllocCache( success = TlsFree(tlsKey); if (!success) { - Tcl_Panic("TlsFree failed from TclpFreeAllocCache!"); + Tcl_Panic("TlsFree failed from TclpFreeAllocCache"); } once = 0; /* reset for next time. */ } |