X-Git-Url: https://pd.if.org/git/?p=pdclib.old;a=blobdiff_plain;f=opt%2Fpthreads%2Ftss_delete.c;fp=opt%2Fpthreads%2Ftss_delete.c;h=906c761eda577000b8bc5c28d72706c115ab39f2;hp=0000000000000000000000000000000000000000;hb=fd89f130aedf49fbdb3e4f5a24c9cedb56eea22e;hpb=f893788005db800c0bdb8d02ae2a9aa6ce3437a9

diff --git a/opt/pthreads/tss_delete.c b/opt/pthreads/tss_delete.c
new file mode 100644
index 0000000..906c761
--- /dev/null
+++ b/opt/pthreads/tss_delete.c
@@ -0,0 +1,21 @@
+#ifndef REGTEST
+#include <threads.h>
+#include <pthread.h>
+#include <assert.h>
+
+void tss_delete(tss_t key)
+{
+    assert(pthread_key_delete(key) == 0);
+}
+#endif
+
+#ifdef TEST
+#include <_PDCLIB_test.h>
+
+/* Tested in tss_get.c */
+int main( void )
+{
+    return TEST_RESULTS;
+}
+
+#endif