diff options
| author | das <das@noemail.net> | 2008-05-31 23:35:26 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2008-05-31 23:35:26 (GMT) |
| commit | 5bccd9e995a0c4b88fa151166715629ba59c87a3 (patch) | |
| tree | 8421cfbab846400cfd9d99c73da61dbace260bf9 /generic/tclOODecls.h | |
| parent | e0b18f7a55c6638dab564f3fc8adcfd6552e39be (diff) | |
| download | tcl-5bccd9e995a0c4b88fa151166715629ba59c87a3.zip tcl-5bccd9e995a0c4b88fa151166715629ba59c87a3.tar.gz tcl-5bccd9e995a0c4b88fa151166715629ba59c87a3.tar.bz2 | |
* generic/tclOOStubLib.c: ensure use of tcl stubs; include in
* unix/Makefile.in: stub lib; disable broken tclOO genstubs
* generic/tclOO.c: make tclOO stubs tables 'static const'
* generic/tclOODecls.h: and stub table pointers MODULE_SCOPE
* generic/tclOOIntDecls.h: (change generated files manually
* generic/tclOOStubInit.c: pending genstubs support for tclOO).
* generic/tclOOStubLib.c:
* generic/tclOO.c: fix warnings for 'int<->ptr conversion'
* generic/tclOOCall.c: and 'signed vs unsigned comparison'.
* generic/tclOOMethod.c:
FossilOrigin-Name: 7efe478a950202363e8139834344966e364c3088
Diffstat (limited to 'generic/tclOODecls.h')
| -rw-r--r-- | generic/tclOODecls.h | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/generic/tclOODecls.h b/generic/tclOODecls.h index d67333b..17e140c 100644 --- a/generic/tclOODecls.h +++ b/generic/tclOODecls.h @@ -1,5 +1,5 @@ /* - * $Id: tclOODecls.h,v 1.1 2008/05/31 11:42:18 dkf Exp $ + * $Id: tclOODecls.h,v 1.2 2008/05/31 23:35:27 das Exp $ * * This file is (mostly) automatically generated from tclOO.decls. */ @@ -118,7 +118,7 @@ typedef struct TclOOStubs { int magic; int epoch; int revision; - struct TclOOStubHooks *hooks; + CONST struct TclOOStubHooks *hooks; Tcl_Object (*tcl_CopyObjectInstance) (Tcl_Interp * interp, Tcl_Object sourceObject, const char * targetName, const char * targetNamespaceName); /* 0 */ Tcl_Object (*tcl_GetClassAsObject) (Tcl_Class clazz); /* 1 */ @@ -150,13 +150,7 @@ typedef struct TclOOStubs { void (*tcl_ClassSetDestructor) (Tcl_Interp * interp, Tcl_Class clazz, Tcl_Method method); /* 27 */ } TclOOStubs; -#ifdef __cplusplus -extern "C" { -#endif -extern const TclOOStubs *tclOOStubsPtr; -#ifdef __cplusplus -} -#endif +extern CONST TclOOStubs *tclOOStubsPtr; #if defined(USE_TCLOO_STUBS) |