Changeset 5e05fa0 in rtems


Ignore:
Timestamp:
Dec 1, 2017, 2:21:34 PM (2 years ago)
Author:
Sebastian Huber <sebastian.huber@…>
Branches:
master
Children:
dda8142f
Parents:
c589775a
Message:

ada: Fix user extension support

Files:
2 edited

Legend:

Unmodified
Added
Removed
  • cpukit/include/adainclude/rtems.ads

    rc589775a r5e05fa0  
    275275   pragma Convention (C, Thread_Switch_Extension);
    276276
    277    type Thread_Post_Switch_Extension is access procedure (
    278       Current_Task : in     RTEMS.TCB_Pointer
    279    );
    280    pragma Convention (C, Thread_Post_Switch_Extension);
    281 
    282277   type Thread_Begin_Extension is access procedure (
    283278      Current_Task : in     RTEMS.TCB_Pointer
     
    289284   );
    290285   pragma Convention (C, Thread_Exitted_Extension);
     286
     287   type Thread_Terminate_Extension is access procedure (
     288      Current_Task : in     RTEMS.TCB_Pointer
     289   );
     290   pragma Convention (C, Thread_Terminate_Extension);
    291291
    292292   type Fatal_Error_Extension is access procedure (
     
    302302         Thread_Delete      : RTEMS.Thread_Delete_Extension;
    303303         Thread_Switch      : RTEMS.Thread_Switch_Extension;
    304          Thread_Post_Switch : RTEMS.Thread_Post_Switch_Extension;
    305304         Thread_Begin       : RTEMS.Thread_Begin_Extension;
    306305         Thread_Exitted     : RTEMS.Thread_Exitted_Extension;
    307306         Fatal              : RTEMS.Fatal_Error_Extension;
     307         Thread_Terminate   : RTEMS.Thread_Terminate_Extension;
    308308      end record;
    309309
  • testsuites/ada/sptests/sp07/sptest.ads

    rc589775a r5e05fa0  
    186186        SPTEST.TASK_DELETE_EXTENSION'ACCESS,         -- Task delete
    187187        NULL,                                        -- Task switch
    188         NULL,                                        -- Task post switch
    189188        NULL,                                        -- Task begin
    190189        SPTEST.TASK_EXIT_EXTENSION'ACCESS,           -- Task exitted
    191         NULL                                         -- Fatal error
     190        NULL,                                        -- Fatal error
     191        NULL                                         -- Task terminate
    192192   );
    193193
Note: See TracChangeset for help on using the changeset viewer.