[rtems commit] ada: Fix user extension support
Sebastian Huber
sebh at rtems.org
Fri Dec 1 14:23:38 UTC 2017
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;
More information about the vc
mailing list