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

2009-12-14 Joel Sherrill <joel.sherrill@oarcorp.com>

Browse Source 
* samples/base_sp/sptest.adb, samples/hello/sptest.adb,
	samples/nsecs/sptest.adb, samples/ticker/sptest.adb,
	sptests/sp01/sptest.adb, sptests/sp02/sptest.adb,
	sptests/sp03/sptest.adb, sptests/sp04/sptest.adb,
	sptests/sp05/sptest.adb, sptests/sp06/sptest.adb,
	sptests/sp07/sptest.adb, sptests/sp08/sptest.adb,
	sptests/sp09/sptest.adb, sptests/sp11/sptest.adb,
	sptests/sp12/sptest.adb, sptests/sp13/sptest.adb,
	sptests/sp14/sptest.adb, sptests/sp15/sptest.adb,
	sptests/sp16/sptest.adb, sptests/sp17/sptest.adb,
	sptests/sp19/sptest.adp, sptests/sp20/sptest.adb,
	sptests/sp22/sptest.adb, sptests/sp23/sptest.adb,
	sptests/sp24/sptest.adb, sptests/sp25/sptest.adb,
	sptests/spname01/spname01.adb, sptests/spname01/sptest.adb,
	sptests/spname01/sptest.ads, support/address_io.adb, support/init.c,
	support/test_support.adb, support/test_support.ads,
	support/time_test_support.adb, support/timer_driver.adb,
	tmtests/tm01/tmtest.adb, tmtests/tm01/tmtest.ads,
	tmtests/tm02/tmtest.adb, tmtests/tm02/tmtest.ads,
	tmtests/tm03/tmtest.adb, tmtests/tm03/tmtest.ads,
	tmtests/tm04/tmtest.adb, tmtests/tm04/tmtest.ads,
	tmtests/tm05/tmtest.adb, tmtests/tm05/tmtest.ads,
	tmtests/tm06/tmtest.adb, tmtests/tm06/tmtest.ads,
	tmtests/tm07/tmtest.adb, tmtests/tm07/tmtest.ads,
	tmtests/tm08/tmtest.adb, tmtests/tm08/tmtest.ads,
	tmtests/tm09/tmtest.adb, tmtests/tm09/tmtest.ads,
	tmtests/tm10/tmtest.adb, tmtests/tm10/tmtest.ads,
	tmtests/tm11/tmtest.adb, tmtests/tm11/tmtest.ads,
	tmtests/tm12/tmtest.adb, tmtests/tm12/tmtest.ads,
	tmtests/tm13/tmtest.adb, tmtests/tm13/tmtest.ads,
	tmtests/tm14/tmtest.adb, tmtests/tm14/tmtest.ads,
	tmtests/tm15/tmtest.adb, tmtests/tm15/tmtest.ads,
	tmtests/tm16/tmtest.adb, tmtests/tm16/tmtest.ads,
	tmtests/tm17/tmtest.adb, tmtests/tm17/tmtest.ads,
	tmtests/tm18/tmtest.adb, tmtests/tm18/tmtest.ads,
	tmtests/tm19/tmtest.adb, tmtests/tm19/tmtest.ads,
	tmtests/tm20/tmtest.adb, tmtests/tm20/tmtest.ads,
	tmtests/tm21/tmtest.adb, tmtests/tm21/tmtest.ads,
	tmtests/tm22/tmtest.adb, tmtests/tm22/tmtest.ads,
	tmtests/tm23/tmtest.adb, tmtests/tm23/tmtest.ads,
	tmtests/tm24/tmtest.adb, tmtests/tm24/tmtest.ads,
	tmtests/tm25/tmtest.adb, tmtests/tm25/tmtest.ads,
	tmtests/tm28/tmtest.adb, tmtests/tm28/tmtest.ads,
	tmtests/tm29/tmtest.adb, tmtests/tm29/tmtest.ads,
	tmtests/tmck/tmtest.adb, tmtests/tmck/tmtest.ads,
	tmtests/tmoverhd/dummy_rtems.adb, tmtests/tmoverhd/tmtest.adb,
	tmtests/tmoverhd/tmtest.ads: Remove many warnings.
This commit is contained in:
Joel Sherrill
2009-12-14 21:17:59 +00:00
parent 221db54a51
commit 110e1f1dfe
95 changed files with 525 additions and 295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,3 +1,53 @@
2009-12-14 Joel Sherrill <joel.sherrill@oarcorp.com>
* samples/base_sp/sptest.adb, samples/hello/sptest.adb,
samples/nsecs/sptest.adb, samples/ticker/sptest.adb,
sptests/sp01/sptest.adb, sptests/sp02/sptest.adb,
sptests/sp03/sptest.adb, sptests/sp04/sptest.adb,
sptests/sp05/sptest.adb, sptests/sp06/sptest.adb,
sptests/sp07/sptest.adb, sptests/sp08/sptest.adb,
sptests/sp09/sptest.adb, sptests/sp11/sptest.adb,
sptests/sp12/sptest.adb, sptests/sp13/sptest.adb,
sptests/sp14/sptest.adb, sptests/sp15/sptest.adb,
sptests/sp16/sptest.adb, sptests/sp17/sptest.adb,
sptests/sp19/sptest.adp, sptests/sp20/sptest.adb,
sptests/sp22/sptest.adb, sptests/sp23/sptest.adb,
sptests/sp24/sptest.adb, sptests/sp25/sptest.adb,
sptests/spname01/spname01.adb, sptests/spname01/sptest.adb,
sptests/spname01/sptest.ads, support/address_io.adb, support/init.c,
support/test_support.adb, support/test_support.ads,
support/time_test_support.adb, support/timer_driver.adb,
tmtests/tm01/tmtest.adb, tmtests/tm01/tmtest.ads,
tmtests/tm02/tmtest.adb, tmtests/tm02/tmtest.ads,
tmtests/tm03/tmtest.adb, tmtests/tm03/tmtest.ads,
tmtests/tm04/tmtest.adb, tmtests/tm04/tmtest.ads,
tmtests/tm05/tmtest.adb, tmtests/tm05/tmtest.ads,
tmtests/tm06/tmtest.adb, tmtests/tm06/tmtest.ads,
tmtests/tm07/tmtest.adb, tmtests/tm07/tmtest.ads,
tmtests/tm08/tmtest.adb, tmtests/tm08/tmtest.ads,
tmtests/tm09/tmtest.adb, tmtests/tm09/tmtest.ads,
tmtests/tm10/tmtest.adb, tmtests/tm10/tmtest.ads,
tmtests/tm11/tmtest.adb, tmtests/tm11/tmtest.ads,
tmtests/tm12/tmtest.adb, tmtests/tm12/tmtest.ads,
tmtests/tm13/tmtest.adb, tmtests/tm13/tmtest.ads,
tmtests/tm14/tmtest.adb, tmtests/tm14/tmtest.ads,
tmtests/tm15/tmtest.adb, tmtests/tm15/tmtest.ads,
tmtests/tm16/tmtest.adb, tmtests/tm16/tmtest.ads,
tmtests/tm17/tmtest.adb, tmtests/tm17/tmtest.ads,
tmtests/tm18/tmtest.adb, tmtests/tm18/tmtest.ads,
tmtests/tm19/tmtest.adb, tmtests/tm19/tmtest.ads,
tmtests/tm20/tmtest.adb, tmtests/tm20/tmtest.ads,
tmtests/tm21/tmtest.adb, tmtests/tm21/tmtest.ads,
tmtests/tm22/tmtest.adb, tmtests/tm22/tmtest.ads,
tmtests/tm23/tmtest.adb, tmtests/tm23/tmtest.ads,
tmtests/tm24/tmtest.adb, tmtests/tm24/tmtest.ads,
tmtests/tm25/tmtest.adb, tmtests/tm25/tmtest.ads,
tmtests/tm28/tmtest.adb, tmtests/tm28/tmtest.ads,
tmtests/tm29/tmtest.adb, tmtests/tm29/tmtest.ads,
tmtests/tmck/tmtest.adb, tmtests/tmck/tmtest.ads,
tmtests/tmoverhd/dummy_rtems.adb, tmtests/tmoverhd/tmtest.adb,
tmtests/tmoverhd/tmtest.ads: Remove many warnings.
2009-12-14 Joel Sherrill <joel.sherrill@oarcorp.com>
* mptests/mp01/node1/Makefile.am, mptests/mp01/node2/Makefile.am,

5
c/src/ada-tests/samples/base_sp/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,8 +20,6 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,9 +20,6 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
package body SPTEST is
@@ -35,6 +32,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
TEXT_IO.NEW_LINE( 2 );

4
c/src/ada-tests/samples/nsecs/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -23,7 +23,6 @@
with Ada.Integer_Text_IO;
with Interfaces.C;
with RTEMS;
with Test_Support;
with Text_IO;
use type Interfaces.C.Long;
use type RTEMS.Time_T;
@@ -63,6 +62,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
Status : RTEMS.Status_Codes;
Start : RTEMS.Timespec;
Stop : RTEMS.Timespec;

5
c/src/ada-tests/samples/ticker/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
@@ -35,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -121,6 +121,7 @@ package body SPTEST is
procedure TASK_1_THROUGH_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TID : RTEMS.ID;
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;

5
c/src/ada-tests/sptests/sp01/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
@@ -35,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -121,6 +121,7 @@ package body SPTEST is
procedure TASK_1_THROUGH_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TID : RTEMS.ID;
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;

8
c/src/ada-tests/sptests/sp02/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +35,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -214,6 +214,7 @@ package body SPTEST is
procedure PREEMPT_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -231,6 +232,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TID2 : RTEMS.ID;
TID3 : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
@@ -297,6 +299,7 @@ package body SPTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -314,6 +317,7 @@ package body SPTEST is
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
@@ -35,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -95,6 +95,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -143,6 +144,7 @@ package body SPTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
@@ -74,6 +73,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -174,6 +174,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SECONDS : RTEMS.UNSIGNED32;
OLD_SECONDS : RTEMS.UNSIGNED32;
PREVIOUS_MODE : RTEMS.MODE;
@@ -289,6 +290,7 @@ package body SPTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
LOOP
@@ -305,6 +307,7 @@ package body SPTEST is
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
LOOP
@@ -322,6 +325,7 @@ package body SPTEST is
UNUSED : in RTEMS.TCB_POINTER;
HEIR : in RTEMS.TCB_POINTER
) is
pragma Unreferenced(UNUSED);
INDEX : RTEMS.UNSIGNED32;
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
@@ -35,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -115,6 +115,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TID2 : RTEMS.ID;
TID3 : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
@@ -186,6 +187,7 @@ package body SPTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -209,6 +211,7 @@ package body SPTEST is
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

5
c/src/ada-tests/sptests/sp06/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
@@ -35,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
begin
@@ -210,6 +210,7 @@ package body SPTEST is
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -129,6 +128,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -254,6 +254,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
THE_PRIORITY : RTEMS.TASK_PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
@@ -341,6 +342,7 @@ package body SPTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
THE_PRIORITY : RTEMS.TASK_PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
@@ -426,6 +428,7 @@ package body SPTEST is
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -446,6 +449,7 @@ package body SPTEST is
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
Flush_Task_Event_Log;
@@ -482,6 +486,7 @@ package body SPTEST is
UNUSED : in RTEMS.TCB_POINTER;
CREATED_TASK : in RTEMS.TCB_POINTER
) return RTEMS.Boolean is
pragma Unreferenced(UNUSED);
begin
if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( CREATED_TASK ) ) > 0 then
@@ -527,6 +532,7 @@ package body SPTEST is
UNUSED : in RTEMS.TCB_POINTER;
RESTARTED_TASK : in RTEMS.TCB_POINTER
) is
pragma Unreferenced(UNUSED);
begin
if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RESTARTED_TASK ) ) > 0 then
@@ -548,6 +554,7 @@ package body SPTEST is
UNUSED : in RTEMS.TCB_POINTER;
STARTED_TASK : in RTEMS.TCB_POINTER
) is
pragma Unreferenced(UNUSED);
begin
if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( STARTED_TASK ) ) > 0 then

5
c/src/ada-tests/sptests/sp08/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +35,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -93,6 +93,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PREVIOUS_MODE : RTEMS.MODE;
STATUS : RTEMS.STATUS_CODES;
begin

14
c/src/ada-tests/sptests/sp09/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
@@ -35,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -143,7 +143,7 @@ package body SPTEST is
procedure SCREEN_1
is
NOTEPAD_VALUE : RTEMS.UNSIGNED32;
NOTEPAD_VALUE : RTEMS.UNSIGNED32 := 0;
SELF_ID : RTEMS.ID;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
STATUS : RTEMS.STATUS_CODES;
@@ -1194,7 +1194,7 @@ package body SPTEST is
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -3024,6 +3024,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
SPTEST.SCREEN_1;
@@ -3080,6 +3081,7 @@ package body SPTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -3115,9 +3117,10 @@ package body SPTEST is
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -3158,6 +3161,7 @@ package body SPTEST is
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

20
c/src/ada-tests/sptests/sp11/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +35,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -145,6 +145,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
EVENTOUT : RTEMS.EVENT_SET;
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
@@ -636,6 +637,7 @@ package body SPTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
EVENTOUT : RTEMS.EVENT_SET;
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
@@ -780,6 +782,8 @@ package body SPTEST is
IGNORED_ADDRESS : in RTEMS.ADDRESS
)
is
pragma Unreferenced(IGNORED_ID);
pragma Unreferenced(IGNORED_ADDRESS);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -798,6 +802,8 @@ package body SPTEST is
IGNORED_ADDRESS : in RTEMS.ADDRESS
)
is
pragma Unreferenced(IGNORED_ID);
pragma Unreferenced(IGNORED_ADDRESS);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -816,6 +822,8 @@ package body SPTEST is
IGNORED_ADDRESS : in RTEMS.ADDRESS
)
is
pragma Unreferenced(IGNORED_ID);
pragma Unreferenced(IGNORED_ADDRESS);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -834,6 +842,8 @@ package body SPTEST is
IGNORED_ADDRESS : in RTEMS.ADDRESS
)
is
pragma Unreferenced(IGNORED_ID);
pragma Unreferenced(IGNORED_ADDRESS);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -852,6 +862,8 @@ package body SPTEST is
IGNORED_ADDRESS : in RTEMS.ADDRESS
)
is
pragma Unreferenced(IGNORED_ID);
pragma Unreferenced(IGNORED_ADDRESS);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -870,6 +882,8 @@ package body SPTEST is
IGNORED_ADDRESS : in RTEMS.ADDRESS
)
is
pragma Unreferenced(IGNORED_ID);
pragma Unreferenced(IGNORED_ADDRESS);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -888,6 +902,8 @@ package body SPTEST is
IGNORED_ADDRESS : in RTEMS.ADDRESS
)
is
pragma Unreferenced(IGNORED_ID);
pragma Unreferenced(IGNORED_ADDRESS);
STATUS : RTEMS.STATUS_CODES;
begin

9
c/src/ada-tests/sptests/sp12/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +35,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -482,6 +482,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SMID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -649,6 +650,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
begin
@@ -714,6 +716,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -753,6 +756,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -775,6 +779,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_5 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -40,6 +40,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -220,15 +221,18 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
QID : RTEMS.ID;
BIG_SEND_BUFFER : BIG_BUFFER_TYPE;
BIG_SEND_BUFFER_POINTER : RTEMS.ADDRESS := BIG_SEND_BUFFER'ADDRESS;
BIG_SEND_BUFFER_POINTER : constant RTEMS.ADDRESS
:= BIG_SEND_BUFFER'ADDRESS;
BIG_RECEIVE_BUFFER : BIG_BUFFER_TYPE;
BIG_RECEIVE_BUFFER_POINTER : RTEMS.ADDRESS := BIG_RECEIVE_BUFFER'ADDRESS;
BIG_RECEIVE_BUFFER_POINTER : constant RTEMS.ADDRESS
:= BIG_RECEIVE_BUFFER'ADDRESS;
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS := BUFFER'ADDRESS;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
SIZE : RTEMS.UNSIGNED32;
begin
@@ -690,10 +694,11 @@ TEST_SUPPORT.PAUSE;
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -826,10 +831,11 @@ TEST_SUPPORT.PAUSE;
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with ADDRESS_IO;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -37,6 +36,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -128,6 +128,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PREVIOUS_MODE : RTEMS.MODE;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -195,7 +196,7 @@ package body SPTEST is
SPTEST.ASR_FIRED := FALSE;
loop
exit when SPTEST.SIGNAL_SENT = TRUE;
exit when SPTEST.SIGNAL_SENT;
end loop;
if SPTEST.TIMER_GOT_THIS_ID = SPTEST.TIMER_ID( 1 ) and then
@@ -248,6 +249,7 @@ package body SPTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

6
c/src/ada-tests/sptests/sp15/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,8 +20,6 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -140,6 +139,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PTID_1 : RTEMS.ID;
PTID_2 : RTEMS.ID;
BUFFER_ADDRESS_1 : RTEMS.ADDRESS;

9
c/src/ada-tests/sptests/sp16/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +35,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -240,6 +240,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
RNID : RTEMS.ID;
SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
@@ -547,6 +548,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
@@ -633,6 +635,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
STATUS : RTEMS.STATUS_CODES;
@@ -675,6 +678,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
STATUS : RTEMS.STATUS_CODES;
@@ -727,6 +731,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_5 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
STATUS : RTEMS.STATUS_CODES;

9
c/src/ada-tests/sptests/sp17/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
@@ -35,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -97,6 +97,7 @@ package body SPTEST is
procedure PROCESS_ASR (
SIGNALS : in RTEMS.SIGNAL_SET
) is
pragma Unreferenced(SIGNALS);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -113,6 +114,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -132,7 +134,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_SEND" );
if SPTEST.TASK_2_PREEMPTED = TRUE then
if SPTEST.TASK_2_PREEMPTED then
TEXT_IO.PUT_LINE( "TA1 - TA2 correctly preempted me" );
end if;
@@ -151,6 +153,7 @@ package body SPTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/sptests/sp19/sptest.adp
View File

@@ -18,7 +18,6 @@
with INTERFACES; use INTERFACES;
with FLOAT_IO;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -261,6 +260,7 @@ package body SPTEST is
procedure FP_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
TID : RTEMS.ID;
TIME : RTEMS.TIME_OF_DAY;
@@ -344,6 +344,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
TID : RTEMS.ID;
TIME : RTEMS.TIME_OF_DAY;

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +35,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

7
c/src/ada-tests/sptests/sp22/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +35,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -95,6 +95,8 @@ package body SPTEST is
IGNORED_ID : in RTEMS.ID;
IGNORED_ADDRESS : in RTEMS.ADDRESS
) is
pragma Unreferenced(IGNORED_ID);
pragma Unreferenced(IGNORED_ADDRESS);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -135,6 +137,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TMID : RTEMS.ID;
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;

6
c/src/ada-tests/sptests/sp23/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,8 +21,6 @@
--
with ADDRESS_IO;
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -37,6 +35,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
INTERNAL_AREA : RTEMS.ADDRESS;
EXTERNAL_AREA : RTEMS.ADDRESS;
STATUS : RTEMS.STATUS_CODES;
@@ -98,6 +97,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
DPID : RTEMS.ID;
TO_BE_CONVERTED : RTEMS.ADDRESS;
CONVERTED : RTEMS.ADDRESS;

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
@@ -35,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -105,6 +105,7 @@ package body SPTEST is
TIMER_ID : in RTEMS.ID;
IGNORED_ADDRESS : in RTEMS.ADDRESS
) is
pragma Unreferenced(IGNORED_ADDRESS);
TASK_TO_RESUME : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin

22
c/src/ada-tests/sptests/sp25/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,8 +20,6 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +34,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -108,6 +107,7 @@ package body SPTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
RNID : RTEMS.ID;
SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
@@ -259,7 +259,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
TEXT_IO.NEW_LINE;
SEGMENT_ADDRESS_3 := RTEMS.NULL_ADDRESS;
-- SEGMENT_ADDRESS_3 := RTEMS.NULL_ADDRESS;
TEXT_IO.PUT(
"TA1 - region_return_segment - return segment to region 1 - "
@@ -272,7 +272,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
TEXT_IO.NEW_LINE;
SEGMENT_ADDRESS_4 := RTEMS.NULL_ADDRESS;
-- SEGMENT_ADDRESS_4 := RTEMS.NULL_ADDRESS;
TEXT_IO.PUT(
"TA1 - region_return_segment - return segment to region 1 - "
@@ -285,7 +285,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
TEXT_IO.NEW_LINE;
SEGMENT_ADDRESS_1 := RTEMS.NULL_ADDRESS;
-- SEGMENT_ADDRESS_1 := RTEMS.NULL_ADDRESS;
TEXT_IO.PUT(
"TA1 - region_return_segment - return segment to region 1 - "
@@ -298,7 +298,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
TEXT_IO.NEW_LINE;
SEGMENT_ADDRESS_2 := RTEMS.NULL_ADDRESS;
-- SEGMENT_ADDRESS_2 := RTEMS.NULL_ADDRESS;
TEXT_IO.PUT(
"TA1 - region_return_segment - return segment to region 1 - "
@@ -311,7 +311,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
TEXT_IO.NEW_LINE;
SEGMENT_ADDRESS_7 := RTEMS.NULL_ADDRESS;
-- SEGMENT_ADDRESS_7 := RTEMS.NULL_ADDRESS;
TEXT_IO.PUT(
"TA1 - region_return_segment - return segment to region 1 - "
@@ -324,7 +324,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
TEXT_IO.NEW_LINE;
SEGMENT_ADDRESS_6 := RTEMS.NULL_ADDRESS;
-- SEGMENT_ADDRESS_6 := RTEMS.NULL_ADDRESS;
TEXT_IO.PUT(
"TA1 - region_return_segment - return segment to region 1 - "
@@ -337,7 +337,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
TEXT_IO.NEW_LINE;
SEGMENT_ADDRESS_8 := RTEMS.NULL_ADDRESS;
-- SEGMENT_ADDRESS_8 := RTEMS.NULL_ADDRESS;
TEXT_IO.PUT(
"TA1 - region_return_segment - return segment to region 1 - "
@@ -350,7 +350,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
TEXT_IO.NEW_LINE;
SEGMENT_ADDRESS_5 := RTEMS.NULL_ADDRESS;
-- SEGMENT_ADDRESS_5 := RTEMS.NULL_ADDRESS;
TEXT_IO.PUT_LINE(
"TA1 - region_delete - walks heap if debug enabled"

6
c/src/ada-tests/sptests/spname01/spname01.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2008.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -19,10 +19,6 @@
-- $Id$
--
with RTEMS;
with SPTEST;
with TEST_SUPPORT;
procedure SPNAME01 is
begin

4
c/src/ada-tests/sptests/spname01/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2008.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,11 +20,9 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with Ada.Strings.Unbounded;
with System; use System; -- for Null Pointer comparison
package body SPTEST is

5
c/src/ada-tests/sptests/spname01/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2008.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,11 +20,8 @@
-- $Id$
--
with RTEMS;
package SPTEST is
task AdaTask;
end SPTEST;

3
c/src/ada-tests/support/address_io.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with System;
with System.Storage_Elements;
with Text_IO;

7
c/src/ada-tests/support/init.c
View File

@@ -9,12 +9,15 @@
#include <bsp.h>
#include <stdlib.h>
/*
* This is the entry point automatically generated by GNAT.
*/
extern int gnat_main ( int argc, char **argv, char **envp );
void *POSIX_Init(
void *argument
)
{
extern int gnat_main ( int argc, char **argv, char **envp );
(void) gnat_main ( 0, 0, 0 );
exit( 0 );

5
c/src/ada-tests/support/test_support.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with Interfaces; use Interfaces;
with RTEMS;
with Unsigned32_IO;
with Status_IO;
with Text_IO;
@@ -190,7 +189,7 @@ package body Test_Support is
Text_IO.Put( C3 );
Text_IO.Put( C4 );
if New_Line = True then
if New_Line then
Text_IO.New_Line;
end if;

4
c/src/ada-tests/support/test_support.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,9 +20,7 @@
-- $Id$
--
with Interfaces; use Interfaces;
with RTEMS;
with Text_IO;
package Test_Support is

3
c/src/ada-tests/support/time_test_support.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with TEXT_IO;
with UNSIGNED32_IO;

5
c/src/ada-tests/support/timer_driver.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -19,8 +19,7 @@
-- $Id$
--
with RTEMS;
with Interfaces.C;
with Interfaces;
package body Timer_Driver is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -80,6 +80,7 @@ package body TMTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SEMAPHORE_OBTAIN_TIME : RTEMS.UNSIGNED32;
SEMAPHORE_RELEASE_TIME : RTEMS.UNSIGNED32;
SEMAPHORE_OBTAIN_NO_WAIT_TIME : RTEMS.UNSIGNED32;

3
c/src/ada-tests/tmtests/tm01/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -147,6 +147,7 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -168,6 +169,7 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -188,6 +190,7 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;

3
c/src/ada-tests/tmtests/tm02/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -72,6 +72,7 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
@@ -137,6 +138,7 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -159,6 +161,7 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm03/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,10 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -162,6 +161,7 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
OLD_PRIORITY : RTEMS.TASK_PRIORITY;
OVERHEAD : RTEMS.UNSIGNED32;
NAME : RTEMS.NAME;
@@ -412,6 +412,7 @@ package body TMTEST is
procedure LOW_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm04/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with TIME_TEST_SUPPORT;
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,10 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -104,6 +103,7 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -132,6 +132,7 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -150,6 +151,7 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with TIME_TEST_SUPPORT;
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,10 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -88,6 +87,7 @@ package body TMTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
OVERHEAD : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -198,6 +198,7 @@ package body TMTEST is
procedure NULL_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
NULL;

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with TIME_TEST_SUPPORT;
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,10 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -159,6 +158,7 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with TIME_TEST_SUPPORT;
with RTEMS;

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -99,6 +99,7 @@ package body TMTEST is
procedure TEST_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
OVERHEAD : RTEMS.UNSIGNED32;
OLD_PRIORITY : RTEMS.TASK_PRIORITY;
OLD_MODE : RTEMS.MODE;
@@ -320,6 +321,7 @@ package body TMTEST is
procedure TEST_TASK1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm08/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -72,6 +72,7 @@ package body TMTEST is
procedure TEST_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -133,7 +134,7 @@ package body TMTEST is
EMPTY_FLUSH_COUNT : RTEMS.UNSIGNED32;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -64,7 +64,7 @@ package body TMTEST is
TASK_ID : RTEMS.ID;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -148,9 +148,10 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -177,9 +178,10 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -204,6 +206,7 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;

3
c/src/ada-tests/tmtests/tm10/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -77,6 +77,7 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ID : RTEMS.ID;
@@ -148,9 +149,10 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -188,9 +190,10 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm11/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -77,16 +77,13 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ID : RTEMS.ID;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
STATUS : RTEMS.STATUS_CODES;
begin
BUFFER_POINTER := BUFFER'ADDRESS;
RTEMS.MESSAGE_QUEUE_CREATE(
RTEMS.BUILD_NAME( 'M', 'Q', '1', ' ' ),
TIME_TEST_SUPPORT.OPERATION_COUNT,
@@ -136,6 +133,7 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
OVERHEAD : RTEMS.UNSIGNED32;
@@ -187,9 +185,10 @@ package body TMTEST is
procedure LOW_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm12/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -77,6 +77,7 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ID : RTEMS.ID;
@@ -147,9 +148,10 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -186,9 +188,10 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm13/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -77,6 +77,7 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ENTRY : RTEMS.TASK_ENTRY;
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ID : RTEMS.ID;
@@ -143,6 +144,7 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
OVERHEAD : RTEMS.UNSIGNED32;
@@ -193,9 +195,10 @@ package body TMTEST is
procedure LOW_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm14/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,13 +20,10 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +35,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -163,6 +161,7 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
EVENT_OUT : RTEMS.EVENT_SET;
OVERHEAD : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
@@ -250,6 +249,7 @@ package body TMTEST is
procedure HIGH_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
EVENT_OUT : RTEMS.EVENT_SET;
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm15/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with TIME_TEST_SUPPORT;
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,10 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -77,6 +76,7 @@ package body TMTEST is
procedure TEST_INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PRIORITY : RTEMS.TASK_PRIORITY;
TASK_ENTRY : RTEMS.TASK_ENTRY;
STATUS : RTEMS.STATUS_CODES;
@@ -136,6 +136,7 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
EVENT_OUT : RTEMS.EVENT_SET;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -166,6 +167,7 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
EVENT_OUT : RTEMS.EVENT_SET;
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm16/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -22,7 +22,6 @@
with RTEMS;
with TIME_TEST_SUPPORT;
with TIMER_DRIVER;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,10 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ENTRY : RTEMS.TASK_ENTRY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -89,6 +88,7 @@ package body TMTEST is
procedure FIRST_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -115,6 +115,7 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -139,6 +140,7 @@ package body TMTEST is
procedure LAST_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;

3
c/src/ada-tests/tmtests/tm17/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -22,7 +22,6 @@
with RTEMS;
with TIME_TEST_SUPPORT;
with TIMER_DRIVER;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -101,6 +101,7 @@ package body TMTEST is
procedure FIRST_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -118,6 +119,7 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -133,6 +135,7 @@ package body TMTEST is
procedure LAST_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;

4
c/src/ada-tests/tmtests/tm18/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,8 +21,6 @@
--
with RTEMS;
with TIME_TEST_SUPPORT;
with TIMER_DRIVER;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,13 +20,11 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -114,6 +113,7 @@ package body TMTEST is
procedure PROCESS_ASR_FOR_PASS_1 (
SIGNALS : in RTEMS.SIGNAL_SET
) is
pragma Unreferenced(SIGNALS);
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
@@ -140,6 +140,7 @@ package body TMTEST is
procedure PROCESS_ASR_FOR_PASS_2 (
SIGNALS : in RTEMS.SIGNAL_SET
) is
pragma Unreferenced(SIGNALS);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -160,6 +161,7 @@ package body TMTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -240,6 +242,7 @@ package body TMTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -262,6 +265,7 @@ package body TMTEST is
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

4
c/src/ada-tests/tmtests/tm19/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,8 +21,6 @@
--
with RTEMS;
with TIME_TEST_SUPPORT;
with TIMER_DRIVER;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,10 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -95,6 +94,7 @@ package body TMTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER_COUNT : RTEMS.UNSIGNED32;
PREVIOUS_MODE : RTEMS.MODE;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
@@ -406,6 +406,7 @@ package body TMTEST is
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm20/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
--
with TIME_TEST_SUPPORT;
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,13 +20,11 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -72,6 +71,7 @@ package body TMTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
ID : RTEMS.ID;
OVERHEAD : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;

3
c/src/ada-tests/tmtests/tm21/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -22,7 +22,6 @@
with RTEMS;
with SYSTEM;
with TIMER_DRIVER;
with System.Storage_Elements;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,13 +20,11 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -96,6 +95,7 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
COUNT : RTEMS.UNSIGNED32;
@@ -135,12 +135,13 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
ID : RTEMS.ID;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
OVERHEAD : RTEMS.UNSIGNED32;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -231,6 +232,7 @@ package body TMTEST is
procedure PREEMPT_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
COUNT : RTEMS.UNSIGNED32;

3
c/src/ada-tests/tmtests/tm22/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,10 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,7 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
OVERHEAD : RTEMS.UNSIGNED32;
pragma Unreferenced(ARGUMENT);
TASK_PRIORITY : RTEMS.TASK_PRIORITY;
ID : RTEMS.ID;
TASK_ENTRY : RTEMS.TASK_ENTRY;
@@ -48,13 +46,6 @@ package body TMTEST is
TEXT_IO.NEW_LINE( 2 );
TEXT_IO.PUT_LINE( "*** TIME TEST 23 ***" );
TIMER_DRIVER.INITIALIZE;
for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
loop
TIMER_DRIVER.EMPTY_FUNCTION;
end loop;
OVERHEAD := TIMER_DRIVER.READ_TIMER;
TASK_PRIORITY := 5;
for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
@@ -114,6 +105,7 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
OVERHEAD : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -161,7 +153,7 @@ package body TMTEST is
"TIMER_FIRE_AFTER (inactive)",
TMTEST.END_TIME,
TIME_TEST_SUPPORT.OPERATION_COUNT,
0,
OVERHEAD,
RTEMS_CALLING_OVERHEAD.TIMER_FIRE_AFTER
);
@@ -362,6 +354,7 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -377,6 +370,7 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;

3
c/src/ada-tests/tmtests/tm23/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with TIME_TEST_SUPPORT;
with RTEMS;

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -98,6 +98,7 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -131,6 +132,7 @@ package body TMTEST is
procedure TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm24/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,13 +20,11 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TASK_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -110,6 +109,7 @@ package body TMTEST is
procedure HIGH_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -130,6 +130,7 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin

3
c/src/ada-tests/tmtests/tm25/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,13 +20,10 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +35,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -76,6 +74,7 @@ package body TMTEST is
procedure TEST_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
NAME : RTEMS.NAME;
OVERHEAD : RTEMS.UNSIGNED32;
CONVERTED : RTEMS.ADDRESS;

3
c/src/ada-tests/tmtests/tm28/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -22,7 +22,6 @@
with SYSTEM;
with TIME_TEST_SUPPORT;
with TIMER_DRIVER;
with RTEMS;
with System.Storage_Elements;

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -173,6 +173,7 @@ package body TMTEST is
procedure TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
ID : RTEMS.NAME;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -204,6 +205,7 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
OVERHEAD : RTEMS.UNSIGNED32;
begin

3
c/src/ada-tests/tmtests/tm29/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -22,7 +22,6 @@
with TIMER_DRIVER;
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -80,6 +80,7 @@ package body TMTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
TMTEST.CHECK_READ_TIMER;

3
c/src/ada-tests/tmtests/tmck/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,7 +20,6 @@
-- $Id$
--
with TIMER_DRIVER;
with RTEMS;
package TMTEST is

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

@@ -11,7 +11,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,8 +21,6 @@
-- $Id$
--
with RTEMS;
package body DUMMY_RTEMS is
-- Task Manager
@@ -36,6 +34,11 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
pragma Unreferenced(INITIAL_PRIORITY);
pragma Unreferenced(STACK_SIZE);
pragma Unreferenced(INITIAL_MODES);
pragma Unreferenced(ATTRIBUTE_SET);
begin
ID := 0;
@@ -49,6 +52,8 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
pragma Unreferenced(NODE);
begin
ID := 0;
@@ -62,6 +67,9 @@ package body DUMMY_RTEMS is
ARGUMENT : in RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(ENTRY_POINT);
pragma Unreferenced(ARGUMENT);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -73,6 +81,8 @@ package body DUMMY_RTEMS is
ARGUMENT : in RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(ARGUMENT);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -83,6 +93,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -93,6 +104,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -103,6 +115,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -115,6 +128,8 @@ package body DUMMY_RTEMS is
OLD_PRIORITY : out RTEMS.TASK_PRIORITY;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(NEW_PRIORITY);
begin
OLD_PRIORITY := 0;
@@ -128,6 +143,8 @@ package body DUMMY_RTEMS is
PREVIOUS_MODE_SET : out RTEMS.MODE;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(MODE_SET);
pragma Unreferenced(MASK);
begin
PREVIOUS_MODE_SET := 0;
@@ -141,6 +158,8 @@ package body DUMMY_RTEMS is
NOTE : out RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(NOTEPAD);
begin
NOTE := 0;
@@ -154,6 +173,9 @@ package body DUMMY_RTEMS is
NOTE : in RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(NOTEPAD);
pragma Unreferenced(NOTE);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -164,6 +186,7 @@ package body DUMMY_RTEMS is
TIME_BUFFER : in RTEMS.TIME_OF_DAY;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(TIME_BUFFER);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -174,6 +197,7 @@ package body DUMMY_RTEMS is
TICKS : in RTEMS.INTERVAL;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(TICKS);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -202,6 +226,8 @@ package body DUMMY_RTEMS is
TIME_BUFFER : in RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(OPTION);
pragma Unreferenced(TIME_BUFFER);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -212,6 +238,7 @@ package body DUMMY_RTEMS is
TIME_BUFFER : in RTEMS.TIME_OF_DAY;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(TIME_BUFFER);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -234,6 +261,7 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
begin
ID := 0;
@@ -245,6 +273,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -256,6 +285,7 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
begin
ID := 0;
@@ -270,6 +300,10 @@ package body DUMMY_RTEMS is
USER_DATA : in RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(TICKS);
pragma Unreferenced(ROUTINE);
pragma Unreferenced(USER_DATA);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -283,6 +317,10 @@ package body DUMMY_RTEMS is
USER_DATA : in RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(WALL_TIME);
pragma Unreferenced(ROUTINE);
pragma Unreferenced(USER_DATA);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -293,6 +331,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -303,6 +342,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -319,6 +359,10 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
pragma Unreferenced(COUNT);
pragma Unreferenced(ATTRIBUTE_SET);
pragma Unreferenced(PRIORITY_CEILING);
begin
ID := 0;
@@ -330,6 +374,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -342,6 +387,8 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
pragma Unreferenced(NODE);
begin
ID := 0;
@@ -355,6 +402,9 @@ package body DUMMY_RTEMS is
TIMEOUT : in RTEMS.INTERVAL;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(OPTION_SET);
pragma Unreferenced(TIMEOUT);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -365,6 +415,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -381,6 +432,10 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes
) is
pragma Unreferenced(Name);
pragma Unreferenced(Count);
pragma Unreferenced(Max_Message_Size);
pragma Unreferenced(Attribute_Set);
begin
ID := 0;
@@ -394,6 +449,8 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
pragma Unreferenced(NODE);
begin
ID := 0;
@@ -405,6 +462,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -417,6 +475,9 @@ package body DUMMY_RTEMS is
Size : in RTEMS.Unsigned32;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(BUFFER);
pragma Unreferenced(Size);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -429,6 +490,9 @@ package body DUMMY_RTEMS is
Size : in RTEMS.Unsigned32;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(BUFFER);
pragma Unreferenced(Size);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -442,6 +506,9 @@ package body DUMMY_RTEMS is
COUNT : out RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(BUFFER);
pragma Unreferenced(Size);
begin
COUNT := 0;
@@ -457,6 +524,10 @@ package body DUMMY_RTEMS is
Size : out RTEMS.Unsigned32;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(BUFFER);
pragma Unreferenced(OPTION_SET);
pragma Unreferenced(TIMEOUT);
begin
Size := 0;
@@ -469,6 +540,7 @@ package body DUMMY_RTEMS is
COUNT : out RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
COUNT := 0;
@@ -483,6 +555,8 @@ package body DUMMY_RTEMS is
EVENT_IN : in RTEMS.EVENT_SET;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(EVENT_IN);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -496,6 +570,9 @@ package body DUMMY_RTEMS is
EVENT_OUT : out RTEMS.EVENT_SET;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(EVENT_IN);
pragma Unreferenced(OPTION_SET);
pragma Unreferenced(TICKS);
begin
EVENT_OUT := 0;
@@ -510,6 +587,8 @@ package body DUMMY_RTEMS is
MODE_SET : in RTEMS.MODE;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ASR_HANDLER);
pragma Unreferenced(MODE_SET);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -521,6 +600,8 @@ package body DUMMY_RTEMS is
SIGNAL_SET : in RTEMS.SIGNAL_SET;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(SIGNAL_SET);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -538,6 +619,11 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
pragma Unreferenced(STARTING_ADDRESS);
pragma Unreferenced(LENGTH);
pragma Unreferenced(BUFFER_SIZE);
pragma Unreferenced(ATTRIBUTE_SET);
begin
ID := 0;
@@ -551,6 +637,8 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
pragma Unreferenced(NODE);
begin
ID := 0;
@@ -562,6 +650,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -573,6 +662,7 @@ package body DUMMY_RTEMS is
BUFFER : out RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
BUFFER := RTEMS.Null_Address;
@@ -585,6 +675,8 @@ package body DUMMY_RTEMS is
BUFFER : in RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(BUFFER);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -602,6 +694,11 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
pragma Unreferenced(STARTING_ADDRESS);
pragma Unreferenced(LENGTH);
pragma Unreferenced(PAGE_SIZE);
pragma Unreferenced(ATTRIBUTE_SET);
begin
ID := 0;
@@ -614,6 +711,7 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
begin
ID := 0;
@@ -625,6 +723,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -639,6 +738,10 @@ package body DUMMY_RTEMS is
SEGMENT : out RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(SIZE);
pragma Unreferenced(OPTION_SET);
pragma Unreferenced(TIMEOUT);
begin
SEGMENT := RTEMS.Null_Address;
@@ -651,6 +754,8 @@ package body DUMMY_RTEMS is
SEGMENT : in RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(SEGMENT);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -667,6 +772,10 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
pragma Unreferenced(INTERNAL_START);
pragma Unreferenced(EXTERNAL_START);
pragma Unreferenced(LENGTH);
begin
ID := 0;
@@ -679,6 +788,7 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
begin
ID := 0;
@@ -690,6 +800,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -702,6 +813,8 @@ package body DUMMY_RTEMS is
INTERNAL : out RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(EXTERNAL);
begin
INTERNAL := RTEMS.Null_Address;
@@ -715,6 +828,8 @@ package body DUMMY_RTEMS is
EXTERNAL : out RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(INTERNAL);
begin
EXTERNAL := RTEMS.Null_Address;
@@ -727,6 +842,7 @@ package body DUMMY_RTEMS is
procedure FATAL_ERROR_OCCURRED (
THE_ERROR : in RTEMS.UNSIGNED32
) is
pragma Unreferenced(THE_ERROR);
begin
NULL;
@@ -740,6 +856,7 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
begin
ID := 0;
@@ -752,6 +869,7 @@ package body DUMMY_RTEMS is
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(NAME);
begin
ID := 0;
@@ -763,6 +881,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -773,6 +892,7 @@ package body DUMMY_RTEMS is
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
begin
RESULT := RTEMS.SUCCESSFUL;
@@ -784,6 +904,8 @@ package body DUMMY_RTEMS is
LENGTH : in RTEMS.INTERVAL;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(ID);
pragma Unreferenced(LENGTH);
begin
RESULT := RTEMS.SUCCESSFUL;

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

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,10 @@
--
with DUMMY_RTEMS;
with INTERFACES; use INTERFACES;
with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
with UNSIGNED32_IO;
with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +36,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -123,6 +122,7 @@ package body TMTEST is
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
NAME : RTEMS.NAME;
OVERHEAD : RTEMS.UNSIGNED32;
ID : RTEMS.ID;
@@ -141,8 +141,6 @@ package body TMTEST is
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32;
COUNT : RTEMS.UNSIGNED32;
MAJOR : RTEMS.DEVICE_MAJOR_NUMBER;
MINOR : RTEMS.DEVICE_MINOR_NUMBER;
ERROR : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -156,8 +154,6 @@ package body TMTEST is
MASK := 0;
SIGNALS := 0;
EVENTS := 0;
MAJOR := 0;
MINOR := 0;
ERROR := 0;
-- TASK_CREATE

3
c/src/ada-tests/tmtests/tmoverhd/tmtest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -22,7 +22,6 @@
with RTEMS;
with SYSTEM;
with TIMER_DRIVER;
with System.Storage_Elements;
package TMTEST is