Changeset f435621b in rtems
- Timestamp:
- 08/26/02 17:20:36 (20 years ago)
- Branches:
- 4.10, 4.11, 4.8, 4.9, 5, master
- Children:
- b2b7cfc9
- Parents:
- 190f5c23
- Location:
- c/src/ada-tests
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
c/src/ada-tests/ChangeLog
r190f5c23 rf435621b 1 2002-08-26 Joel Sherrill <joel@OARcorp.com> 2 3 * sptests/sp19/sptest.adb: Modified to follow pattern of SP01 4 even though this test is not supported. 5 * sptests/sp19/sp19.adb: New file. 6 1 7 2002-08-26 Joel Sherrill <joel@OARcorp.com> 2 8 -
c/src/ada-tests/sptests/sp19/sptest.adb
r190f5c23 rf435621b 1 1 -- 2 -- MAIN/ BODY2 -- SPTEST / BODY 3 3 -- 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test SP19 of the Single Processor Test Suite. 6 -- This package is the implementation of Test 19 of the RTEMS 7 -- Single Processor Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: … … 21 22 -- 22 23 24 with INTERFACES; use INTERFACES; 23 25 with RTEMS; 24 with SPTEST;25 26 with TEST_SUPPORT; 27 with TEXT_IO; 26 28 27 procedure SP19 is 28 INIT_ID : RTEMS.ID; 29 STATUS : RTEMS.STATUS_CODES; 30 begin 29 package body SPTEST is 31 30 32 RTEMS.TASK_CREATE( 33 RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ), 34 1, 35 RTEMS.MINIMUM_STACK_SIZE, 36 RTEMS.NO_PREEMPT, 37 RTEMS.FLOATING_POINT, 38 INIT_ID, 39 STATUS 40 ); 41 TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" ); 31 --PAGE 32 -- 33 -- INIT 34 -- 42 35 36 procedure INIT ( 37 ARGUMENT : in RTEMS.TASK_ARGUMENT 38 ) is 39 TIME : RTEMS.TIME_OF_DAY; 40 STATUS : RTEMS.STATUS_CODES; 41 begin 43 42 44 RTEMS.TASK_START( 45 INIT_ID, 46 SPTEST.INIT'ACCESS, 47 0, 48 STATUS 49 ); 50 TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" ); 43 TEXT_IO.NEW_LINE( 2 ); 44 TEXT_IO.PUT_LINE( "*** TEST 19***" ); 45 TEXT_IO.PUT_LINE( "Not currently implemented" ); 46 TEXT_IO.PUT_LINE( "*** END OF TEST 19***" ); 51 47 52 loop 53 delay 120.0; 54 end loop; 48 end INIT; 55 49 56 end SP19; 57 50 end SPTEST;
Note: See TracChangeset
for help on using the changeset viewer.