diff options
| author | dgp <dgp@users.sourceforge.net> | 2025-09-04 17:57:13 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2025-09-04 17:57:13 (GMT) |
| commit | 866ce7330cbe056cb99e222a3a3a25d988daee19 (patch) | |
| tree | 464f91b120ca5b4c75020f813d4dfb98c4d16281 | |
| parent | 0bab37f12c15af938e4a9417e48a2172c324b979 (diff) | |
| download | tcl-866ce7330cbe056cb99e222a3a3a25d988daee19.zip tcl-866ce7330cbe056cb99e222a3a3a25d988daee19.tar.gz tcl-866ce7330cbe056cb99e222a3a3a25d988daee19.tar.bz2 | |
[5927f87da3] Remove outdated limit on argument size.
| -rw-r--r-- | generic/tclObj.c | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index b84514e..bc1c0fc 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -3812,14 +3812,6 @@ Tcl_GetNumber( if (numBytes < 0) { numBytes = strlen(bytes); } - if (numBytes > INT_MAX) { - if (interp) { - Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "max size for a Tcl value (%d bytes) exceeded", INT_MAX)); - Tcl_SetErrorCode(interp, "TCL", "MEMORY", (char *)NULL); - } - return TCL_ERROR; - } objPtr->bytes = (char *) bytes; objPtr->length = numBytes; |