From bc96f3b4b889891cb685c4bbcaf12166ca08331c Mon Sep 17 00:00:00 2001 From: Sebastian Huber Date: Tue, 23 Jan 2018 09:53:06 +0100 Subject: 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. --- testsuites/ada/support/init.c | 4 ++-- testsuites/ada/support/test_support.adb | 4 ++-- testsuites/ada/support/test_support.ads | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) (limited to 'testsuites/ada/support') diff --git a/testsuites/ada/support/init.c b/testsuites/ada/support/init.c index 3e395fc15f..413e52e1eb 100644 --- a/testsuites/ada/support/init.c +++ b/testsuites/ada/support/init.c @@ -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(); diff --git a/testsuites/ada/support/test_support.adb b/testsuites/ada/support/test_support.adb index bc636cee11..6a46b427ce 100644 --- a/testsuites/ada/support/test_support.adb +++ b/testsuites/ada/support/test_support.adb @@ -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; diff --git a/testsuites/ada/support/test_support.ads b/testsuites/ada/support/test_support.ads index e3a71a33a0..a15574782e 100644 --- a/testsuites/ada/support/test_support.ads +++ b/testsuites/ada/support/test_support.ads @@ -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 -- cgit v1.2.3