summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-05-11 09:44:59 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-05-11 09:44:59 (GMT)
commit2ce642c374a6403c5272469379b4f0b54c663bd9 (patch)
tree7edd501628e3b80b3472c33ab27d5f561a89c2e8 /generic/tclVar.c
parent4b9406ae79a867ac821668ae287518e26ed85283 (diff)
downloadtcl-2ce642c374a6403c5272469379b4f0b54c663bd9.zip
tcl-2ce642c374a6403c5272469379b4f0b54c663bd9.tar.gz
tcl-2ce642c374a6403c5272469379b4f0b54c663bd9.tar.bz2
Minor whitespace cleanup
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r--generic/tclVar.c7
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index dc76825..53e7739 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclVar.c,v 1.134 2007/05/07 19:45:34 dgp Exp $
+ * RCS: @(#) $Id: tclVar.c,v 1.135 2007/05/11 09:44:59 dkf Exp $
*/
#include "tclInt.h"
@@ -976,6 +976,8 @@ TclLookupArrayElement(
if (hPtr == NULL) {
if (flags & TCL_LEAVE_ERR_MSG) {
TclVarErrMsg(interp, arrayName, elName, msg, noSuchElement);
+ Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "ELEMENT", elName,
+ NULL);
}
return NULL;
}
@@ -3970,6 +3972,8 @@ ParseSearchId(
if (strcmp(string+offset, varName) != 0) {
Tcl_AppendResult(interp, "search identifier \"", string,
"\" isn't for variable \"", varName, "\"", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "ARRAYSEARCH", string,
+ NULL);
return NULL;
}
@@ -3989,6 +3993,7 @@ ParseSearchId(
}
}
Tcl_AppendResult(interp, "couldn't find search \"", string, "\"", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "ARRAYSEARCH", string, NULL);
return NULL;
}