diff options
author | das <das> | 2008-05-31 23:35:27 (GMT) |
---|---|---|
committer | das <das> | 2008-05-31 23:35:27 (GMT) |
commit | c15ddd7ee91e72940a679b63fe643f1a21b4b006 (patch) | |
tree | 8421cfbab846400cfd9d99c73da61dbace260bf9 /generic/tclOOIntDecls.h | |
parent | cb040a93eb1479ce0896588e2e4cad823dab7b55 (diff) | |
download | tcl-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.h | 16 |
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; }; |