From 6933a16b87680a7df40757d369a9a6d6a6f333de Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 5 Sep 2005 10:25:54 +0000 Subject: Make symbol static to stop it from being visible outside the Tcl library on traditional Unix platforms. [Bug 1263012] --- ChangeLog | 5 +++++ generic/tclObj.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index db892fb..36037a3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2005-09-05 Donal K. Fellows + + * generic/tclObj.c (pendingObjDataKey): Added missing 'static' to stop + symbol from leaking outside the Tcl library. [Bug 1263012] + 2005-09-01 Andreas Kupries * 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)) -- cgit v0.12