diff options
| author | msofer <msofer@noemail.net> | 2008-07-29 05:30:25 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2008-07-29 05:30:25 (GMT) |
| commit | b422512a4145452e42fb9f649b40bf8cefbecb17 (patch) | |
| tree | 4c1271ec62dc5e1d48fc5559a5b9e8320ba3522a /generic/tclOOBasic.c | |
| parent | 0421381590ba3bdfbf50bf66ce2b00c611532b9f (diff) | |
| download | tcl-b422512a4145452e42fb9f649b40bf8cefbecb17.zip tcl-b422512a4145452e42fb9f649b40bf8cefbecb17.tar.gz tcl-b422512a4145452e42fb9f649b40bf8cefbecb17.tar.bz2 | |
Completely revamped NRE implementation, with (almost) unchanged API.
FossilOrigin-Name: 4c5c243ec39b9eca18031add6602feb4534a6210
Diffstat (limited to 'generic/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index 2adf547..1e9bd11 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOOBasic.c,v 1.7 2008/07/18 23:29:44 msofer Exp $ + * RCS: @(#) $Id: tclOOBasic.c,v 1.8 2008/07/29 05:30:37 msofer Exp $ */ #ifdef HAVE_CONFIG_H @@ -49,11 +49,8 @@ static inline Tcl_Object * AddConstructionFinalizer( Tcl_Interp *interp) { - TEOV_record *recordPtr; - TclNRAddCallback(interp, FinalizeConstruction, NULL, NULL, NULL, NULL); - recordPtr = TOP_RECORD(interp); - return (Tcl_Object *) &recordPtr->callbackPtr->data[0]; + return (Tcl_Object *) &(TOP_CB(interp)->data[0]); } static int |