summaryrefslogtreecommitdiffstats
path: root/generic/tclCompExpr.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2004-01-12 03:28:17 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2004-01-12 03:28:17 (GMT)
commitaf498d3cb16dc3b2e9a49c43b3c35f4ee5c1c834 (patch)
treeb639d70bbe2fecdaccda466a81503c0d0fc8a221 /generic/tclCompExpr.c
parentddebbb181a979f87cfae4b83623a50a83497cf40 (diff)
downloadtcl-af498d3cb16dc3b2e9a49c43b3c35f4ee5c1c834.zip
tcl-af498d3cb16dc3b2e9a49c43b3c35f4ee5c1c834.tar.gz
tcl-af498d3cb16dc3b2e9a49c43b3c35f4ee5c1c834.tar.bz2
Fix a comment.
Diffstat (limited to 'generic/tclCompExpr.c')
-rw-r--r--generic/tclCompExpr.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c
index c3b4952..4a4275c 100644
--- a/generic/tclCompExpr.c
+++ b/generic/tclCompExpr.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCompExpr.c,v 1.18 2004/01/12 03:23:31 msofer Exp $
+ * RCS: @(#) $Id: tclCompExpr.c,v 1.19 2004/01/12 03:28:17 msofer Exp $
*/
#include "tclInt.h"
@@ -597,8 +597,7 @@ CompileLandOrLorExpr(exprTokenPtr, opIndex, infoPtr, envPtr, endPtrPtr)
* after the first subexpression. */
JumpFixup shortCircuitFixup2;/* Used to fix up the second jump to the
* short-circuit target. */
- JumpFixup endFixup; /* Used to fix up jumps used to convert the
- * first operand to 0 or 1. */
+ JumpFixup endFixup; /* Used to fix up jumpto the end. */
Tcl_Token *tokenPtr;
int dist, code;
int savedStackDepth = envPtr->currStackDepth;