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.

1 files changed, 27 insertions, 1 deletions

diff --git a/c/src/ada-tests/sptests/sp24/sp24.adb b/c/src/ada-tests/sptests/sp24/sp24.adb
index 04835b6bb5..d060a5308e 100644
--- a/c/src/ada-tests/sptests/sp24/sp24.adb
+++ b/c/src/ada-tests/sptests/sp24/sp24.adb
@@ -20,12 +20,38 @@
 --  $Id$
 --
 
+with RTEMS;
 with SPTEST;
+with TEST_SUPPORT;
 
 procedure SP24 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 SP24;