diff options
| author | griffin <briang42@easystreet.net> | 2023-05-25 20:55:52 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-05-25 20:55:52 (GMT) |
| commit | 22306f855bf51086d44dcd3c7c48cfcca54a733e (patch) | |
| tree | 95b82488cca1b7a439d7f9d4948d5f46e2775322 /generic/tclTest.c | |
| parent | 09bc3f703368aba6ab9349cb6df1f217b49d6241 (diff) | |
| parent | 0657f97bc5e5f5b835c2c60713f306fb97950a89 (diff) | |
| download | tcl-22306f855bf51086d44dcd3c7c48cfcca54a733e.zip tcl-22306f855bf51086d44dcd3c7c48cfcca54a733e.tar.gz tcl-22306f855bf51086d44dcd3c7c48cfcca54a733e.tar.bz2 | |
merge trunk, fix leak.
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index e701834..4bfd810 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -5765,6 +5765,9 @@ TestbytestringObjCmd( #if !defined(TCL_NO_DEPRECATED) # if defined(_MSC_VER) && !defined(NDEBUG) # pragma warning(disable:4133) +# elif defined(__clang__) +# pragma clang diagnostic push +# pragma clang diagnostic ignored "-Wincompatible-pointer-types" # endif int n; /* On purpose, not Tcl_Size, in order to demonstrate what happens */ #else @@ -5783,6 +5786,10 @@ TestbytestringObjCmd( if (p == NULL) { return TCL_ERROR; } +#if !defined(TCL_NO_DEPRECATED) && defined(__clang__) +# pragma clang diagnostic pop +#endif + if (x.m != 1) { Tcl_AppendResult(interp, "Tcl_GetBytesFromObj() overwrites variable", NULL); return TCL_ERROR; |