RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

2005-05-03 Joel Sherrill <joel@OARcorp.com>

Browse Source 
* samples/hello/sptest.adb, sptests/sp03/sptest.adb,
	sptests/sp04/sptest.adb, sptests/sp05/sptest.adb,
	sptests/sp07/sptest.adb, sptests/sp13/sptest.adb,
	sptests/sp14/sptest.adb, sptests/sp20/sptest.adb,
	sptests/sp24/sptest.adb, tmtests/tm01/tmtest.adb,
	tmtests/tm02/tmtest.adb, tmtests/tm03/tmtest.adb,
	tmtests/tm04/tmtest.adb, tmtests/tm05/tmtest.adb,
	tmtests/tm06/tmtest.adb, tmtests/tm07/tmtest.adb,
	tmtests/tm08/tmtest.adb, tmtests/tm09/tmtest.adb,
	tmtests/tm10/tmtest.adb, tmtests/tm11/tmtest.adb,
	tmtests/tm12/tmtest.adb, tmtests/tm13/tmtest.adb,
	tmtests/tm14/tmtest.adb, tmtests/tm15/tmtest.adb,
	tmtests/tm16/tmtest.adb, tmtests/tm17/tmtest.adb,
	tmtests/tm18/tmtest.adb, tmtests/tm19/tmtest.adb,
	tmtests/tm20/tmtest.adb, tmtests/tm21/tmtest.adb,
	tmtests/tm22/tmtest.adb, tmtests/tm23/tmtest.adb,
	tmtests/tm24/tmtest.adb, tmtests/tm25/tmtest.adb,
	tmtests/tm28/tmtest.adb, tmtests/tm29/tmtest.adb,
	tmtests/tmck/tmtest.adb, tmtests/tmoverhd/dummy_rtems.adb,
	tmtests/tmoverhd/tmtest.adb: Remove warnings.
This commit is contained in:
Joel Sherrill
2005-05-03 21:41:45 +00:00
parent 901eef9a79
commit 820901ba60
40 changed files with 59 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
c/src/ada-tests/ChangeLog
View File

@@ -1,3 +1,26 @@
2005-05-03 Joel Sherrill <joel@OARcorp.com>
* samples/hello/sptest.adb, sptests/sp03/sptest.adb,
sptests/sp04/sptest.adb, sptests/sp05/sptest.adb,
sptests/sp07/sptest.adb, sptests/sp13/sptest.adb,
sptests/sp14/sptest.adb, sptests/sp20/sptest.adb,
sptests/sp24/sptest.adb, tmtests/tm01/tmtest.adb,
tmtests/tm02/tmtest.adb, tmtests/tm03/tmtest.adb,
tmtests/tm04/tmtest.adb, tmtests/tm05/tmtest.adb,
tmtests/tm06/tmtest.adb, tmtests/tm07/tmtest.adb,
tmtests/tm08/tmtest.adb, tmtests/tm09/tmtest.adb,
tmtests/tm10/tmtest.adb, tmtests/tm11/tmtest.adb,
tmtests/tm12/tmtest.adb, tmtests/tm13/tmtest.adb,
tmtests/tm14/tmtest.adb, tmtests/tm15/tmtest.adb,
tmtests/tm16/tmtest.adb, tmtests/tm17/tmtest.adb,
tmtests/tm18/tmtest.adb, tmtests/tm19/tmtest.adb,
tmtests/tm20/tmtest.adb, tmtests/tm21/tmtest.adb,
tmtests/tm22/tmtest.adb, tmtests/tm23/tmtest.adb,
tmtests/tm24/tmtest.adb, tmtests/tm25/tmtest.adb,
tmtests/tm28/tmtest.adb, tmtests/tm29/tmtest.adb,
tmtests/tmck/tmtest.adb, tmtests/tmoverhd/dummy_rtems.adb,
tmtests/tmoverhd/tmtest.adb: Remove warnings.
2005-05-01 Ralf Corsepius <ralf.corsepius@rtems.org>
* mptests/mp01/config.h, samples/base_mp/config.h,

2
c/src/ada-tests/samples/hello/sptest.adb
View File

@@ -35,8 +35,6 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.NEW_LINE( 2 );

1
c/src/ada-tests/sptests/sp03/sptest.adb
View File

@@ -35,7 +35,6 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin

1
c/src/ada-tests/sptests/sp04/sptest.adb
View File

@@ -137,7 +137,6 @@ package body SPTEST is
) is
SECONDS : RTEMS.UNSIGNED32;
OLD_SECONDS : RTEMS.UNSIGNED32;
STARTED_DELAY : RTEMS.UNSIGNED32;
PREVIOUS_MODE : RTEMS.MODE;
TIME : RTEMS.TIME_OF_DAY;
START_TIME : RTEMS.INTERVAL;

1
c/src/ada-tests/sptests/sp05/sptest.adb
View File

@@ -117,7 +117,6 @@ package body SPTEST is
) is
TID2 : RTEMS.ID;
TID3 : RTEMS.ID;
PASS : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin

1
c/src/ada-tests/sptests/sp07/sptest.adb
View File

@@ -46,7 +46,6 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin

1
c/src/ada-tests/sptests/sp13/sptest.adb
View File

@@ -219,7 +219,6 @@ package body SPTEST is
QID : RTEMS.ID;
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
TIMES : RTEMS.UNSIGNED32;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;

1
c/src/ada-tests/sptests/sp14/sptest.adb
View File

@@ -37,7 +37,6 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin

1
c/src/ada-tests/sptests/sp20/sptest.adb
View File

@@ -94,7 +94,6 @@ package body SPTEST is
) is
RMID : RTEMS.ID;
TEST_RMID : RTEMS.ID;
INDEX : RTEMS.UNSIGNED32;
PASS : RTEMS.UNSIGNED32;
FAILED : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;

1
c/src/ada-tests/sptests/sp24/sptest.adb
View File

@@ -36,7 +36,6 @@ package body SPTEST is
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TIME : RTEMS.TIME_OF_DAY;
INDEX : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin

2
c/src/ada-tests/tmtests/tm01/tmtest.adb
View File

@@ -85,8 +85,6 @@ package body TMTEST is
SEMAPHORE_OBTAIN_NO_WAIT_TIME : RTEMS.UNSIGNED32;
SEMAPHORE_OBTAIN_LOOP_TIME : RTEMS.UNSIGNED32;
SEMAPHORE_RELEASE_LOOP_TIME : RTEMS.UNSIGNED32;
INDEX : RTEMS.UNSIGNED32;
ITERATIONS : RTEMS.UNSIGNED32;
NAME : RTEMS.NAME;
SMID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;

1
c/src/ada-tests/tmtests/tm02/tmtest.adb
View File

@@ -58,7 +58,6 @@ package body TMTEST is
procedure TEST_INIT is
PRIORITY : RTEMS.TASK_PRIORITY;
INDEX : RTEMS.UNSIGNED32;
HIGH_ID : RTEMS.ID;
LOW_ID : RTEMS.ID;
TASK_ID : RTEMS.ID;

7
c/src/ada-tests/tmtests/tm03/tmtest.adb
View File

@@ -72,7 +72,6 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
@@ -138,9 +137,6 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
PRIORITY : RTEMS.TASK_PRIORITY;
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -163,9 +159,6 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
PRIORITY : RTEMS.TASK_PRIORITY;
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin

5
c/src/ada-tests/tmtests/tm04/tmtest.adb
View File

@@ -58,7 +58,6 @@ package body TMTEST is
procedure TEST_INIT
is
INDEX : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -164,7 +163,6 @@ package body TMTEST is
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
OLD_PRIORITY : RTEMS.TASK_PRIORITY;
INDEX : RTEMS.UNSIGNED32;
OVERHEAD : RTEMS.UNSIGNED32;
NAME : RTEMS.NAME;
STATUS : RTEMS.STATUS_CODES;
@@ -480,9 +478,6 @@ package body TMTEST is
procedure RESTART_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
PRIORITY : RTEMS.TASK_PRIORITY;
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm05/tmtest.adb
View File

@@ -38,7 +38,6 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -59,7 +58,6 @@ package body TMTEST is
procedure TEST_INIT
is
INDEX : RTEMS.UNSIGNED32;
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
STATUS : RTEMS.STATUS_CODES;
@@ -151,7 +149,6 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm06/tmtest.adb
View File

@@ -38,7 +38,6 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -59,7 +58,6 @@ package body TMTEST is
procedure TEST_INIT
is
INDEX : RTEMS.UNSIGNED32;
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -90,7 +88,6 @@ package body TMTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
OVERHEAD : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm07/tmtest.adb
View File

@@ -38,7 +38,6 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -59,7 +58,6 @@ package body TMTEST is
procedure TEST_INIT
is
INDEX : RTEMS.UNSIGNED32;
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
STATUS : RTEMS.STATUS_CODES;
@@ -106,7 +104,6 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
OLD_PRIORITY : RTEMS.TASK_PRIORITY;
STATUS : RTEMS.STATUS_CODES;
begin

2
c/src/ada-tests/tmtests/tm08/tmtest.adb
View File

@@ -38,7 +38,6 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -100,7 +99,6 @@ package body TMTEST is
procedure TEST_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
OVERHEAD : RTEMS.UNSIGNED32;
OLD_PRIORITY : RTEMS.TASK_PRIORITY;
OLD_MODE : RTEMS.MODE;

3
c/src/ada-tests/tmtests/tm09/tmtest.adb
View File

@@ -130,9 +130,6 @@ package body TMTEST is
FLUSH_TIME : RTEMS.UNSIGNED32;
FLUSH_COUNT : RTEMS.UNSIGNED32;
EMPTY_FLUSH_COUNT : RTEMS.UNSIGNED32;
INDEX : RTEMS.UNSIGNED32;
ITERATIONS : RTEMS.UNSIGNED32;
LOOP_COUNT : RTEMS.UNSIGNED32;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;

2
c/src/ada-tests/tmtests/tm10/tmtest.adb
View File

@@ -58,7 +58,6 @@ package body TMTEST is
procedure TEST_INIT
is
INDEX : RTEMS.UNSIGNED32;
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
OVERHEAD : RTEMS.UNSIGNED32;
@@ -205,7 +204,6 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
STATUS : RTEMS.STATUS_CODES;
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;

2
c/src/ada-tests/tmtests/tm11/tmtest.adb
View File

@@ -77,13 +77,11 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ID : RTEMS.ID;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin

2
c/src/ada-tests/tmtests/tm12/tmtest.adb
View File

@@ -77,7 +77,6 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ID : RTEMS.ID;
@@ -139,7 +138,6 @@ package body TMTEST is
) is
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
INDEX : RTEMS.UNSIGNED32;
OVERHEAD : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin

2
c/src/ada-tests/tmtests/tm13/tmtest.adb
View File

@@ -77,13 +77,11 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ID : RTEMS.ID;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin

1
c/src/ada-tests/tmtests/tm14/tmtest.adb
View File

@@ -77,7 +77,6 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ID : RTEMS.ID;

4
c/src/ada-tests/tmtests/tm15/tmtest.adb
View File

@@ -38,7 +38,6 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -60,7 +59,6 @@ package body TMTEST is
procedure TEST_INIT
is
ID : RTEMS.ID;
INDEX : RTEMS.UNSIGNED32;
OVERHEAD : RTEMS.UNSIGNED32;
EVENT_OUT : RTEMS.EVENT_SET;
STATUS : RTEMS.STATUS_CODES;
@@ -165,8 +163,6 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
ID : RTEMS.ID;
INDEX : RTEMS.UNSIGNED32;
EVENT_OUT : RTEMS.EVENT_SET;
OVERHEAD : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;

1
c/src/ada-tests/tmtests/tm16/tmtest.adb
View File

@@ -78,7 +78,6 @@ package body TMTEST is
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
PRIORITY : RTEMS.TASK_PRIORITY;
INDEX : RTEMS.UNSIGNED32;
TASK_ENTRY : RTEMS.TASK_ENTRY;
STATUS : RTEMS.STATUS_CODES;
begin

1
c/src/ada-tests/tmtests/tm17/tmtest.adb
View File

@@ -39,7 +39,6 @@ package body TMTEST is
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TASK_ENTRY : RTEMS.TASK_ENTRY;
INDEX : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin

1
c/src/ada-tests/tmtests/tm18/tmtest.adb
View File

@@ -60,7 +60,6 @@ package body TMTEST is
is
ID : RTEMS.ID;
TASK_ENTRY : RTEMS.TASK_ENTRY;
INDEX : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin

2
c/src/ada-tests/tmtests/tm19/tmtest.adb
View File

@@ -114,7 +114,6 @@ package body TMTEST is
procedure PROCESS_ASR_FOR_PASS_1 (
SIGNALS : in RTEMS.SIGNAL_SET
) is
STATUS : RTEMS.STATUS_CODES;
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
@@ -227,7 +226,6 @@ package body TMTEST is
procedure PROCESS_ASR_FOR_TASK_2 (
SIGNALS : in RTEMS.SIGNAL_SET
) is
STATUS : RTEMS.STATUS_CODES;
begin
NULL;

1
c/src/ada-tests/tmtests/tm20/tmtest.adb
View File

@@ -96,7 +96,6 @@ package body TMTEST is
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
BUFFER_COUNT : RTEMS.UNSIGNED32;
INDEX : RTEMS.UNSIGNED32;
PREVIOUS_MODE : RTEMS.MODE;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
OVERHEAD : RTEMS.UNSIGNED32;

1
c/src/ada-tests/tmtests/tm21/tmtest.adb
View File

@@ -72,7 +72,6 @@ package body TMTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
ID : RTEMS.ID;
OVERHEAD : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;

1
c/src/ada-tests/tmtests/tm22/tmtest.adb
View File

@@ -138,7 +138,6 @@ package body TMTEST is
ID : RTEMS.ID;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
INDEX : RTEMS.UNSIGNED32;
OVERHEAD : RTEMS.UNSIGNED32;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32;

2
c/src/ada-tests/tmtests/tm23/tmtest.adb
View File

@@ -40,7 +40,6 @@ package body TMTEST is
) is
OVERHEAD : RTEMS.UNSIGNED32;
TASK_PRIORITY : RTEMS.TASK_PRIORITY;
INDEX : RTEMS.UNSIGNED32;
ID : RTEMS.ID;
TASK_ENTRY : RTEMS.TASK_ENTRY;
STATUS : RTEMS.STATUS_CODES;
@@ -115,7 +114,6 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.TASK_PRIORITY;
OVERHEAD : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin

2
c/src/ada-tests/tmtests/tm24/tmtest.adb
View File

@@ -39,7 +39,6 @@ package body TMTEST is
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
ID : RTEMS.ID;
INDEX : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -99,7 +98,6 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin

1
c/src/ada-tests/tmtests/tm25/tmtest.adb
View File

@@ -38,7 +38,6 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin

1
c/src/ada-tests/tmtests/tm28/tmtest.adb
View File

@@ -38,7 +38,6 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin

2
c/src/ada-tests/tmtests/tm29/tmtest.adb
View File

@@ -204,9 +204,7 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
OVERHEAD : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;

2
c/src/ada-tests/tmtests/tmck/tmtest.adb
View File

@@ -80,7 +80,6 @@ package body TMTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
INDEX : RTEMS.UNSIGNED32;
begin
TMTEST.CHECK_READ_TIMER;
@@ -164,7 +163,6 @@ TEST_SUPPORT.PAUSE;
procedure CHECK_READ_TIMER
is
INDEX : RTEMS.UNSIGNED32;
TIME : RTEMS.UNSIGNED32;
begin

28
c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb
View File

@@ -59,6 +59,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end TASK_CREATE;
@@ -71,6 +72,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end TASK_IDENT;
@@ -136,6 +138,7 @@ package body DUMMY_RTEMS is
) is
begin
OLD_PRIORITY := 0;
RESULT := RTEMS.SUCCESSFUL;
end TASK_SET_PRIORITY;
@@ -148,6 +151,7 @@ package body DUMMY_RTEMS is
) is
begin
PREVIOUS_MODE_SET := 0;
RESULT := RTEMS.SUCCESSFUL;
end TASK_MODE;
@@ -160,6 +164,7 @@ package body DUMMY_RTEMS is
) is
begin
NOTE := 0;
RESULT := RTEMS.SUCCESSFUL;
end TASK_GET_NOTE;
@@ -206,6 +211,7 @@ package body DUMMY_RTEMS is
) is
begin
OLD_ISR_HANDLER := RTEMS.Null_Address;
RESULT := RTEMS.SUCCESSFUL;
end INTERRUPT_CATCH;
@@ -251,6 +257,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end TIMER_CREATE;
@@ -272,6 +279,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end TIMER_IDENT;
@@ -334,6 +342,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end SEMAPHORE_CREATE;
@@ -356,6 +365,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end SEMAPHORE_IDENT;
@@ -394,6 +404,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end MESSAGE_QUEUE_CREATE;
@@ -406,6 +417,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end MESSAGE_QUEUE_IDENT;
@@ -453,6 +465,7 @@ package body DUMMY_RTEMS is
) is
begin
COUNT := 0;
RESULT := RTEMS.SUCCESSFUL;
end MESSAGE_QUEUE_BROADCAST;
@@ -467,6 +480,7 @@ package body DUMMY_RTEMS is
) is
begin
Size := 0;
RESULT := RTEMS.SUCCESSFUL;
end MESSAGE_QUEUE_RECEIVE;
@@ -478,6 +492,7 @@ package body DUMMY_RTEMS is
) is
begin
COUNT := 0;
RESULT := RTEMS.SUCCESSFUL;
end MESSAGE_QUEUE_FLUSH;
@@ -504,6 +519,7 @@ package body DUMMY_RTEMS is
) is
begin
EVENT_OUT := 0;
RESULT := RTEMS.SUCCESSFUL;
end EVENT_RECEIVE;
@@ -545,6 +561,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end PARTITION_CREATE;
@@ -557,6 +574,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end PARTITION_IDENT;
@@ -578,6 +596,7 @@ package body DUMMY_RTEMS is
) is
begin
BUFFER := RTEMS.Null_Address;
RESULT := RTEMS.SUCCESSFUL;
end PARTITION_GET_BUFFER;
@@ -606,6 +625,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end REGION_CREATE;
@@ -617,6 +637,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end REGION_IDENT;
@@ -641,6 +662,7 @@ package body DUMMY_RTEMS is
) is
begin
SEGMENT := RTEMS.Null_Address;
RESULT := RTEMS.SUCCESSFUL;
end REGION_GET_SEGMENT;
@@ -668,6 +690,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end PORT_CREATE;
@@ -679,6 +702,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end PORT_IDENT;
@@ -701,6 +725,7 @@ package body DUMMY_RTEMS is
) is
begin
INTERNAL := RTEMS.Null_Address;
RESULT := RTEMS.SUCCESSFUL;
end PORT_EXTERNAL_TO_INTERNAL;
@@ -713,6 +738,7 @@ package body DUMMY_RTEMS is
) is
begin
EXTERNAL := RTEMS.Null_Address;
RESULT := RTEMS.SUCCESSFUL;
end PORT_INTERNAL_TO_EXTERNAL;
@@ -811,6 +837,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end RATE_MONOTONIC_CREATE;
@@ -822,6 +849,7 @@ package body DUMMY_RTEMS is
) is
begin
ID := 0;
RESULT := RTEMS.SUCCESSFUL;
end RATE_MONOTONIC_IDENT;

9
c/src/ada-tests/tmtests/tmoverhd/tmtest.adb
View File

@@ -126,7 +126,6 @@ package body TMTEST is
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
NAME : RTEMS.NAME;
INDEX : RTEMS.UNSIGNED32;
OVERHEAD : RTEMS.UNSIGNED32;
ID : RTEMS.ID;
IN_PRIORITY : RTEMS.TASK_PRIORITY;
@@ -153,6 +152,14 @@ package body TMTEST is
NAME := RTEMS.BUILD_NAME( 'N', 'A', 'M', 'E' );
BUFFER_POINTER := BUFFER'ADDRESS;
OVERHEAD := 0;
IN_PRIORITY := 0;
IN_MODE := 0;
SIGNALS := 0;
EVENTS := 0;
MAJOR := 0;
MINOR := 0;
ERROR := 0;
-- INITIALIZE_EXECUTIVE