diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2010-05-14 08:22:02 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2010-05-14 08:22:02 (GMT) |
| commit | 89a54625e2552985a355694d09c8cf97c158eae2 (patch) | |
| tree | 74baf4f6b7c903d9fd4ff4c39b07f7590a7e3635 | |
| parent | dc61186ca8d2bc9ff3c5b7c94a8102aa5b98e307 (diff) | |
| download | tcl-89a54625e2552985a355694d09c8cf97c158eae2.zip tcl-89a54625e2552985a355694d09c8cf97c158eae2.tar.gz tcl-89a54625e2552985a355694d09c8cf97c158eae2.tar.bz2 | |
Correct some comments (Jos Decoster found...)
| -rw-r--r-- | generic/tclCompile.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index c9598bd..5078a8d 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.185 2010/04/29 23:39:32 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.186 2010/05/14 08:22:02 dkf Exp $ */ #include "tclInt.h" @@ -156,11 +156,11 @@ InstructionDesc const tclInstructionTable[] = { {"lt", 1, -1, 0, {OPERAND_NONE}}, /* Less: push (stknext < stktop) */ {"gt", 1, -1, 0, {OPERAND_NONE}}, - /* Greater: push (stknext || stktop) */ + /* Greater: push (stknext > stktop) */ {"le", 1, -1, 0, {OPERAND_NONE}}, - /* Less or equal: push (stknext || stktop) */ + /* Less or equal: push (stknext <= stktop) */ {"ge", 1, -1, 0, {OPERAND_NONE}}, - /* Greater or equal: push (stknext || stktop) */ + /* Greater or equal: push (stknext >= stktop) */ {"lshift", 1, -1, 0, {OPERAND_NONE}}, /* Left shift: push (stknext << stktop) */ {"rshift", 1, -1, 0, {OPERAND_NONE}}, |