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

2002-08-26 Joel Sherrill <joel@OARcorp.com>

Browse Source 
* sptests/sp19/sptest.adb: Modified to follow pattern of SP01
	even though this test is not supported.
	* sptests/sp19/sp19.adb: New file.
This commit is contained in:
Joel Sherrill
2002-08-26 17:20:36 +00:00
parent 190f5c23ee
commit f435621be9
3 changed files with 85 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,3 +1,9 @@
2002-08-26 Joel Sherrill <joel@OARcorp.com>
* sptests/sp19/sptest.adb: Modified to follow pattern of SP01
even though this test is not supported.
* sptests/sp19/sp19.adb: New file.
2002-08-26 Joel Sherrill <joel@OARcorp.com>
* mptests/mp01/mptest.ads, mptests/mp02/mptest.ads,

57
c/src/ada-tests/sptests/sp19/sp19.adb Normal file
View File

@@ -0,0 +1,57 @@
--
-- MAIN / BODY
--
-- DESCRIPTION:
--
-- This is the entry point for Test SP19 of the Single Processor Test Suite.
--
-- DEPENDENCIES:
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- On-Line Applications Research Corporation (OAR).
-- Copyright assigned to U.S. Government, 1994.
--
-- The license and distribution terms for this file may in
-- the file LICENSE in this distribution or at
-- http://www.OARcorp.com/rtems/license.html.
--
-- $Id$
--
with RTEMS;
with SPTEST;
with TEST_SUPPORT;
procedure SP19 is
INIT_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
RTEMS.NO_PREEMPT,
RTEMS.FLOATING_POINT,
INIT_ID,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
loop
delay 120.0;
end loop;
end SP19;

51
c/src/ada-tests/sptests/sp19/sptest.adb
View File

@@ -1,9 +1,10 @@
--
-- MAIN / BODY
-- SPTEST / BODY
--
-- DESCRIPTION:
--
-- This is the entry point for Test SP19 of the Single Processor Test Suite.
-- This package is the implementation of Test 19 of the RTEMS
-- Single Processor Test Suite.
--
-- DEPENDENCIES:
--
@@ -20,38 +21,30 @@
-- $Id$
--
with INTERFACES; use INTERFACES;
with RTEMS;
with SPTEST;
with TEST_SUPPORT;
with TEXT_IO;
procedure SP19 is
INIT_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
package body SPTEST is
RTEMS.TASK_CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
RTEMS.NO_PREEMPT,
RTEMS.FLOATING_POINT,
INIT_ID,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
TEXT_IO.NEW_LINE( 2 );
TEXT_IO.PUT_LINE( "*** TEST 19***" );
TEXT_IO.PUT_LINE( "Not currently implemented" );
TEXT_IO.PUT_LINE( "*** END OF TEST 19***" );
loop
delay 120.0;
end loop;
end SP19;
end INIT;
end SPTEST;