diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-06 18:48:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-06 18:48:35 (GMT) |
| commit | 4f9704bc3546557fd6bcd3054443f1fdf61ad5f8 (patch) | |
| tree | 15d685cfcc2644b02a3d4cd1b1a466a19c60c871 /generic/tclUtil.c | |
| parent | 4d465feb6718d732b60c69b88feaf350c5947dd6 (diff) | |
| parent | 02f1d35bc6192c9472d75082b86bc2f052058ddd (diff) | |
| download | tcl-4f9704bc3546557fd6bcd3054443f1fdf61ad5f8.zip tcl-4f9704bc3546557fd6bcd3054443f1fdf61ad5f8.tar.gz tcl-4f9704bc3546557fd6bcd3054443f1fdf61ad5f8.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 6f0aa34..05b0599 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -3963,36 +3963,6 @@ TclIndexDecode( /* *------------------------------------------------------------------------ * - * TclIndexInvalidError -- - * - * Generates an error message including the invalid index. - * - * Results: - * Always return TCL_ERROR. - * - * Side effects: - * If interp is not-NULL, an error message is stored in it. - * - *------------------------------------------------------------------------ - */ -int -TclIndexInvalidError ( - Tcl_Interp *interp, /* May be NULL */ - const char *idxType, /* The descriptive string for idx. Defaults to "index" */ - Tcl_Size idx) /* Invalid index value */ -{ - if (interp) { - Tcl_SetObjResult(interp, - Tcl_ObjPrintf("Invalid %s value %" TCL_SIZE_MODIFIER "d.", - idxType ? idxType : "index", - idx)); - } - return TCL_ERROR; /* Always */ -} - -/* - *------------------------------------------------------------------------ - * * TclCommandWordLimitErrpr -- * * Generates an error message limit on number of command words exceeded. |