Changeset e56a2ef in rtems


Ignore:
Timestamp:
Jun 3, 1997, 12:32:50 AM (23 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
7e3dcbc
Parents:
f2078ec
Message:

updated to run

Location:
c/src/ada-tests/sptests/sp07
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/sptests/sp07/sptest.adb

    rf2078ec re56a2ef  
    3131
    3232--PAGE
     33--
     34-- TCB_To_ID
     35--
     36
     37      function TCB_To_ID (
     38         TCB : RTEMS.TCB_POINTER
     39      ) return RTEMS.ID;
     40      pragma Import (C, TCB_To_ID, "tcb_to_id" );
     41
     42--PAGE
    3343--
    3444--  INIT
     
    6373         SPTEST.TASK_NAME( 1 ),
    6474         4,
    65          2048,
     75         RTEMS.MINIMUM_STACK_SIZE,
    6676         RTEMS.DEFAULT_MODES,
    6777         RTEMS.DEFAULT_ATTRIBUTES,
     
    7484         SPTEST.TASK_NAME( 2 ),
    7585         4,
    76          2048,
     86         RTEMS.MINIMUM_STACK_SIZE,
    7787         RTEMS.DEFAULT_MODES,
    7888         RTEMS.DEFAULT_ATTRIBUTES,
     
    8595         SPTEST.TASK_NAME( 3 ),
    8696         250,
    87          2048,
     97         RTEMS.MINIMUM_STACK_SIZE,
    8898         RTEMS.DEFAULT_MODES,
    8999         RTEMS.DEFAULT_ATTRIBUTES,
     
    96106         SPTEST.TASK_NAME( 4 ),
    97107         254,
    98          2048,
     108         RTEMS.MINIMUM_STACK_SIZE,
    99109         RTEMS.DEFAULT_MODES,
    100110         RTEMS.DEFAULT_ATTRIBUTES,
     
    370380   begin
    371381
    372       if TEST_SUPPORT.TASK_NUMBER( RUNNING_TASK.OBJECT.ID ) > 0 then
     382      if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RUNNING_TASK ) ) > 0 then
    373383         TEXT_IO.PUT_LINE( "TASK_EXITTED - user extension invoked correctly" );
    374384      end if;
     
    390400   begin
    391401
    392       if TEST_SUPPORT.TASK_NUMBER( CREATED_TASK.OBJECT.ID ) > 0 then
     402      if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( CREATED_TASK ) ) > 0 then
    393403         TEXT_IO.PUT( "TASKS_CREATE - " );
    394404         TEST_SUPPORT.PUT_NAME(
    395405            SPTEST.TASK_NAME(
    396                TEST_SUPPORT.TASK_NUMBER( CREATED_TASK.OBJECT.ID )
     406               TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( CREATED_TASK ) )
    397407            ),
    398408            FALSE
     
    414424   begin
    415425
    416       if TEST_SUPPORT.TASK_NUMBER( RUNNING_TASK.OBJECT.ID ) > 0 then
     426      if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RUNNING_TASK ) ) > 0 then
    417427         TEXT_IO.PUT( "TASKS_DELETE - " );
    418428         TEST_SUPPORT.PUT_NAME(
    419429            SPTEST.TASK_NAME(
    420                TEST_SUPPORT.TASK_NUMBER( RUNNING_TASK.OBJECT.ID )
     430               TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RUNNING_TASK ) )
    421431            ),
    422432            FALSE
     
    424434      end if;
    425435
    426       if TEST_SUPPORT.TASK_NUMBER( DELETED_TASK.OBJECT.ID ) > 0 then
     436      if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( DELETED_TASK ) ) > 0 then
    427437         TEXT_IO.PUT( "deleting " );
    428438         TEST_SUPPORT.PUT_NAME(
    429439            SPTEST.TASK_NAME(
    430                TEST_SUPPORT.TASK_NUMBER( DELETED_TASK.OBJECT.ID )
     440               TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( DELETED_TASK ) )
    431441            ),
    432442            TRUE
     
    447457   begin
    448458
    449       if TEST_SUPPORT.TASK_NUMBER( RESTARTED_TASK.OBJECT.ID ) > 0 then
     459      if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RESTARTED_TASK ) ) > 0 then
    450460         TEXT_IO.PUT( "TASKS_RESTART - " );
    451461         TEST_SUPPORT.PUT_NAME(
    452462            SPTEST.TASK_NAME(
    453                TEST_SUPPORT.TASK_NUMBER( RESTARTED_TASK.OBJECT.ID )
     463               TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RESTARTED_TASK ) )
    454464            ),
    455465            FALSE
     
    471481   begin
    472482
    473       if TEST_SUPPORT.TASK_NUMBER( STARTED_TASK.OBJECT.ID ) > 0 then
     483      if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( STARTED_TASK ) ) > 0 then
    474484         TEXT_IO.PUT( "TASKS_START - " );
    475485         TEST_SUPPORT.PUT_NAME(
    476486            SPTEST.TASK_NAME(
    477                TEST_SUPPORT.TASK_NUMBER( STARTED_TASK.OBJECT.ID )
     487               TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( STARTED_TASK ) )
    478488            ),
    479489            FALSE
  • c/src/ada-tests/sptests/sp07/sptest.ads

    rf2078ec re56a2ef  
    167167   );
    168168
     169--
     170--  This is the User Extension Table for this test.
     171--
     172
     173   EXTENSIONS : aliased RTEMS.EXTENSIONS_TABLE :=
     174   (
     175        SPTEST.TASK_CREATE_EXTENSION'ACCESS,         -- Task create
     176        SPTEST.TASK_START_EXTENSION'ACCESS,          -- Task start
     177        SPTEST.TASK_RESTART_EXTENSION'ACCESS,        -- Task restart
     178        SPTEST.TASK_DELETE_EXTENSION'ACCESS,         -- Task delete
     179        NULL,                                        -- Task switch
     180        NULL,                                        -- Task post switch
     181        NULL,                                        -- Task begin
     182        SPTEST.TASK_EXIT_EXTENSION'ACCESS,           -- Task exitted
     183        NULL                                         -- Fatal error
     184   );
     185
    169186end SPTEST;
Note: See TracChangeset for help on using the changeset viewer.