summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-03-19 16:51:41 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-03-19 16:51:41 (GMT)
commitd9155272bb564f8042c5e7ff324807a01c31bc83 (patch)
treeae9311f08dbcb62362114996a3674c7d55de2c9c /generic/tclCompile.c
parentdd21b2af3a8ddd0cbcffc3949ed0f9f581042d01 (diff)
downloadtcl-d9155272bb564f8042c5e7ff324807a01c31bc83.zip
tcl-d9155272bb564f8042c5e7ff324807a01c31bc83.tar.gz
tcl-d9155272bb564f8042c5e7ff324807a01c31bc83.tar.bz2
* generic/tclCompCmds.c (TclCompileReturnCmd): Alternative fix for
* generic/tclCompile.c (INST_RETURN): [Bug 633204] that uses a new * generic/tclCompile.h (INST_RETURN): bytecode INST_RETURN to * generic/tclExecute.c (INST_RETURN): properly bytecode the [return] command to something that returns TCL_RETURN.
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index c98348f..6812331 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.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: tclCompile.c,v 1.44 2003/03/13 02:48:52 dgp Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.45 2003/03/19 16:51:42 dgp Exp $
*/
#include "tclInt.h"
@@ -269,6 +269,8 @@ InstructionDesc tclInstructionTable[] = {
* stacked objs: stktop is old value, next is new element value, next
* come (operand-2) indices; pushes the new value.
*/
+ {"return", 1, -1, 0, {OPERAND_NONE}},
+ /* return TCL_RETURN code. */
{0}
};