diff options
Diffstat (limited to 'c/src/ada-tests/sptests/sp13/sptest.ads')
| -rw-r--r-- | c/src/ada-tests/sptests/sp13/sptest.ads | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/c/src/ada-tests/sptests/sp13/sptest.ads b/c/src/ada-tests/sptests/sp13/sptest.ads index bb7ba60d55..cf53004c3d 100644 --- a/c/src/ada-tests/sptests/sp13/sptest.ads +++ b/c/src/ada-tests/sptests/sp13/sptest.ads @@ -26,6 +26,19 @@ with RTEMS; package SPTEST is -- +-- Buffer Record similar to that used by RTEMS 3.2.1. Using this +-- avoids changes to the test. +-- + + type BUFFER is + record + FIELD1 : RTEMS.NAME; -- TEMPORARY UNTIL VARIABLE LENGTH + FIELD2 : RTEMS.NAME; + FIELD3 : RTEMS.NAME; + FIELD4 : RTEMS.NAME; + end record; + +-- -- These arrays contain the IDs and NAMEs of all RTEMS tasks created -- by this test. -- @@ -65,7 +78,7 @@ package SPTEST is procedure FILL_BUFFER ( SOURCE : in STRING; - BUFFER : out RTEMS.BUFFER + BUFFER : out SPTEST.BUFFER ); -- @@ -77,7 +90,7 @@ package SPTEST is -- procedure PUT_BUFFER ( - BUFFER : in RTEMS.BUFFER + BUFFER : in SPTEST.BUFFER ); -- |