From 820901ba604627abf8294458b214f75772a53782 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 3 May 2005 21:41:45 +0000 Subject: 2005-05-03 Joel Sherrill * 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. --- c/src/ada-tests/ChangeLog | 23 +++++++++++++++++++ c/src/ada-tests/samples/hello/sptest.adb | 2 -- c/src/ada-tests/sptests/sp03/sptest.adb | 1 - c/src/ada-tests/sptests/sp04/sptest.adb | 1 - c/src/ada-tests/sptests/sp05/sptest.adb | 1 - c/src/ada-tests/sptests/sp07/sptest.adb | 1 - c/src/ada-tests/sptests/sp13/sptest.adb | 1 - c/src/ada-tests/sptests/sp14/sptest.adb | 1 - c/src/ada-tests/sptests/sp20/sptest.adb | 1 - c/src/ada-tests/sptests/sp24/sptest.adb | 1 - c/src/ada-tests/tmtests/tm01/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tm02/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm03/tmtest.adb | 7 ------ c/src/ada-tests/tmtests/tm04/tmtest.adb | 5 ----- c/src/ada-tests/tmtests/tm05/tmtest.adb | 3 --- c/src/ada-tests/tmtests/tm06/tmtest.adb | 3 --- c/src/ada-tests/tmtests/tm07/tmtest.adb | 3 --- c/src/ada-tests/tmtests/tm08/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tm09/tmtest.adb | 3 --- c/src/ada-tests/tmtests/tm10/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tm11/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tm12/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tm13/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tm14/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm15/tmtest.adb | 4 ---- c/src/ada-tests/tmtests/tm16/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm17/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm18/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm19/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tm20/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm21/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm22/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm23/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tm24/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tm25/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm28/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm29/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tmck/tmtest.adb | 2 -- c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb | 28 ++++++++++++++++++++++++ c/src/ada-tests/tmtests/tmoverhd/tmtest.adb | 9 +++++++- 40 files changed, 59 insertions(+), 71 deletions(-) (limited to 'c') diff --git a/c/src/ada-tests/ChangeLog b/c/src/ada-tests/ChangeLog index 76975eacb2..8194e35c00 100644 --- a/c/src/ada-tests/ChangeLog +++ b/c/src/ada-tests/ChangeLog @@ -1,3 +1,26 @@ +2005-05-03 Joel Sherrill + + * 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 * mptests/mp01/config.h, samples/base_mp/config.h, diff --git a/c/src/ada-tests/samples/hello/sptest.adb b/c/src/ada-tests/samples/hello/sptest.adb index 6d4adc47dd..cda0030573 100644 --- a/c/src/ada-tests/samples/hello/sptest.adb +++ b/c/src/ada-tests/samples/hello/sptest.adb @@ -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 ); diff --git a/c/src/ada-tests/sptests/sp03/sptest.adb b/c/src/ada-tests/sptests/sp03/sptest.adb index d757aa15b9..8fcb7e50de 100644 --- a/c/src/ada-tests/sptests/sp03/sptest.adb +++ b/c/src/ada-tests/sptests/sp03/sptest.adb @@ -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 diff --git a/c/src/ada-tests/sptests/sp04/sptest.adb b/c/src/ada-tests/sptests/sp04/sptest.adb index a176ea8e9f..b57f78db3d 100644 --- a/c/src/ada-tests/sptests/sp04/sptest.adb +++ b/c/src/ada-tests/sptests/sp04/sptest.adb @@ -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; diff --git a/c/src/ada-tests/sptests/sp05/sptest.adb b/c/src/ada-tests/sptests/sp05/sptest.adb index a04f69c656..6af6435431 100644 --- a/c/src/ada-tests/sptests/sp05/sptest.adb +++ b/c/src/ada-tests/sptests/sp05/sptest.adb @@ -117,7 +117,6 @@ package body SPTEST is ) is TID2 : RTEMS.ID; TID3 : RTEMS.ID; - PASS : RTEMS.UNSIGNED32; STATUS : RTEMS.STATUS_CODES; begin diff --git a/c/src/ada-tests/sptests/sp07/sptest.adb b/c/src/ada-tests/sptests/sp07/sptest.adb index 9cbbf8b191..5131fd57f8 100644 --- a/c/src/ada-tests/sptests/sp07/sptest.adb +++ b/c/src/ada-tests/sptests/sp07/sptest.adb @@ -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 diff --git a/c/src/ada-tests/sptests/sp13/sptest.adb b/c/src/ada-tests/sptests/sp13/sptest.adb index 0cd62be976..3b23d5cfc4 100644 --- a/c/src/ada-tests/sptests/sp13/sptest.adb +++ b/c/src/ada-tests/sptests/sp13/sptest.adb @@ -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; diff --git a/c/src/ada-tests/sptests/sp14/sptest.adb b/c/src/ada-tests/sptests/sp14/sptest.adb index f6b39ce758..ad2b8ec4cc 100644 --- a/c/src/ada-tests/sptests/sp14/sptest.adb +++ b/c/src/ada-tests/sptests/sp14/sptest.adb @@ -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 diff --git a/c/src/ada-tests/sptests/sp20/sptest.adb b/c/src/ada-tests/sptests/sp20/sptest.adb index 7a9317f05c..8b7c9958dc 100644 --- a/c/src/ada-tests/sptests/sp20/sptest.adb +++ b/c/src/ada-tests/sptests/sp20/sptest.adb @@ -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; diff --git a/c/src/ada-tests/sptests/sp24/sptest.adb b/c/src/ada-tests/sptests/sp24/sptest.adb index d1cc2d402b..6e286bbae4 100644 --- a/c/src/ada-tests/sptests/sp24/sptest.adb +++ b/c/src/ada-tests/sptests/sp24/sptest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm01/tmtest.adb b/c/src/ada-tests/tmtests/tm01/tmtest.adb index d8b71f6366..a3c227bceb 100644 --- a/c/src/ada-tests/tmtests/tm01/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm01/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm02/tmtest.adb b/c/src/ada-tests/tmtests/tm02/tmtest.adb index 8fee31bfb6..5a0053ff27 100644 --- a/c/src/ada-tests/tmtests/tm02/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm02/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm03/tmtest.adb b/c/src/ada-tests/tmtests/tm03/tmtest.adb index 3db45db87d..ed7d6a4346 100644 --- a/c/src/ada-tests/tmtests/tm03/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm03/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm04/tmtest.adb b/c/src/ada-tests/tmtests/tm04/tmtest.adb index 7eeb1fecd6..7bb4465223 100644 --- a/c/src/ada-tests/tmtests/tm04/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm04/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm05/tmtest.adb b/c/src/ada-tests/tmtests/tm05/tmtest.adb index 55cdd57c20..11fee5d473 100644 --- a/c/src/ada-tests/tmtests/tm05/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm05/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm06/tmtest.adb b/c/src/ada-tests/tmtests/tm06/tmtest.adb index d8827b5ec3..f19192462a 100644 --- a/c/src/ada-tests/tmtests/tm06/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm06/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm07/tmtest.adb b/c/src/ada-tests/tmtests/tm07/tmtest.adb index e02edb566f..a59e9d9473 100644 --- a/c/src/ada-tests/tmtests/tm07/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm07/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm08/tmtest.adb b/c/src/ada-tests/tmtests/tm08/tmtest.adb index 6c19789d53..cc4e4d89c4 100644 --- a/c/src/ada-tests/tmtests/tm08/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm08/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm09/tmtest.adb b/c/src/ada-tests/tmtests/tm09/tmtest.adb index dd7b12d063..2a2988b816 100644 --- a/c/src/ada-tests/tmtests/tm09/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm09/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm10/tmtest.adb b/c/src/ada-tests/tmtests/tm10/tmtest.adb index 125537d53b..3de1a2a5fa 100644 --- a/c/src/ada-tests/tmtests/tm10/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm10/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm11/tmtest.adb b/c/src/ada-tests/tmtests/tm11/tmtest.adb index 9c2faa3270..b584fcbbab 100644 --- a/c/src/ada-tests/tmtests/tm11/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm11/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm12/tmtest.adb b/c/src/ada-tests/tmtests/tm12/tmtest.adb index c5cd7b19c5..564db8c372 100644 --- a/c/src/ada-tests/tmtests/tm12/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm12/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm13/tmtest.adb b/c/src/ada-tests/tmtests/tm13/tmtest.adb index b12c5568b8..033b392f0b 100644 --- a/c/src/ada-tests/tmtests/tm13/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm13/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm14/tmtest.adb b/c/src/ada-tests/tmtests/tm14/tmtest.adb index ddecc5b9ba..3b04aad1ca 100644 --- a/c/src/ada-tests/tmtests/tm14/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm14/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm15/tmtest.adb b/c/src/ada-tests/tmtests/tm15/tmtest.adb index 6be00525bb..e79b1bb47e 100644 --- a/c/src/ada-tests/tmtests/tm15/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm15/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm16/tmtest.adb b/c/src/ada-tests/tmtests/tm16/tmtest.adb index 60ff43c2a6..fadcb289a1 100644 --- a/c/src/ada-tests/tmtests/tm16/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm16/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm17/tmtest.adb b/c/src/ada-tests/tmtests/tm17/tmtest.adb index a87a2144ea..ee448846d8 100644 --- a/c/src/ada-tests/tmtests/tm17/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm17/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm18/tmtest.adb b/c/src/ada-tests/tmtests/tm18/tmtest.adb index e333ba58fb..70b096c547 100644 --- a/c/src/ada-tests/tmtests/tm18/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm18/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm19/tmtest.adb b/c/src/ada-tests/tmtests/tm19/tmtest.adb index e39cfbcff8..7152020577 100644 --- a/c/src/ada-tests/tmtests/tm19/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm19/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm20/tmtest.adb b/c/src/ada-tests/tmtests/tm20/tmtest.adb index c61e52fe0b..f475fe07ce 100644 --- a/c/src/ada-tests/tmtests/tm20/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm20/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm21/tmtest.adb b/c/src/ada-tests/tmtests/tm21/tmtest.adb index 65a1b3a6ae..648b83608a 100644 --- a/c/src/ada-tests/tmtests/tm21/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm21/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm22/tmtest.adb b/c/src/ada-tests/tmtests/tm22/tmtest.adb index af5075cae4..df46a9a5c9 100644 --- a/c/src/ada-tests/tmtests/tm22/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm22/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tm23/tmtest.adb b/c/src/ada-tests/tmtests/tm23/tmtest.adb index ee48cf79de..73fe4ab1db 100644 --- a/c/src/ada-tests/tmtests/tm23/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm23/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm24/tmtest.adb b/c/src/ada-tests/tmtests/tm24/tmtest.adb index 5c7a00e340..69ce8c7608 100644 --- a/c/src/ada-tests/tmtests/tm24/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm24/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm25/tmtest.adb b/c/src/ada-tests/tmtests/tm25/tmtest.adb index ad07b826d8..0f978814bc 100644 --- a/c/src/ada-tests/tmtests/tm25/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm25/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm28/tmtest.adb b/c/src/ada-tests/tmtests/tm28/tmtest.adb index 0b72102d20..969af84808 100644 --- a/c/src/ada-tests/tmtests/tm28/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm28/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tm29/tmtest.adb b/c/src/ada-tests/tmtests/tm29/tmtest.adb index 44a8b5d53b..b36d21a542 100644 --- a/c/src/ada-tests/tmtests/tm29/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm29/tmtest.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tmck/tmtest.adb b/c/src/ada-tests/tmtests/tmck/tmtest.adb index dc5a399e28..4db5311823 100644 --- a/c/src/ada-tests/tmtests/tmck/tmtest.adb +++ b/c/src/ada-tests/tmtests/tmck/tmtest.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb index e4ca279f35..9a728543ca 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb +++ b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb @@ -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; diff --git a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb index 8ef6a17331..a37f0b867e 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb +++ b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb @@ -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 -- cgit v1.2.3