diff options
| author | Pietro Cerutti <gahr@FreeBSD.org> | 2021-09-10 07:02:57 +0000 |
|---|---|---|
| committer | Pietro Cerutti <gahr@FreeBSD.org> | 2021-09-10 07:03:41 +0000 |
| commit | 5f4f8c1bc9c9f42ce21d233d019fa6d09521c65c (patch) | |
| tree | d32a47c9e2ff5b8ec8084c7e947d89f8f8690cb2 /lang/tcl85/files/patch-bug214205 | |
| parent | lang/tcl8[56]: fix unsafe buffer lifetime, bump PORTREVISION (diff) | |
lang/tcl85: regenerate patch files
Diffstat (limited to 'lang/tcl85/files/patch-bug214205')
| -rw-r--r-- | lang/tcl85/files/patch-bug214205 | 34 |
1 files changed, 2 insertions, 32 deletions
diff --git a/lang/tcl85/files/patch-bug214205 b/lang/tcl85/files/patch-bug214205 index 8f07de9e947c..d3176230cc9e 100644 --- a/lang/tcl85/files/patch-bug214205 +++ b/lang/tcl85/files/patch-bug214205 @@ -1,33 +1,6 @@ -Index: ../generic/tclListObj.c -================================================================== ---- ../generic/tclListObj.c +--- ../generic/tclListObj.c.orig 2021-09-10 06:40:10 UTC +++ ../generic/tclListObj.c -@@ -853,12 +853,15 @@ - */ - count = numElems - first; - } - - if (objc > LIST_MAX - (numElems - count)) { -- Tcl_SetObjResult(interp, Tcl_ObjPrintf( -- "max length of a Tcl list (%d elements) exceeded", LIST_MAX)); -+ if (interp != NULL) { -+ Tcl_SetObjResult(interp, Tcl_ObjPrintf( -+ "max length of a Tcl list (%d elements) exceeded", -+ LIST_MAX)); -+ } - return TCL_ERROR; - } - isShared = (listRepPtr->refCount > 1); - numRequired = numElems - count + objc; /* Known <= LIST_MAX */ - - -Index: ../generic/tclListObj.c -================================================================== ---- ../generic/tclListObj.c -+++ ../generic/tclListObj.c -@@ -844,15 +844,12 @@ - if (first >= numElems) { - first = numElems; /* So we'll insert after last element. */ +@@ -846,11 +846,8 @@ } if (count < 0) { count = 0; @@ -41,6 +14,3 @@ Index: ../generic/tclListObj.c count = numElems - first; } - if (objc > LIST_MAX - (numElems - count)) { - if (interp != NULL) { - |