forked from Imagelibrary/rtems
ada: Introduce RTEMS.Size type
Some time ago the Classic API object size related parameters were changed to use size_t. Reflect this in the Ada bindings. Update #3082.
This commit is contained in:
@@ -35,7 +35,7 @@ void ada_test_begin(void);
|
||||
void ada_test_end(void);
|
||||
uint32_t milliseconds_per_tick(void);
|
||||
uint32_t ticks_per_second(void);
|
||||
uint32_t work_space_size(void);
|
||||
size_t work_space_size(void);
|
||||
uint32_t is_configured_multiprocessing(void);
|
||||
uint32_t get_node(void);
|
||||
rtems_id tcb_to_id(Thread_Control *tcb);
|
||||
@@ -84,7 +84,7 @@ uint32_t ticks_per_second(void)
|
||||
return rtems_clock_get_ticks_per_second();
|
||||
}
|
||||
|
||||
uint32_t work_space_size(void)
|
||||
size_t work_space_size(void)
|
||||
{
|
||||
return rtems_configuration_get_work_space_size()
|
||||
+ rtems_configuration_get_stack_space_size();
|
||||
|
||||
@@ -227,8 +227,8 @@ package body Test_Support is
|
||||
--
|
||||
|
||||
function Work_Space_Size
|
||||
return RTEMS.Unsigned32 is
|
||||
function Work_Space_Size_Base return RTEMS.Unsigned32;
|
||||
return RTEMS.Size is
|
||||
function Work_Space_Size_Base return RTEMS.Size;
|
||||
pragma Import (C, Work_Space_Size_Base, "work_space_size");
|
||||
begin
|
||||
return Work_Space_Size_Base;
|
||||
|
||||
@@ -181,7 +181,7 @@ package Test_Support is
|
||||
--
|
||||
|
||||
function Work_Space_Size
|
||||
return RTEMS.Unsigned32;
|
||||
return RTEMS.Size;
|
||||
|
||||
--
|
||||
-- Return an indication of whether multiprocessing is configured
|
||||
|
||||
Reference in New Issue
Block a user