diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-22 13:48:40 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-22 13:48:40 (GMT) |
| commit | 6b698fdbdeb2c71d4e27829e834036824d3cd5bd (patch) | |
| tree | 61a8bec7ef0f2af23551560436d8292a83f0e87e /generic/tclExecute.c | |
| parent | 37d7c1ccf17d7e32d084c88f510f7639514a7676 (diff) | |
| download | tcl-6b698fdbdeb2c71d4e27829e834036824d3cd5bd.zip tcl-6b698fdbdeb2c71d4e27829e834036824d3cd5bd.tar.gz tcl-6b698fdbdeb2c71d4e27829e834036824d3cd5bd.tar.bz2 | |
Standardize way of calling object freeIntRepProcs...
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 4268a3e..7aa187f 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.158 2004/10/18 21:15:38 dgp Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.159 2004/10/22 13:48:56 dkf Exp $ */ #ifdef STDC_HEADERS @@ -758,7 +758,7 @@ Tcl_ExprObj(interp, objPtr, resultPtrPtr) } codePtr->compileEpoch = iPtr->compileEpoch; } else { - (*tclByteCodeType.freeIntRepProc)(objPtr); + objPtr->typePtr->freeIntRepProc(objPtr); objPtr->typePtr = (Tcl_ObjType *) NULL; } } @@ -971,7 +971,7 @@ TclCompEvalObj(interp, objPtr) /* * This byteCode is invalid: free it and recompile */ - tclByteCodeType.freeIntRepProc(objPtr); + objPtr->typePtr->freeIntRepProc(objPtr); goto recompileObj; } } |