summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-11 04:49:08 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-11 04:49:08 (GMT)
commit7eabd2838a8210a30da24672179294fd7d8b1b0a (patch)
treeee9d15b2246dfb0db3931b2404e58deca134ca59 /generic
parent28bb618586416fbb3c1c9a710cf88e5f8d924025 (diff)
downloadtcl-7eabd2838a8210a30da24672179294fd7d8b1b0a.zip
tcl-7eabd2838a8210a30da24672179294fd7d8b1b0a.tar.gz
tcl-7eabd2838a8210a30da24672179294fd7d8b1b0a.tar.bz2
Make use of the existing JumpFixup fields. Eliminate extra storage
field 'offset' in JumpList that we don't require.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompExpr.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c
index c2b5a1a..0021323 100644
--- a/generic/tclCompExpr.c
+++ b/generic/tclCompExpr.c
@@ -490,8 +490,6 @@ typedef struct JumpList {
JumpFixup jump; /* Pass this argument to matching calls of
* TclEmitForwardJump() and
* TclFixupForwardJump(). */
- int offset; /* Data used to compute jump lengths to pass
- * to TclFixupForwardJump() */
int convert; /* Temporary storage used to compute whether
* numeric conversion will be needed following
* the operator we're compiling. */
@@ -2320,7 +2318,6 @@ CompileExprTree(
TclEmitForwardJump(envPtr, TCL_UNCONDITIONAL_JUMP,
&jumpPtr->next->jump);
TclAdjustStackDepth(-1, envPtr);
- jumpPtr->offset = (envPtr->codeNext - envPtr->codeStart);
jumpPtr->convert = convert;
convert = 1;
break;
@@ -2374,10 +2371,10 @@ CompileExprTree(
if (TclFixupForwardJump(envPtr, &jumpPtr->next->jump,
(envPtr->codeNext - envPtr->codeStart)
- jumpPtr->next->jump.codeOffset, 127)) {
- jumpPtr->offset += 3;
+ jumpPtr->next->jump.codeOffset += 3;
}
TclFixupForwardJump(envPtr, &jumpPtr->jump,
- jumpPtr->offset - jumpPtr->jump.codeOffset, 127);
+ jumpPtr->next->jump.codeOffset + 2 -jumpPtr->jump.codeOffset, 127);
convert |= jumpPtr->convert;
freePtr = jumpPtr;
jumpPtr = jumpPtr->next;