Changeset f2078ec in rtems for c/src/ada-tests/sptests/sp04


Ignore:
Timestamp:
Jun 3, 1997, 12:13:05 AM (24 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/sp04
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • 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;
Note: See TracChangeset for help on using the changeset viewer.