summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-05-14 08:22:02 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-05-14 08:22:02 (GMT)
commita87123e0a5a93624019b6540df8d3ca23f7a4d17 (patch)
tree74baf4f6b7c903d9fd4ff4c39b07f7590a7e3635
parent6e657539a867a7c2e65602fa2ac84b92698e1efb (diff)
downloadtcl-a87123e0a5a93624019b6540df8d3ca23f7a4d17.zip
tcl-a87123e0a5a93624019b6540df8d3ca23f7a4d17.tar.gz
tcl-a87123e0a5a93624019b6540df8d3ca23f7a4d17.tar.bz2
Correct some comments (Jos Decoster found...)
-rw-r--r--generic/tclCompile.c8
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}},