diff options
Diffstat (limited to 'testsuites/ada/support')
| -rw-r--r-- | testsuites/ada/support/init.c | 4 | ||||
| -rw-r--r-- | testsuites/ada/support/test_support.adb | 4 | ||||
| -rw-r--r-- | testsuites/ada/support/test_support.ads | 2 |
3 files changed, 5 insertions, 5 deletions
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 |