summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2004-12-20 21:20:02 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2004-12-20 21:20:02 (GMT)
commit3f7f31fb81efcc04c41dcc79f2417a766353ad66 (patch)
tree395d156e658c6393f8807155e0a8f51127caf620 /generic
parent908cedaec87fc9bb58ce5780cf8c00f61b2f128b (diff)
downloadtcl-3f7f31fb81efcc04c41dcc79f2417a766353ad66.zip
tcl-3f7f31fb81efcc04c41dcc79f2417a766353ad66.tar.gz
tcl-3f7f31fb81efcc04c41dcc79f2417a766353ad66.tar.bz2
fix for last commit; thanks dgp and tclguy for catch/classify/throw
Diffstat (limited to 'generic')
-rw-r--r--generic/tclProc.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c
index c5a8dc7..89434b3 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclProc.c,v 1.70 2004/12/20 18:27:19 msofer Exp $
+ * RCS: @(#) $Id: tclProc.c,v 1.71 2004/12/20 21:20:06 msofer Exp $
*/
#include "tclInt.h"
@@ -1228,13 +1228,13 @@ TclObjInterpProc(clientData, interp, objc, objv)
Tcl_IncrRefCount(objPtr); /* local var is a reference */
} else {
Tcl_Obj **desiredObjs, *argObj;
- ByteCode *codePtr = (ByteCode *) procPtr->bodyPtr->internalRep.otherValuePtr;
+ ByteCode *codePtr;
incorrectArgs:
/*
* Do initialise all compiled locals, to avoid problems at
* DeleteLocalVars.
*/
-
+ codePtr = (ByteCode *) procPtr->bodyPtr->internalRep.otherValuePtr;
InitCompiledLocals(interp, codePtr, localPtr, varPtr, nsPtr);
/*