diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2004-01-12 03:28:17 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2004-01-12 03:28:17 (GMT) |
| commit | af498d3cb16dc3b2e9a49c43b3c35f4ee5c1c834 (patch) | |
| tree | b639d70bbe2fecdaccda466a81503c0d0fc8a221 | |
| parent | ddebbb181a979f87cfae4b83623a50a83497cf40 (diff) | |
| download | tcl-af498d3cb16dc3b2e9a49c43b3c35f4ee5c1c834.zip tcl-af498d3cb16dc3b2e9a49c43b3c35f4ee5c1c834.tar.gz tcl-af498d3cb16dc3b2e9a49c43b3c35f4ee5c1c834.tar.bz2 | |
Fix a comment.
| -rw-r--r-- | generic/tclCompExpr.c | 5 |
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; |