diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2003-09-12 23:55:32 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2003-09-12 23:55:32 (GMT) |
| commit | 0cb940787a47f83bb0a7f9f354f115cd4eaa2251 (patch) | |
| tree | 2f2c7e65505a410bb72e9cc37de0a6baab73939f /generic/tclCompile.c | |
| parent | 0d70876ddc50e6969f542ee8b439b1a63ae166b1 (diff) | |
| download | tcl-0cb940787a47f83bb0a7f9f354f115cd4eaa2251.zip tcl-0cb940787a47f83bb0a7f9f354f115cd4eaa2251.tar.gz tcl-0cb940787a47f83bb0a7f9f354f115cd4eaa2251.tar.bz2 | |
TIP#123 Implementation based on work by Arjen Markus. [Patch 655176]
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index e76048b..10845d3 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.49 2003/05/09 13:53:42 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.50 2003/09/12 23:55:32 dkf Exp $ */ #include "tclInt.h" @@ -271,6 +271,8 @@ InstructionDesc tclInstructionTable[] = { */ {"return", 1, -1, 0, {OPERAND_NONE}}, /* return TCL_RETURN code. */ + {"expon", 1, -1, 0, {OPERAND_NONE}}, + /* Binary exponentiation operator: push (stknext ** stktop) */ {0} }; |