diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-08-10 12:15:28 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-08-10 12:15:28 (GMT) |
| commit | 5fecb2e14300561bac581946809bf4414edb16a3 (patch) | |
| tree | 8cd60dbc9d7cd070ffaff79758e86c8cca2f24bb /win | |
| parent | 3f4ee0c4c41cca715f2b78d15c7823ab14e0cb62 (diff) | |
| download | tcl-5fecb2e14300561bac581946809bf4414edb16a3.zip tcl-5fecb2e14300561bac581946809bf4414edb16a3.tar.gz tcl-5fecb2e14300561bac581946809bf4414edb16a3.tar.bz2 | |
Various minor object file size efficiency fixes. [Bug 1530474]
Diffstat (limited to 'win')
| -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. */ } |