RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

2008-12-16 Joel Sherrill <joel.sherrill@oarcorp.com>

Browse Source 
* libgnat/adasupp.c: Add helper method so Ada binding does not
	reference _TOD_Microseconds_per_tick.
This commit is contained in:
Joel Sherrill
2008-12-16 15:59:26 +00:00
parent b3a4579e94
commit 237f4611d2
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
cpukit/ChangeLog
View File

@@ -1,3 +1,8 @@
2008-12-16 Joel Sherrill <joel.sherrill@oarcorp.com>
* libgnat/adasupp.c: Add helper method so Ada binding does not
reference _TOD_Microseconds_per_tick.
2008-12-16 Joel Sherrill <joel.sherrill@oarcorp.com> 2008-12-16 Joel Sherrill <joel.sherrill@oarcorp.com>
* sapi/include/rtems/config.h: Remove commented out lines. Add macro * sapi/include/rtems/config.h: Remove commented out lines. Add macro

9
cpukit/libgnat/adasupp.c
View File

@@ -10,10 +10,10 @@
#include <pthread.h> #include <pthread.h>
#include <rtems/system.h> #include <rtems/system.h>
#include <rtems/config.h>
#include <rtems/posix/pthread.h> #include <rtems/posix/pthread.h>
/*PAGE /*
*
* _ada_pthread_minimum_stack_size * _ada_pthread_minimum_stack_size
* *
* This routine returns the minimum stack size so the GNAT RTS can * This routine returns the minimum stack size so the GNAT RTS can
@@ -29,3 +29,8 @@ size_t _ada_pthread_minimum_stack_size( void )
return PTHREAD_MINIMUM_STACK_SIZE * 2; return PTHREAD_MINIMUM_STACK_SIZE * 2;
} }
uint32_t _ada_microseconds_per_tick(void)
{
return rtems_configuration_get_microseconds_per_tick();
}