OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [exec/] [posix/] [src/] [adasupp.c] - Blame information for rev 593

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 30 unneback
/*
2
 *  $Id: adasupp.c,v 1.2 2001-09-27 11:59:17 chris Exp $
3
 */
4
 
5
#include <assert.h>
6
#include <errno.h>
7
#include <pthread.h>
8
 
9
#include <rtems/system.h>
10
#include <rtems/posix/pthread.h>
11
 
12
/*PAGE
13
 *
14
 *  _ada_pthread_minimum_stack_size
15
 *
16
 *  This routine returns the minimum stack size so the GNAT RTS can
17
 *  allocate enough stack for Ada tasks.
18
 */
19
 
20
size_t _ada_pthread_minimum_stack_size( void )
21
{
22
  /*
23
   *  Eventually this may need to include a per cpu family calculation
24
   *  but for now, this will do.
25
   */
26
 
27
  return PTHREAD_MINIMUM_STACK_SIZE * 2;
28
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.