RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

Added Semaphore_Flush.

Browse Source
This commit is contained in:
Joel Sherrill
1999-10-21 14:49:24 +00:00
parent 98e6eb8ddd
commit 8f2cf93145
4 changed files with 36 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
c/src/ada/rtems.adb
View File

@@ -979,6 +979,20 @@ package body RTEMS is
end Semaphore_Release; end Semaphore_Release;
procedure Semaphore_Flush (
ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes
) is
function Semaphore_Flush_Base (
ID : RTEMS.ID
) return RTEMS.Status_Codes;
pragma Import (C, Semaphore_Flush_Base, "rtems_semaphore_flush");
begin
Result := Semaphore_Flush_Base ( ID );
end Semaphore_Release;
-- --
-- Message Queue Manager -- Message Queue Manager
-- --

4
c/src/ada/rtems.ads
View File

@@ -1058,6 +1058,10 @@ package RTEMS is
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
procedure Semaphore_Flush (
ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes
);
-- --
-- Message Queue Manager -- Message Queue Manager

14
cpukit/ada/rtems.adb
View File

@@ -979,6 +979,20 @@ package body RTEMS is
end Semaphore_Release; end Semaphore_Release;
procedure Semaphore_Flush (
ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes
) is
function Semaphore_Flush_Base (
ID : RTEMS.ID
) return RTEMS.Status_Codes;
pragma Import (C, Semaphore_Flush_Base, "rtems_semaphore_flush");
begin
Result := Semaphore_Flush_Base ( ID );
end Semaphore_Release;
-- --
-- Message Queue Manager -- Message Queue Manager
-- --

4
cpukit/ada/rtems.ads
View File

@@ -1058,6 +1058,10 @@ package RTEMS is
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
procedure Semaphore_Flush (
ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes
);
-- --
-- Message Queue Manager -- Message Queue Manager