diff options
| author | das <das> | 2008-04-16 14:49:28 (GMT) |
|---|---|---|
| committer | das <das> | 2008-04-16 14:49:28 (GMT) |
| commit | afd0f9b3f6990bb1d44b22b117df3fbb4a535a85 (patch) | |
| tree | 9f4d763e4feec43980c4ccc9d7e151d0af7b0c91 /generic/tclInt.h | |
| parent | f2cc98583dc54f92e54639280c862772682ad3ab (diff) | |
| download | tcl-afd0f9b3f6990bb1d44b22b117df3fbb4a535a85.zip tcl-afd0f9b3f6990bb1d44b22b117df3fbb4a535a85.tar.gz tcl-afd0f9b3f6990bb1d44b22b117df3fbb4a535a85.tar.bz2 | |
* generic/tclInt.h: make stubs tables 'static const' and
* generic/tclStubInit.c: export only module-scope pointers to
* generic/tclStubLib.c: the main stubs tables (for package
* tools/genStubs.tcl: initialization). [Patch 1938497]
* generic/tclBasic.c (Tcl_CreateInterp):
* generic/tclTomMathInterface.c (TclTommath_Init):
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 7af390d..f2a125b 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.364 2008/04/16 14:29:25 das Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.365 2008/04/16 14:49:29 das Exp $ */ #ifndef _TCLINT @@ -1605,7 +1605,8 @@ typedef struct Interp { int errorLine; /* When TCL_ERROR is returned, this gives the * line number in the command where the error * occurred (1 means first line). */ - struct TclStubs *stubTable; /* Pointer to the exported Tcl stub table. On + const struct TclStubs *stubTable; + /* Pointer to the exported Tcl stub table. On * previous versions of Tcl this is a pointer * to the objResultPtr or a pointer to a * buckets array in a hash table. We therefore |