Changeset f435621b in rtems

Timestamp:

08/26/02 17:20:36 (20 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

b2b7cfc9

Parents:

190f5c23

Message:

2002-08-26 Joel Sherrill <joel@…>

• sptests/sp19/sptest.adb: Modified to follow pattern of SP01 even though this test is not supported.
• sptests/sp19/sp19.adb: New file.

Location:

c/src/ada-tests

Files:

• ChangeLog (modified) (1 diff)
• sptests/sp19/sp19.adb (added)
• sptests/sp19/sptest.adb (modified) (2 diffs)

c/src/ada-tests/ChangeLog

@@ +1 @@
+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>
 

c/src/ada-tests/sptests/sp19/sptest.adb

@@ -1 +1 @@
 --
---  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: 
@@ -21 +22 @@
 --
 
+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 INIT;
 
-end SP19;
-
+end SPTEST;