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/tclOOStubInit.c | |
| 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/tclOOStubInit.c')
| -rw-r--r-- | generic/tclOOStubInit.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/generic/tclOOStubInit.c b/generic/tclOOStubInit.c index b49dc12..7c7a3cc 100644 --- a/generic/tclOOStubInit.c +++ b/generic/tclOOStubInit.c @@ -1,5 +1,5 @@ /* - * $Id: tclOOStubInit.c,v 1.1 2008/05/31 11:42:19 dkf Exp $ + * $Id: tclOOStubInit.c,v 1.2 2008/05/31 23:35:27 das Exp $ * * This file is (mostly) automatically generated from tclOO.decls. * It is compiled and linked in with the tclOO package proper. @@ -13,7 +13,7 @@ /* !BEGIN!: Do not edit below this line. */ -TclOOStubs tclOOStubs = { +static const TclOOStubs tclOOStubs = { TCL_STUB_MAGIC, TCLOO_STUBS_EPOCH, TCLOO_STUBS_REVISION, @@ -48,7 +48,7 @@ TclOOStubs tclOOStubs = { Tcl_ClassSetDestructor, /* 27 */ }; -TclOOIntStubs tclOOIntStubs = { +static const TclOOIntStubs tclOOIntStubs = { TCL_STUB_MAGIC, TCLOOINT_STUBS_EPOCH, TCLOOINT_STUBS_REVISION, @@ -73,7 +73,11 @@ TclOOIntStubs tclOOIntStubs = { /* !END!: Do not edit above this line. */ -struct TclOOStubAPI tclOOStubAPI = { +static const struct TclOOStubAPI tclOOStubAPI = { &tclOOStubs, &tclOOIntStubs }; + +MODULE_SCOPE const struct TclOOStubAPI * const tclOOStubAPIPtr; +const struct TclOOStubAPI * const tclOOStubAPIPtr = &tclOOStubAPI; + |