diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-05 17:00:15 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-05 17:00:15 (GMT) |
commit | 04164283e8b2c57d6a9ed117ae942dba5e47a05d (patch) | |
tree | fba7add0167b84877ab97fbd1f156b0070fe9382 /generic/tclCompCmds.c | |
parent | c3ba561b42a9a5ebac6660b70f30f37c923e0551 (diff) | |
parent | cd913d408822d48fec348677c83d77730bfb64e2 (diff) | |
download | tcl-04164283e8b2c57d6a9ed117ae942dba5e47a05d.zip tcl-04164283e8b2c57d6a9ed117ae942dba5e47a05d.tar.gz tcl-04164283e8b2c57d6a9ed117ae942dba5e47a05d.tar.bz2 |
merge main working branch
Diffstat (limited to 'generic/tclCompCmds.c')
-rw-r--r-- | generic/tclCompCmds.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 05b6d07..d1d7a80 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -278,7 +278,7 @@ TclCompileArraySetCmd( if (isDataValid && !isDataEven) { PushStringLiteral(envPtr, "list must have an even number of elements"); - PushStringLiteral(envPtr, "-errorCode {TCL ARGUMENT FORMAT}"); + PushStringLiteral(envPtr, "-errorcode {TCL ARGUMENT FORMAT}"); TclEmitInstInt4(INST_RETURN_IMM, TCL_ERROR, envPtr); TclEmitInt4( 0, envPtr); goto done; @@ -373,7 +373,7 @@ TclCompileArraySetCmd( offsetFwd = CurrentOffset(envPtr); TclEmitInstInt1(INST_JUMP_FALSE1, 0, envPtr); PushStringLiteral(envPtr, "list must have an even number of elements"); - PushStringLiteral(envPtr, "-errorCode {TCL ARGUMENT FORMAT}"); + PushStringLiteral(envPtr, "-errorcode {TCL ARGUMENT FORMAT}"); TclEmitInstInt4(INST_RETURN_IMM, TCL_ERROR, envPtr); TclEmitInt4( 0, envPtr); TclAdjustStackDepth(-1, envPtr); |