diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-25 10:56:16 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-25 10:56:16 (GMT) |
| commit | e5590dd89ca80546a81ef0baaa341d322c66560b (patch) | |
| tree | 59e6afa0842bbb0763beaa23e6a0c0229f683fc7 /generic/tclCompCmds.c | |
| parent | 96d071af5418655b8dfbecd0410b6e5d07bfbde5 (diff) | |
| download | tcl-e5590dd89ca80546a81ef0baaa341d322c66560b.zip tcl-e5590dd89ca80546a81ef0baaa341d322c66560b.tar.gz tcl-e5590dd89ca80546a81ef0baaa341d322c66560b.tar.bz2 | |
Correct silly error with missing semicolons
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 6010182..280ab5e 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompCmds.c,v 1.165 2010/02/22 23:31:41 nijtmans Exp $ + * RCS: @(#) $Id: tclCompCmds.c,v 1.166 2010/02/25 10:56:16 dkf Exp $ */ #include "tclInt.h" @@ -4039,9 +4039,9 @@ TclSubstCompile( breakJump = CurrentOffset(envPtr) - breakOffset; if (breakJump > 127) { - TclEmitInstInt4(INST_JUMP4, -breakJump, envPtr) + TclEmitInstInt4(INST_JUMP4, -breakJump, envPtr); } else { - TclEmitInstInt1(INST_JUMP1, -breakJump, envPtr) + TclEmitInstInt1(INST_JUMP1, -breakJump, envPtr); } /* CONTINUE destination */ |