Subversion Repositories or1k

/*

 *  $Id: adasupp.c,v 1.2 2001-09-27 11:59:17 chris Exp $

 */

#include <assert.h>

#include <errno.h>

#include <pthread.h>

#include <rtems/system.h>

#include <rtems/posix/pthread.h>

/*PAGE

 *

 *  _ada_pthread_minimum_stack_size

 *

 *  This routine returns the minimum stack size so the GNAT RTS can

 *  allocate enough stack for Ada tasks.

 */

size_t _ada_pthread_minimum_stack_size( void )

{

  /*

   *  Eventually this may need to include a per cpu family calculation

   *  but for now, this will do.

   */

  return PTHREAD_MINIMUM_STACK_SIZE * 2;

}