summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-07-02 20:37:10 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-07-02 20:37:10 (GMT)
commitb1f2ce2cad5a74808cb19c4ab54a21c303329e51 (patch)
tree7de386a2d1c618c06d1c93c384ed4a9b18641473 /generic/tclExecute.c
parent56e0284e56164f3fbc02ab3b0621d24edf17c7a9 (diff)
downloadtcl-b1f2ce2cad5a74808cb19c4ab54a21c303329e51.zip
tcl-b1f2ce2cad5a74808cb19c4ab54a21c303329e51.tar.gz
tcl-b1f2ce2cad5a74808cb19c4ab54a21c303329e51.tar.bz2
* generic/tclExecute.c (IllegalExprOperandType): [Bug 3024379]: Made
sure that errors caused by an argument to an operator being outside the domain of the operator all result in ::errorCode being ARITH DOMAIN and not NONE.
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index a738065..95e036b 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.486 2010/06/07 21:24:59 ferrieux Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.487 2010/07/02 20:37:10 dkf Exp $
*/
#include "tclInt.h"
@@ -8191,6 +8191,7 @@ IllegalExprOperandType(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"can't use %s as operand of \"%s\"", description, operator));
+ Tcl_SetErrorCode(interp, "ARITH", "DOMAIN", description, NULL);
}
/*