Don't raise an error if tuple allocation fails when clearing weakrefs

It's not safe to raise an exception in `PyObject_ClearWeakRefs()` if one
is not already set, since it may be called by `_Py_Dealloc()` and hit
https://github.com/python/cpython/blob/5a90de0d4cbc151a6deea36a27eb81b192410e56/Objects/object.c#L2843-L2860.

Additionally, make sure we clear the weakrefs even when tuple allocation
fails.

This bug predates pythongh-111926. If it's getting tickled now, I suspect it's
because we always allocate a tuple when clearing weakrefs that have callbacks.

Lib/test/test_weakref.py

@@ -10,6 +10,7 @@
 import threading
 import time
 import random
+import textwrap
 
 from test import support
 from test.support import script_helper, ALWAYS_EQ
@@ -1009,6 +1010,33 @@ def __del__(self): pass
         del x
         support.gc_collect()
 
+    @support.cpython_only
+    def test_no_memory_when_clearing(self):
+        # gh-118331: Make sure we do not raise an exception from the destructor
+        # when clearing weakrefs if allocating the intermediate tuple fails.
+        code = textwrap.dedent("""
+        import _testcapi
+        import weakref
+
+        class Obj:
+            pass
+
+        def callback(obj):
+            pass
+
+
+        obj = Obj()
+        # The choice of 50 is arbitrary, but must be large enough to ensure
+        # the allocation won't be serviced by the free list.
+        wrs = [weakref.ref(obj, callback) for _ in range(50)]
+        _testcapi.set_nomemory(0)
+        del obj
+        print("hi matt")
+        """).strip()
+        res = script_helper.assert_python_failure("-c", code)
+        stderr = res.err.decode("ascii", "backslashreplace")
+        self.assertNotRegex(stderr, "_Py_Dealloc: Deallocator of type")
+
 
 class SubclassableWeakrefTestCase(TestBase):
 

Objects/weakrefobject.c

@@ -1016,7 +1016,13 @@ PyObject_ClearWeakRefs(PyObject *object)
     PyObject *exc = PyErr_GetRaisedException();
     PyObject *tuple = PyTuple_New(num_weakrefs * 2);
     if (tuple == NULL) {
-        _PyErr_ChainExceptions1(exc);
+        _PyWeakref_ClearWeakRefsExceptCallbacks(object);
+        if (exc == NULL) {
+            PyErr_WriteUnraisable(object);
+        }
+        else {
+            _PyErr_ChainExceptions1(exc);
+        }
         return;
     }