[rtems commit] ada: Fix user extension support

[Sebastian Huber]

Module:    rtems
Branch:    master
Commit:    5e05fa0f7b8332689a4fc42bcf9d2a77d08d5d60
Changeset: http://git.rtems.org/rtems/commit/?id=5e05fa0f7b8332689a4fc42bcf9d2a77d08d5d60

Author:    Sebastian Huber <sebastian.huber at embedded-brains.de>
Date:      Fri Dec  1 15:21:34 2017 +0100

ada: Fix user extension support

---

 cpukit/include/adainclude/rtems.ads    | 12 ++++++------
 testsuites/ada/sptests/sp07/sptest.ads |  4 ++--
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/cpukit/include/adainclude/rtems.ads b/cpukit/include/adainclude/rtems.ads
index 2b59c74..17ce1ab 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;
diff --git a/testsuites/ada/sptests/sp07/sptest.ads b/testsuites/ada/sptests/sp07/sptest.ads
index 3984c64..c04b450 100644
--- a/testsuites/ada/sptests/sp07/sptest.ads
+++ b/testsuites/ada/sptests/sp07/sptest.ads
@@ -185,10 +185,10 @@ package SPTEST is
         SPTEST.TASK_RESTART_EXTENSION'ACCESS,        -- Task restart
         SPTEST.TASK_DELETE_EXTENSION'ACCESS,         -- Task delete
         NULL,                                        -- Task switch
-        NULL,                                        -- Task post switch
         NULL,                                        -- Task begin
         SPTEST.TASK_EXIT_EXTENSION'ACCESS,           -- Task exitted
-        NULL                                         -- Fatal error
+        NULL,                                        -- Fatal error
+        NULL                                         -- Task terminate
    );
 
 end SPTEST;