Mirrors_Framework/rtems
1
0 Fork 0
mirror of https://gitlab.rtems.org/rtems/rtos/rtems.git synced 2026-11-14 02:02:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

2007-10-25 Glenn Humphrey <glenn.humphrey@OARcorp.com>

Browse Source 
* rtems.adb, rtems.ads: Added some more missing bindings.
This commit is contained in:
Glenn Humphrey committed 2007-10-25 20:44:31 +00:00
1 parent 42f07c5fb7
commit d45b4a9802
3 files changed
+321 -24
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

c/src/ada/ChangeLog
+4
View File
@@ -1,3 +1,7 @@
2007-10-25 Glenn Humphrey <glenn.humphrey@OARcorp.com>
* rtems.adb, rtems.ads: Added some more missing bindings.
2007-10-18 Glenn Humphrey <glenn.humphrey@OARcorp.com>
* rtems.adb, rtems.ads: Added a missing binding.
c/src/ada/rtems.adb
+203 -19
View File
File diff suppressed because it is too large. Load diff
c/src/ada/rtems.ads
+114 -5
View File
@@ -138,10 +138,18 @@ pragma Elaborate_Body (RTEMS);
Clock_Get_TOD,
Clock_Get_Seconds_Since_Epoch,
Clock_Get_Ticks_Since_Boot,
Clock_Get_Ticks_Per_Seconds,
Clock_Get_Ticks_Per_Second,
Clock_Get_Time_Value
);
type Time_T is new Interfaces.C.Long;
type Timespec is record
TV_Sec : Time_T;
TV_Nsec : Interfaces.C.Long;
end record;
pragma Convention (C, Timespec);
--
-- Ident Options
--
@@ -573,7 +581,7 @@ pragma Elaborate_Body (RTEMS);
-- Initialization Manager -- Shutdown Only
--
procedure Shutdown_Executive (
Status : in RTEMS.Unsigned32
Status : in RTEMS.Unsigned32
);
--
@@ -625,6 +633,11 @@ pragma Elaborate_Body (RTEMS);
Result : out RTEMS.Status_Codes
);
procedure Task_Is_Suspended (
ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes
);
procedure Task_Set_Priority (
ID : in RTEMS.ID;
New_Priority : in RTEMS.Task_Priority;
@@ -716,15 +729,20 @@ pragma Elaborate_Body (RTEMS);
-- Clock Manager
--
procedure Clock_Set (
Time_Buffer : in RTEMS.Time_Of_Day;
Result : out RTEMS.Status_Codes
);
procedure Clock_Get (
Option : in RTEMS.Clock_Get_Options;
Time_Buffer : in RTEMS.Address;
Result : out RTEMS.Status_Codes
);
procedure Clock_Set (
Time_Buffer : in RTEMS.Time_Of_Day;
Result : out RTEMS.Status_Codes
procedure Clock_Get_Uptime (
Uptime : out RTEMS.Timespec;
Result : out RTEMS.Status_Codes
);
procedure Clock_Tick (
@@ -860,6 +878,11 @@ pragma Elaborate_Body (RTEMS);
Result : out RTEMS.Status_Codes
);
procedure Semaphore_Flush (
ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes
);
--
-- Message Queue Manager
--
@@ -1054,6 +1077,14 @@ pragma Elaborate_Body (RTEMS);
Result : out RTEMS.Status_Codes
);
procedure Region_Resize_Segment (
ID : in RTEMS.ID;
Segment : in RTEMS.Address;
Size : in RTEMS.Unsigned32;
Old_Size : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes
);
--
-- Dual Ported Memory Manager
--
@@ -1138,6 +1169,84 @@ pragma Elaborate_Body (RTEMS);
Result : out RTEMS.Status_Codes
);
procedure Rate_Monotonic_Reset_Statistics (
ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes
);
procedure Rate_Monotonic_Reset_All_Statistics;
pragma Import (
C,
Rate_Monotonic_Reset_All_Statistics,
"rtems_rate_monotonic_reset_all_statistics"
);
procedure Rate_Monotonic_Report_Statistics;
pragma Import (
C,
Rate_Monotonic_Report_Statistics,
"rtems_rate_monotonic_report_statistics"
);
--
-- Barrier Manager
--
procedure Barrier_Create (
Name : in RTEMS.Name;
Attribute_Set : in RTEMS.Attribute;
Maximum_Waiters : in RTEMS.Unsigned32;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes
);
procedure Barrier_Ident (
Name : in RTEMS.Name;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes
);
procedure Barrier_Delete (
ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes
);
procedure Barrier_Wait (
ID : in RTEMS.ID;
Option_Set : in RTEMS.Option;
Timeout : in RTEMS.Interval;
Result : out RTEMS.Status_Codes
);
procedure Barrier_Release (
ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes
);
--
-- Stack Bounds Checker
--
function Stack_Checker_Is_Blown return RTEMS.Boolean;
pragma Interface (C, Stack_Checker_Is_Blown);
pragma Interface_Name
(Interrupt_Is_In_Progress, "rtems_stack_checker_is_blown");
procedure Stack_Checker_Report_Usage;
pragma Import (
C, Stack_Checker_Report_Usage, "rtems_stack_checker_report_usage"
);
--
-- CPU Usage Statistics
--
procedure CPU_Usage_Report;
pragma Import (C, CPU_Usage_Report, "rtems_cpu_usage_report");
procedure CPU_Usage_Reset;
pragma Import (C, CPU_Usage_Reset, "rtems_cpu_usage_reset");
--
-- Debug Manager
--