From f2078ec712a7196d223ee6e5f6957ef68f371bdd Mon Sep 17 00:00:00 2001
From: Joel Sherrill <joel.sherrill@OARcorp.com>
Date: Tue, 3 Jun 1997 00:13:05 +0000
Subject: New style main procedure which creates the test's RTEMS
 initialization task as an RTEMS task.  This avoid problems resulting from
 differences in the tasking mode/priority of Ada tasks from the typical way an
 RTEMS initialization task is created.

---
 c/src/ada-tests/sptests/sp22/sp22.adb | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

(limited to 'c/src/ada-tests/sptests/sp22/sp22.adb')

diff --git a/c/src/ada-tests/sptests/sp22/sp22.adb b/c/src/ada-tests/sptests/sp22/sp22.adb
index 9b3ba0f50c..06cb14a01f 100644
--- a/c/src/ada-tests/sptests/sp22/sp22.adb
+++ b/c/src/ada-tests/sptests/sp22/sp22.adb
@@ -20,12 +20,38 @@
 --  $Id$
 --
 
+with RTEMS;
 with SPTEST;
+with TEST_SUPPORT;
 
 procedure SP22 is
+  INIT_ID : RTEMS.ID;
+  STATUS  : RTEMS.STATUS_CODES;
 begin
 
-  SPTEST.INIT( 0 );
+   RTEMS.TASK_CREATE(
+      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
+      1,
+      RTEMS.MINIMUM_STACK_SIZE,
+      RTEMS.NO_PREEMPT,
+      RTEMS.DEFAULT_ATTRIBUTES,
+      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 SP22;
 
-- 
cgit v1.2.3