diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2025-09-17 05:24:07 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2025-09-17 05:24:07 (GMT) |
| commit | 5ab8b8b3d8634976de5ffb5fd04eed6fd1f7dc8e (patch) | |
| tree | a02d02be73a7cb1357555dfeef748f3a4065336d /generic/tclListObj.c | |
| parent | 4b5c6bedda3393e42f06dfb50a5af067c3173b33 (diff) | |
| parent | 133e32482931da3d774c7c0c8f6f176639c0639c (diff) | |
| download | tcl-core-apn-init-refactor.zip tcl-core-apn-init-refactor.tar.gz tcl-core-apn-init-refactor.tar.bz2 | |
Merge trunkcore-apn-init-refactor
Diffstat (limited to 'generic/tclListObj.c')
| -rw-r--r-- | generic/tclListObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index cb60b00..67e8e03 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -503,9 +503,9 @@ TclListLimitExceededError( * in Tcl_Size. */ if (interp != NULL) { - Tcl_SetObjResult(interp, - Tcl_ObjPrintf("max length (%" TCL_SIZE_MODIFIER - "d) of a Tcl list exceeded", (Tcl_Size)LIST_MAX)); + Tcl_SetObjResult(interp, Tcl_ObjPrintf( + "max length (%" TCL_SIZE_MODIFIER "d) of a Tcl list exceeded", + (Tcl_Size)LIST_MAX)); Tcl_SetErrorCode(interp, "TCL", "MEMORY", (char *)NULL); } return TCL_ERROR; |