diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-01 15:21:34 +0100 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-01 15:21:34 +0100 |
commit | 5e05fa0f7b8332689a4fc42bcf9d2a77d08d5d60 (patch) | |
tree | e583ee75e3e03a1cdbb731b9c6dcb26aa39a0477 /cpukit/include/adainclude/rtems.ads | |
parent | c589775aea25afa67b8c3076a385967b724fea93 (diff) |
ada: Fix user extension support
Diffstat (limited to '')
-rw-r--r-- | cpukit/include/adainclude/rtems.ads | 12 |
1 files changed, 6 insertions, 6 deletions
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; |