diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-05-14 08:22:02 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-05-14 08:22:02 (GMT) |
| commit | a87123e0a5a93624019b6540df8d3ca23f7a4d17 (patch) | |
| tree | 74baf4f6b7c903d9fd4ff4c39b07f7590a7e3635 | |
| parent | 6e657539a867a7c2e65602fa2ac84b92698e1efb (diff) | |
| download | tcl-a87123e0a5a93624019b6540df8d3ca23f7a4d17.zip tcl-a87123e0a5a93624019b6540df8d3ca23f7a4d17.tar.gz tcl-a87123e0a5a93624019b6540df8d3ca23f7a4d17.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}}, |