From 5e05fa0f7b8332689a4fc42bcf9d2a77d08d5d60 Mon Sep 17 00:00:00 2001 From: Sebastian Huber Date: Fri, 1 Dec 2017 15:21:34 +0100 Subject: ada: Fix user extension support --- cpukit/include/adainclude/rtems.ads | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'cpukit') diff --git a/cpukit/include/adainclude/rtems.ads b/cpukit/include/adainclude/rtems.ads index 2b59c74186..17ce1ab1d2 100644 --- a/cpukit/include/adainclude/rtems.ads +++ b/cpukit/include/adainclude/rtems.ads @@ -274,11 +274,6 @@ pragma Elaborate_Body (RTEMS); ); pragma Convention (C, Thread_Switch_Extension); - type Thread_Post_Switch_Extension is access procedure ( - Current_Task : in RTEMS.TCB_Pointer - ); - pragma Convention (C, Thread_Post_Switch_Extension); - type Thread_Begin_Extension is access procedure ( Current_Task : in RTEMS.TCB_Pointer ); @@ -289,6 +284,11 @@ pragma Elaborate_Body (RTEMS); ); pragma Convention (C, Thread_Exitted_Extension); + type Thread_Terminate_Extension is access procedure ( + Current_Task : in RTEMS.TCB_Pointer + ); + pragma Convention (C, Thread_Terminate_Extension); + type Fatal_Error_Extension is access procedure ( Error : in RTEMS.Unsigned32 ); @@ -301,10 +301,10 @@ pragma Elaborate_Body (RTEMS); Thread_Restart : RTEMS.Thread_Restart_Extension; Thread_Delete : RTEMS.Thread_Delete_Extension; Thread_Switch : RTEMS.Thread_Switch_Extension; - Thread_Post_Switch : RTEMS.Thread_Post_Switch_Extension; Thread_Begin : RTEMS.Thread_Begin_Extension; Thread_Exitted : RTEMS.Thread_Exitted_Extension; Fatal : RTEMS.Fatal_Error_Extension; + Thread_Terminate : RTEMS.Thread_Terminate_Extension; end record; type Extensions_Table_Pointer is access all Extensions_Table; -- cgit v1.2.3