Subversion Repositories or1k

/*
 *  $Id: keycreate.c,v 1.2 2001-09-27 11:59:17 chris Exp $
 */
 
#include <errno.h>
#include <limits.h>
#include <pthread.h>
#include <string.h>
 
#include <rtems/system.h>
#include <rtems/score/thread.h>
#include <rtems/score/wkspace.h>
#include <rtems/posix/key.h>
 
/*PAGE
 *
 *  17.1.1 Thread-Specific Data Key Create, P1003.1c/Draft 10, p. 163
 */
 
int pthread_key_create(
  pthread_key_t  *key,
  void          (*destructor)( void * )
)
{
  POSIX_Keys_Control  *the_key;
  void                *table;
  unsigned32           the_class;
  unsigned32           bytes_to_allocate;
 
 
  _Thread_Disable_dispatch();
 
  the_key = _POSIX_Keys_Allocate();
 
  if ( !the_key ) {
    _Thread_Enable_dispatch();
    return EAGAIN;
  }
 
  the_key->destructor = destructor;
 
  /*
   *  This is a bit more complex than one might initially expect because
   *  APIs are optional.  Thus there may be no ITRON tasks to have keys
   *  for.  [NOTE: Currently RTEMS Classic API tasks are not always enabled.]
   */
 
  for ( the_class = OBJECTS_CLASSES_FIRST_THREAD_CLASS;
        the_class <= OBJECTS_CLASSES_LAST_THREAD_CLASS;
        the_class++ ) {
 
    if ( _Objects_Information_table[ the_class ] ) {
      bytes_to_allocate = sizeof( void * ) * 
        (_Objects_Information_table[ the_class ]->maximum + 1);
      table = _Workspace_Allocate( bytes_to_allocate );
      if ( !table ) {
        for ( --the_class;
              the_class >= OBJECTS_CLASSES_FIRST_THREAD_CLASS;
              the_class-- )
          _Workspace_Free( the_key->Values[ the_class ] );
 
        _POSIX_Keys_Free( the_key );
        _Thread_Enable_dispatch();
        return ENOMEM;
      }
 
      the_key->Values[ the_class ] = table;
      memset( table, '\0', bytes_to_allocate ); 
    } else {
      the_key->Values[ the_class ] = NULL;
    }
 
 
  }
 
  the_key->is_active = TRUE;
 
  _Objects_Open( &_POSIX_Keys_Information, &the_key->Object, 0 );
 
  *key = the_key->Object.id;
 
  _Thread_Enable_dispatch();
 
  return 0;
}