diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-05-11 09:44:59 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-05-11 09:44:59 (GMT) |
| commit | 2ce642c374a6403c5272469379b4f0b54c663bd9 (patch) | |
| tree | 7edd501628e3b80b3472c33ab27d5f561a89c2e8 /generic/tclVar.c | |
| parent | 4b9406ae79a867ac821668ae287518e26ed85283 (diff) | |
| download | tcl-2ce642c374a6403c5272469379b4f0b54c663bd9.zip tcl-2ce642c374a6403c5272469379b4f0b54c663bd9.tar.gz tcl-2ce642c374a6403c5272469379b4f0b54c663bd9.tar.bz2 | |
Minor whitespace cleanup
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 7 |
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; } |