summaryrefslogtreecommitdiffstats
path: root/generic/tclOOIntDecls.h
diff options
context:
space:
mode:
authordas <das>2008-05-31 23:35:27 (GMT)
committerdas <das>2008-05-31 23:35:27 (GMT)
commitc15ddd7ee91e72940a679b63fe643f1a21b4b006 (patch)
tree8421cfbab846400cfd9d99c73da61dbace260bf9 /generic/tclOOIntDecls.h
parentcb040a93eb1479ce0896588e2e4cad823dab7b55 (diff)
downloadtcl-c15ddd7ee91e72940a679b63fe643f1a21b4b006.zip
tcl-c15ddd7ee91e72940a679b63fe643f1a21b4b006.tar.gz
tcl-c15ddd7ee91e72940a679b63fe643f1a21b4b006.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:
Diffstat (limited to 'generic/tclOOIntDecls.h')
-rw-r--r--generic/tclOOIntDecls.h16
1 files changed, 5 insertions, 11 deletions
diff --git a/generic/tclOOIntDecls.h b/generic/tclOOIntDecls.h
index e39b457..f0a94dc 100644
--- a/generic/tclOOIntDecls.h
+++ b/generic/tclOOIntDecls.h
@@ -1,5 +1,5 @@
/*
- * $Id: tclOOIntDecls.h,v 1.1 2008/05/31 11:42:18 dkf Exp $
+ * $Id: tclOOIntDecls.h,v 1.2 2008/05/31 23:35:27 das Exp $
*
* This file is (mostly) automatically generated from tclOO.decls.
*/
@@ -100,7 +100,7 @@ typedef struct TclOOIntStubs {
int magic;
int epoch;
int revision;
- struct TclOOIntStubHooks *hooks;
+ CONST struct TclOOIntStubHooks *hooks;
Tcl_Object (*tclOOGetDefineCmdContext) (Tcl_Interp * interp); /* 0 */
Tcl_Method (*tclOOMakeProcInstanceMethod) (Tcl_Interp * interp, Object * oPtr, int flags, Tcl_Obj * nameObj, Tcl_Obj * argsObj, Tcl_Obj * bodyObj, const Tcl_MethodType * typePtr, ClientData clientData, Proc ** procPtrPtr); /* 1 */
@@ -120,13 +120,7 @@ typedef struct TclOOIntStubs {
void (*tclOOClassSetMixins) (Tcl_Interp * interp, Class * classPtr, int numMixins, Class *const * mixins); /* 15 */
} TclOOIntStubs;
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern const TclOOIntStubs *tclOOIntStubsPtr;
-#ifdef __cplusplus
-}
-#endif
+extern CONST TclOOIntStubs *tclOOIntStubsPtr;
#if defined(USE_TCLOO_STUBS)
@@ -204,6 +198,6 @@ extern const TclOOIntStubs *tclOOIntStubsPtr;
/* !END!: Do not edit above this line. */
struct TclOOStubAPI {
- TclOOStubs *stubsPtr;
- TclOOIntStubs *intStubsPtr;
+ CONST TclOOStubs *stubsPtr;
+ CONST TclOOIntStubs *intStubsPtr;
};