Changeset f2078ec in rtems


Ignore:
Timestamp:
06/03/97 00:13:05 (26 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
e56a2ef
Parents:
8e7b810
Message:

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.

Location:
c/src/ada-tests/sptests
Files:
1 added
27 edited

Legend:

Unmodified
Added
Removed

  • c/src/ada-tests/sptests/sp01/sp01.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP01 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP01;

  • c/src/ada-tests/sptests/sp02/sp02.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP02 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP02;

  • c/src/ada-tests/sptests/sp03/sp03.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP03 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP03;

  • c/src/ada-tests/sptests/sp03/sptest.adb

    r8e7b810 rf2078ec  
    5050         SPTEST.TASK_NAME( 1 ),
    5151         1,
    52          2048,
     52         RTEMS.MINIMUM_STACK_SIZE,
    5353         RTEMS.DEFAULT_MODES,
    5454         RTEMS.DEFAULT_ATTRIBUTES,
    … …  
    6161         SPTEST.TASK_NAME( 2 ),
    6262         1,
    63          2048,
     63         RTEMS.MINIMUM_STACK_SIZE,
    6464         RTEMS.DEFAULT_MODES,
    6565         RTEMS.DEFAULT_ATTRIBUTES,

  • c/src/ada-tests/sptests/sp04/sp04.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP04 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP04;

  • c/src/ada-tests/sptests/sp04/sptest.adb

    r8e7b810 rf2078ec  
    283283      TIME   : RTEMS.TIME_OF_DAY;
    284284      STATUS : RTEMS.STATUS_CODES;
    285    begin
    286 
    287       INDEX := TEST_SUPPORT.TASK_NUMBER( HEIR.OBJECT.ID );
     285      function TCB_To_ID (
     286         TCB : RTEMS.TCB_POINTER
     287      ) return RTEMS.ID;
     288      pragma Import (C, TCB_To_ID, "tcb_to_id" );
     289         
     290   begin
     291
     292      --INDEX := TEST_SUPPORT.TASK_NUMBER( HEIR.OBJECT.ID );
     293      INDEX := TCB_To_ID( HEIR );
    288294
    289295      case INDEX is

  • c/src/ada-tests/sptests/sp04/sptest.ads

    r8e7b810 rf2078ec  
    114114   );
    115115
     116--
     117--  This is the User Extension Table for this test.
     118--
     119
     120   EXTENSIONS : aliased RTEMS.EXTENSIONS_TABLE :=
     121   (
     122        NULL,                                        -- Task create
     123        NULL,                                        -- Task start
     124        NULL,                                        -- Task restart
     125        NULL,                                        -- Task delete
     126        SPTEST.TASK_SWITCH'ACCESS,                   -- Task switch
     127        NULL,                                        -- Task post switch
     128        NULL,                                        -- Task begin
     129        NULL,                                        -- Task exitted
     130        NULL                                         -- Fatal error
     131   );
     132
    116133end SPTEST;

  • c/src/ada-tests/sptests/sp05/sp05.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP05 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP05;

  • c/src/ada-tests/sptests/sp06/sp06.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP06 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP06;

  • c/src/ada-tests/sptests/sp07/sp07.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP07 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP07;

  • c/src/ada-tests/sptests/sp08/sp08.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP08 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP08;

  • c/src/ada-tests/sptests/sp09/sp09.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP09 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP09;

  • c/src/ada-tests/sptests/sp11/sp11.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP11 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP11;

  • c/src/ada-tests/sptests/sp12/sp12.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP12 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP12;

  • c/src/ada-tests/sptests/sp13/sp13.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP13 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP13;

  • c/src/ada-tests/sptests/sp14/sp14.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP14 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP14;

  • c/src/ada-tests/sptests/sp15/sp15.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP15 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP15;

  • c/src/ada-tests/sptests/sp16/sp16.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP16 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP16;

  • c/src/ada-tests/sptests/sp17/sp17.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP17 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP17;

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

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP19 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP19;

  • c/src/ada-tests/sptests/sp20/sp20.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP20 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP20;

  • c/src/ada-tests/sptests/sp21/sp21.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP21 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP21;

  • c/src/ada-tests/sptests/sp22/sp22.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP22 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP22;

  • c/src/ada-tests/sptests/sp23/sp23.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP23 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP23;

  • c/src/ada-tests/sptests/sp24/sp24.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP24 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP24;

  • c/src/ada-tests/sptests/sp25/sp25.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP25 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP25;

  • c/src/ada-tests/sptests/spsize/spsize.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SPsize is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     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" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SPsize;
Note: See TracChangeset for help on using the changeset viewer.