diff options
| author | dkf <dkf@noemail.net> | 2010-02-25 10:56:15 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2010-02-25 10:56:15 (GMT) |
| commit | 72b67bdd447a81b6cd3a4c04e4d12a87cbca8dde (patch) | |
| tree | 59e6afa0842bbb0763beaa23e6a0c0229f683fc7 /generic/tclCompCmds.c | |
| parent | 0ee37c8bb4821113a5c22eb83c0491e0dfa52211 (diff) | |
| download | tcl-72b67bdd447a81b6cd3a4c04e4d12a87cbca8dde.zip tcl-72b67bdd447a81b6cd3a4c04e4d12a87cbca8dde.tar.gz tcl-72b67bdd447a81b6cd3a4c04e4d12a87cbca8dde.tar.bz2 | |
Correct silly error with missing semicolons
FossilOrigin-Name: b6f587edd7f05ef514340b847c8ce2b14bc83339
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 */ |