diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-10-02 20:59:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-10-02 20:59:45 (GMT) |
| commit | 1c72973d895e9efb23ecda2553cee0a5a901f650 (patch) | |
| tree | 8a07cbfafbc8c5b8fea073e97921199f1cd90377 /generic/tclBasic.c | |
| parent | 5e54f02d48ca1b26bb819e05b20b49b8012224d4 (diff) | |
| download | tcl-1c72973d895e9efb23ecda2553cee0a5a901f650.zip tcl-1c72973d895e9efb23ecda2553cee0a5a901f650.tar.gz tcl-1c72973d895e9efb23ecda2553cee0a5a901f650.tar.bz2 | |
TIP #330 IMPLEMENTATION
* generic/tcl.h: Remove the "result" and "freeProc" fields
* generic/tclBasic.c: from the default public declaration of the
* generic/tclResult.c: Tcl_Interp struct. Code should no longer
* generic/tclStubLib.c: be accessing these fields. Access can be
* generic/tclTest.c: restored by defining USE_INTERP_RESULT, but
* generic/tclUtil.c: that should only be a temporary migration aid.
*** POTENTIAL INCOMPATIBILITY ***
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 1467523..d0a8635 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.368 2008/09/28 13:46:09 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.369 2008/10/02 20:59:45 dgp Exp $ */ #include "tclInt.h" @@ -1445,7 +1445,7 @@ DeleteInterpProc( */ Tcl_FreeResult(interp); - interp->result = NULL; + iPtr->result = NULL; Tcl_DecrRefCount(iPtr->objResultPtr); iPtr->objResultPtr = NULL; Tcl_DecrRefCount(iPtr->ecVar); @@ -6558,7 +6558,7 @@ Tcl_AddObjErrorInfo( * interp->result completely. */ - iPtr->errorInfo = Tcl_NewStringObj(interp->result, -1); + iPtr->errorInfo = Tcl_NewStringObj(iPtr->result, -1); } else { iPtr->errorInfo = iPtr->objResultPtr; } |