diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2007-10-27 13:15:57 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2007-10-27 13:15:57 (GMT) |
| commit | 335056e221f3314f00a82353c10a93880ba46f55 (patch) | |
| tree | aefaf046bf6f86945a1d0c5a2fe3f6e9b0740d07 | |
| parent | fa4a04163f4966cc813aa45279e46f5a5781c253 (diff) | |
| download | tcl-335056e221f3314f00a82353c10a93880ba46f55.zip tcl-335056e221f3314f00a82353c10a93880ba46f55.tar.gz tcl-335056e221f3314f00a82353c10a93880ba46f55.tar.bz2 | |
* generic/tclCompile.h:
* generic/tclInt.h: moved declaration of TclSetCmdNameObj from
tclCompile.h to tclInt.h, reverting linker [Bug 1821159] caused by
commit of 2007-10-11 (both I and gcc missed one dep).
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | generic/tclCompile.h | 4 | ||||
| -rw-r--r-- | generic/tclInt.h | 4 |
3 files changed, 11 insertions, 4 deletions
@@ -1,5 +1,12 @@ 2007-10-27 Miguel Sofer <msofer@users.sf.net> + * generic/tclCompile.h: + * generic/tclInt.h: moved declaration of TclSetCmdNameObj from + tclCompile.h to tclInt.h, reverting linker [Bug 1821159] caused by + commit of 2007-10-11 (both I and gcc missed one dep). + +2007-10-27 Miguel Sofer <msofer@users.sf.net> + * generic/tclVar.c: try to preserve Tcl_Objs when doing variable lookups by name, partially addressing [Bug 1793601] diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 2db976a..3e02b1d 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -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: tclCompile.h,v 1.81 2007/10/25 20:02:10 das Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.82 2007/10/27 13:15:58 msofer Exp $ */ #ifndef _TCLCOMPILATION @@ -916,8 +916,6 @@ MODULE_SCOPE void TclRegisterAuxDataType(AuxDataType *typePtr); MODULE_SCOPE int TclRegisterLiteral(CompileEnv *envPtr, char *bytes, int length, int flags); MODULE_SCOPE void TclReleaseLiteral(Tcl_Interp *interp, Tcl_Obj *objPtr); -MODULE_SCOPE void TclSetCmdNameObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Command *cmdPtr); MODULE_SCOPE int TclSingleOpCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); diff --git a/generic/tclInt.h b/generic/tclInt.h index b589085..03e14c6 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.336 2007/09/25 20:27:17 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.337 2007/10/27 13:15:58 msofer Exp $ */ #ifndef _TCLINT @@ -2534,6 +2534,8 @@ MODULE_SCOPE void TclSetBgErrorHandler(Tcl_Interp *interp, Tcl_Obj *cmdPrefix); MODULE_SCOPE void TclSetBignumIntRep (Tcl_Obj *objPtr, mp_int *bignumValue); +MODULE_SCOPE void TclSetCmdNameObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + Command *cmdPtr); MODULE_SCOPE void TclSetProcessGlobalValue(ProcessGlobalValue *pgvPtr, Tcl_Obj *newValue, Tcl_Encoding encoding); MODULE_SCOPE void TclSignalExitThread(Tcl_ThreadId id, int result); |