diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-09-13 03:33:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-09-13 03:33:43 (GMT) |
| commit | 6fef99593ff6cf1e4f504ca2a9ddabbd0d17c04b (patch) | |
| tree | 9847cccacf3809c860f8d177d6760aabd8c8bca3 /generic/tclCompExpr.c | |
| parent | c34e729136c3608344a630fc086235da2a4092e4 (diff) | |
| download | tcl-6fef99593ff6cf1e4f504ca2a9ddabbd0d17c04b.zip tcl-6fef99593ff6cf1e4f504ca2a9ddabbd0d17c04b.tar.gz tcl-6fef99593ff6cf1e4f504ca2a9ddabbd0d17c04b.tar.bz2 | |
More macro use.
Diffstat (limited to 'generic/tclCompExpr.c')
| -rw-r--r-- | generic/tclCompExpr.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index fce870b..d8e4d9f 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -2361,9 +2361,7 @@ CompileExprTree( convert = 1; } target = jumpPtr->jump.codeOffset + 2; - if (TclFixupForwardJump(envPtr, &jumpPtr->jump, - (envPtr->codeNext - envPtr->codeStart) - - jumpPtr->jump.codeOffset, 127)) { + if (TclFixupForwardJumpToHere(envPtr, &jumpPtr->jump, 127)) { target += 3; } freePtr = jumpPtr; |