diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-09-05 10:25:54 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-09-05 10:25:54 (GMT) |
| commit | 6933a16b87680a7df40757d369a9a6d6a6f333de (patch) | |
| tree | dd4f14540ec3eb5ccd507429ef7063ce86a560d7 | |
| parent | b815af54ad0bf8718cfb7884757a5319462f928f (diff) | |
| download | tcl-6933a16b87680a7df40757d369a9a6d6a6f333de.zip tcl-6933a16b87680a7df40757d369a9a6d6a6f333de.tar.gz tcl-6933a16b87680a7df40757d369a9a6d6a6f333de.tar.bz2 | |
Make symbol static to stop it from being visible outside the Tcl library on
traditional Unix platforms. [Bug 1263012]
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclObj.c | 4 |
2 files changed, 7 insertions, 2 deletions
@@ -1,3 +1,8 @@ +2005-09-05 Donal K. Fellows <donal.k.fellows@man.ac.uk> + + * generic/tclObj.c (pendingObjDataKey): Added missing 'static' to stop + symbol from leaking outside the Tcl library. [Bug 1263012] + 2005-09-01 Andreas Kupries <andreask@activestate.com> * unix/tclUnixSock.c (InitializeHostName): Synchronized use of diff --git a/generic/tclObj.c b/generic/tclObj.c index 9bfee26..89ff127 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.94 2005/08/17 23:57:36 georgeps Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.95 2005/09/05 10:25:54 dkf Exp $ */ #include "tclInt.h" @@ -141,7 +141,7 @@ static PendingObjData pendingObjData; #define ObjInitDeletionContext(contextPtr) \ PendingObjData *CONST contextPtr = &pendingObjData #else -Tcl_ThreadDataKey pendingObjDataKey; +static Tcl_ThreadDataKey pendingObjDataKey; #define ObjInitDeletionContext(contextPtr) \ PendingObjData *CONST contextPtr = (PendingObjData *) \ Tcl_GetThreadData(&pendingObjDataKey, sizeof(PendingObjData)) |