summaryrefslogtreecommitdiffstats
path: root/generic/tclStubInit.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-10-17 09:00:02 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-10-17 09:00:02 (GMT)
commit4741ec5d8c5c8fc4c2c5895e6b8852f3f82aa5d0 (patch)
treed0542957eb5a41ed5c27ec02f086f9773a928068 /generic/tclStubInit.c
parent64a2d647eb9cb9a1c7aa46731e7323fb5407105a (diff)
parenta31cc592a4e4c6d1ba5a4f0e12457adcfe668d15 (diff)
downloadtcl-4741ec5d8c5c8fc4c2c5895e6b8852f3f82aa5d0.zip
tcl-4741ec5d8c5c8fc4c2c5895e6b8852f3f82aa5d0.tar.gz
tcl-4741ec5d8c5c8fc4c2c5895e6b8852f3f82aa5d0.tar.bz2
Eliminate TclOOInitializeStubs() completely. This fixes [dfc08326e3], at least the TclOOInitializeStubs() surprise part of it.
Further refactoring is possible, eliminating tclOOStubsPtr and/or tclOOIntStubsPtr. A discussion about that is opened on the Tcl Core List. This is fully source compatible for TclOO extensions (e.g. Itcl, tdbc) but binary incompatible. TODO: update documentation, but that can wait until the refactoring is complete.
Diffstat (limited to 'generic/tclStubInit.c')
-rwxr-xr-x[-rw-r--r--]generic/tclStubInit.c12
1 files changed, 11 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 5fb501a..b430456 100644..100755
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -10,8 +10,16 @@
*/
#include "tclInt.h"
+#include "tclOOInt.h"
#include "tommath.h"
+/*
+ * The actual definition of the variable holding the TclOO stub table.
+ */
+
+MODULE_SCOPE const TclOOStubs tclOOStubs;
+MODULE_SCOPE const TclOOIntStubs tclOOIntStubs;
+
#ifdef __GNUC__
#pragma GCC dependency "tcl.decls"
#pragma GCC dependency "tclInt.decls"
@@ -694,7 +702,9 @@ const TclTomMathStubs tclTomMathStubs = {
static const TclStubHooks tclStubHooks = {
&tclPlatStubs,
&tclIntStubs,
- &tclIntPlatStubs
+ &tclIntPlatStubs,
+ &tclOOStubs,
+ &tclOOIntStubs
};
const TclStubs tclStubs = {