Added internal routine PyString_Fini() which deletes all interned

strings.  For use in Py_Finalize() only.

diff --git a/Objects/stringobject.c b/Objects/stringobject.c
index 5e3f9fac2dec72991c917eccb65382fb7b0f7a61..40dfc9ecd8af1dcc5e342fd91392c623bd1da89a 100644 (file)
--- a/Objects/stringobject.c
+++ b/Objects/stringobject.c
@@ -1073,3 +1073,21 @@ PyString_InternFromString(cp)
 }
 
 #endif
+
+void
+PyString_Fini()
+{
+       int i;
+#ifdef INTERN_STRINGS
+       Py_XDECREF(interned);
+       interned = NULL;
+#endif
+       for (i = 0; i < UCHAR_MAX + 1; i++) {
+               Py_XDECREF(characters[i]);
+               characters[i] = NULL;
+       }
+#ifndef DONT_SHARE_SHORT_STRINGS
+       Py_XDECREF(nullstring);
+       nullstring = NULL;
+#endif
+}