diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2011-03-29 15:06:26 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2011-03-29 15:06:26 (GMT) |
| commit | 8b6ecf57a6700128c345ff9e249fc359ffac0494 (patch) | |
| tree | 7b42e235b3c15fbe37739b245bd70c1458f5fe72 /generic/tclConfig.c | |
| parent | 1f2288b501d87b78488196a4de16ec58dcd95a36 (diff) | |
| download | tcl-8b6ecf57a6700128c345ff9e249fc359ffac0494.zip tcl-8b6ecf57a6700128c345ff9e249fc359ffac0494.tar.gz tcl-8b6ecf57a6700128c345ff9e249fc359ffac0494.tar.bz2 | |
More generation of errorCode information, notably when lists are mis-parsed.
Diffstat (limited to 'generic/tclConfig.c')
| -rw-r--r-- | generic/tclConfig.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclConfig.c b/generic/tclConfig.c index 8d42e21..3ad5dfd 100644 --- a/generic/tclConfig.c +++ b/generic/tclConfig.c @@ -237,6 +237,8 @@ QueryConfigObjCmd( */ Tcl_SetResult(interp, "package not known", TCL_STATIC); + Tcl_SetErrorCode(interp, "TCL", "FATAL", "PKGCFG_BASE", + Tcl_GetString(pkgName), NULL); return TCL_ERROR; } @@ -247,9 +249,11 @@ QueryConfigObjCmd( return TCL_ERROR; } - if (Tcl_DictObjGet(interp, pkgDict, objv [2], &val) != TCL_OK + if (Tcl_DictObjGet(interp, pkgDict, objv[2], &val) != TCL_OK || val == NULL) { Tcl_SetResult(interp, "key not known", TCL_STATIC); + Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "CONFIG", + Tcl_GetString(objv[2]), NULL); return TCL_ERROR; } @@ -268,6 +272,7 @@ QueryConfigObjCmd( if (!listPtr) { Tcl_SetResult(interp, "insufficient memory to create list", TCL_STATIC); + Tcl_SetErrorCode(interp, "TCL", "MEMORY", NULL); return TCL_ERROR; } |