diff options
| author | das <das> | 2008-06-12 06:29:14 (GMT) |
|---|---|---|
| committer | das <das> | 2008-06-12 06:29:14 (GMT) |
| commit | 3e497c1f548a8cbba7c7211b72f9b476f4093355 (patch) | |
| tree | 51011188377a8200015fe034379e37100688c9a5 /generic/tclOO.c | |
| parent | 478314cd955802ff15753a226ac6a1e7ee7d73d8 (diff) | |
| download | tcl-3e497c1f548a8cbba7c7211b72f9b476f4093355.zip tcl-3e497c1f548a8cbba7c7211b72f9b476f4093355.tar.gz tcl-3e497c1f548a8cbba7c7211b72f9b476f4093355.tar.bz2 | |
* generic/tclOO.c: use TclOOStubs hooks field to retrieve
* generic/tclOODecls.h: TclOOIntStubs pointer. [Bug 1980953]
* generic/tclOOIntDecls.h:
* generic/tclOOStubInit.c:
* generic/tclOOStubLib.c:
Diffstat (limited to 'generic/tclOO.c')
| -rw-r--r-- | generic/tclOO.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index f374876..667210b 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOO.c,v 1.7 2008/06/02 02:19:41 kennykb Exp $ + * RCS: @(#) $Id: tclOO.c,v 1.8 2008/06/12 06:29:17 das Exp $ */ #ifdef HAVE_CONFIG_H @@ -118,7 +118,7 @@ static char initScript[] = /* "tcl_findLibrary tcloo $oo::version $oo::version" */ /* " tcloo.tcl OO_LIBRARY oo::library;"; */ -MODULE_SCOPE const struct TclOOStubAPI * const tclOOStubAPIPtr; +MODULE_SCOPE const TclOOStubs * const tclOOConstStubPtr; /* * Convenience macro for getting the foundation from an interpreter. @@ -164,7 +164,7 @@ TclOOInit( } return Tcl_PkgProvideEx(interp, "TclOO", TCLOO_VERSION, - (ClientData) tclOOStubAPIPtr); + (ClientData) tclOOConstStubPtr); } /* |