diff options
author | das <das@noemail.net> | 2008-06-12 06:29:13 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2008-06-12 06:29:13 (GMT) |
commit | 4af2acb72ecdf98016bd17dc16f3bdd7879f0465 (patch) | |
tree | 51011188377a8200015fe034379e37100688c9a5 /generic/tclOO.c | |
parent | d9fedf9132e2e2c1963b91a379618430363a9c57 (diff) | |
download | tcl-4af2acb72ecdf98016bd17dc16f3bdd7879f0465.zip tcl-4af2acb72ecdf98016bd17dc16f3bdd7879f0465.tar.gz tcl-4af2acb72ecdf98016bd17dc16f3bdd7879f0465.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:
FossilOrigin-Name: 7e4d255b669650f3552ae0f5aae42777e19da9f9
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); } /* |