15821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/*
25821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * ptw32_tkAssocCreate.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)int
435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)ptw32_tkAssocCreate (ptw32_thread_t * sp, pthread_key_t key)
445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)     /*
455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * -------------------------------------------------------------------
465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * This routine creates an association that
475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * is unique for the given (thread,key) combination.The association
485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * is referenced by both the thread and the key.
495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * This association allows us to determine what keys the
505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * current thread references and what threads a given key
515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * references.
525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * See the detailed description
535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * at the beginning of this file for further details.
545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *
555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * Notes:
565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *      1)      New associations are pushed to the beginning of the
575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              chain so that the internal ptw32_selfThreadKey association
585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              is always last, thus allowing selfThreadExit to
595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              be implicitly called last by pthread_exit.
605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *      2)
615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *
625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * Parameters:
635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              thread
645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *                      current running thread.
655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              key
665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *                      key on which to create an association.
675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * Returns:
685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *       0              - if successful,
695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *       ENOMEM         - not enough memory to create assoc or other object
705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *       EINVAL         - an internal error occurred
715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *       ENOSYS         - an internal error occurred
725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * -------------------------------------------------------------------
735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      */
745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){
755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  ThreadKeyAssoc *assoc;
765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  /*
785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   * Have to create an association and add it
795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   * to both the key and the thread.
805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   *
815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   * Both key->keyLock and thread->threadLock are locked before
825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   * entry to this routine.
835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   */
845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  assoc = (ThreadKeyAssoc *) calloc (1, sizeof (*assoc));
855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  if (assoc == NULL)
875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    {
885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      return ENOMEM;
895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    }
905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  assoc->thread = sp;
925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  assoc->key = key;
935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  /*
955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   * Register assoc with key
965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   */
975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  assoc->prevThread = NULL;
985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  assoc->nextThread = (ThreadKeyAssoc *) key->threads;
995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  if (assoc->nextThread != NULL)
1005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    {
1015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      assoc->nextThread->prevThread = assoc;
1025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    }
1035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  key->threads = (void *) assoc;
1045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
1055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  /*
1065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   * Register assoc with thread
1075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)   */
1085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  assoc->prevKey = NULL;
1095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  assoc->nextKey = (ThreadKeyAssoc *) sp->keys;
1105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  if (assoc->nextKey != NULL)
1115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    {
1125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      assoc->nextKey->prevKey = assoc;
1135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    }
1145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  sp->keys = (void *) assoc;
1155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
1165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  return (0);
1175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
1185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)}				/* ptw32_tkAssocCreate */
119