Fri Jul 31 14:00:29 1998 Ross Johnson <rpj@swan.canberra.edu.au>

	* cleanup.c (_pthread_destructor_pop): Implement. Removes
	destructors associated with a key without executing them.
	(_pthread_destructor_pop_all): Add FIXME comment.

	* tsd.c (pthread_key_delete): Add call to _pthread_destructor_pop().

1 files changed, 2 insertions, 1 deletions

diff --git a/tsd.c b/tsd.c
index e573d3d..d1d2deb 100644
--- a/tsd.c
+++ b/tsd.c
@@ -44,7 +44,8 @@ pthread_getspecific(pthread_key_t key)
 int
 pthread_key_delete(pthread_key_t key)
 {
-  /* FIXME: We must remove any associated destructors here. */
+  /* Remove this key's destructors. */
+  _pthread_destructor_pop(key);
 
   return (TlsFree(key) == FALSE) ? EINVAL : 0;
 }