15821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/*
25821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * ptw32_tkAssocDestroy.c
35821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
45821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Description:
55821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * This translation unit implements routines which are private to
65821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * the implementation and may be used throughout it.
75821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
85821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * --------------------------------------------------------------------------
95821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      Pthreads-win32 - POSIX Threads Library for Win32
115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      Copyright(C) 1998 John E. Bossom
125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      Copyright(C) 1999,2005 Pthreads-win32 contributors
135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      Contact Email: rpj@callisto.canberra.edu.au
155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      The current list of contributors is contained
175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      in the file CONTRIBUTORS included with the source
185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      code distribution. The list can also be seen at the
195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      following World Wide Web location:
205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      http://sources.redhat.com/pthreads-win32/contributors.html
215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      This library is free software; you can redistribute it and/or
235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      modify it under the terms of the GNU Lesser General Public
245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      License as published by the Free Software Foundation; either
255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      version 2 of the License, or (at your option) any later version.
265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      This library is distributed in the hope that it will be useful,
285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      but WITHOUT ANY WARRANTY; without even the implied warranty of
295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      Lesser General Public License for more details.
315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      You should have received a copy of the GNU Lesser General Public
335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      License along with this library in the file COPYING.LIB;
345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      if not, write to the Free Software Foundation, Inc.,
355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */
375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "pthread.h"
395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "implement.h"
405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)void
435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)ptw32_tkAssocDestroy (ThreadKeyAssoc * assoc)
445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)     /*
455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * -------------------------------------------------------------------
465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * This routine releases all resources for the given ThreadKeyAssoc
475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * once it is no longer being referenced
485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * ie) either the key or thread has stopped referencing it.
495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *
505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * Parameters:
515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              assoc
525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *                      an instance of ThreadKeyAssoc.
535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * Returns:
545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *      N/A
555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * -------------------------------------------------------------------
565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      */
575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){
585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  /*
605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   * Both key->keyLock and thread->threadLock are locked before
615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   * entry to this routine.
625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   */
635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  if (assoc != NULL)
645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    {
655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      ThreadKeyAssoc * prev, * next;
665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      /* Remove assoc from thread's keys chain */
685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      prev = assoc->prevKey;
695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      next = assoc->nextKey;
705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      if (prev != NULL)
715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	{
725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  prev->nextKey = next;
735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	}
745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      if (next != NULL)
755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	{
765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  next->prevKey = prev;
775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	}
785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      if (assoc->thread->keys == assoc)
805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	{
815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  /* We're at the head of the thread's keys chain */
825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  assoc->thread->keys = next;
835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	}
845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      if (assoc->thread->nextAssoc == assoc)
855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	{
865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  /*
875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	   * Thread is exiting and we're deleting the assoc to be processed next.
885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	   * Hand thread the assoc after this one.
895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	   */
905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  assoc->thread->nextAssoc = next;
915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	}
925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      /* Remove assoc from key's threads chain */
945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      prev = assoc->prevThread;
955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      next = assoc->nextThread;
965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      if (prev != NULL)
975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	{
985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  prev->nextThread = next;
995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	}
1005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      if (next != NULL)
1015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	{
1025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  next->prevThread = prev;
1035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	}
1045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
1055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      if (assoc->key->threads == assoc)
1065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	{
1075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  /* We're at the head of the key's threads chain */
1085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  assoc->key->threads = next;
1095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	}
1105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
1115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      free (assoc);
1125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    }
1135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
1145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)}				/* ptw32_tkAssocDestroy */
115