diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2018-01-23 09:53:06 +0100 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2018-01-29 06:58:28 +0100 |
commit | bc96f3b4b889891cb685c4bbcaf12166ca08331c (patch) | |
tree | f83b796d2dcc1bfbad1501d8e40a3c4277695e86 /testsuites/ada/sptests/sp09/sptest.adb | |
parent | ada: Fix RTEMS.Time_t (diff) | |
download | rtems-bc96f3b4b889891cb685c4bbcaf12166ca08331c.tar.bz2 |
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.
Diffstat (limited to 'testsuites/ada/sptests/sp09/sptest.adb')
-rw-r--r-- | testsuites/ada/sptests/sp09/sptest.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/testsuites/ada/sptests/sp09/sptest.adb b/testsuites/ada/sptests/sp09/sptest.adb index 519d0ad4cb..7ebb67b54e 100644 --- a/testsuites/ada/sptests/sp09/sptest.adb +++ b/testsuites/ada/sptests/sp09/sptest.adb @@ -30,6 +30,8 @@ with RTEMS.RATE_MONOTONIC; with RTEMS.REGION; with RTEMS.SEMAPHORE; with RTEMS.TIMER; +with Interfaces.C; +use Interfaces.C; package body SPTEST is @@ -1126,7 +1128,7 @@ package body SPTEST is BUFFER : SPTEST.BUFFER; BUFFER_POINTER : RTEMS.ADDRESS; COUNT : RTEMS.UNSIGNED32; - MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0; + MESSAGE_SIZE : RTEMS.Size := 0; STATUS : RTEMS.STATUS_CODES; begin @@ -3035,7 +3037,7 @@ package body SPTEST is pragma Unreferenced(ARGUMENT); BUFFER : SPTEST.BUFFER; BUFFER_POINTER : RTEMS.ADDRESS; - MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0; + MESSAGE_SIZE : RTEMS.Size := 0; STATUS : RTEMS.STATUS_CODES; begin |