Changeset d45b4a9 in rtems


Ignore:
Timestamp:
Oct 25, 2007, 8:44:31 PM (12 years ago)
Author:
Glenn Humphrey <glenn.humphrey@…>
Branches:
4.10, 4.11, 4.9, master
Children:
78c7192
Parents:
42f07c5
Message:

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

  • rtems.adb, rtems.ads: Added some more missing bindings.
Location:
c/src/ada
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/ChangeLog

    r42f07c5 rd45b4a9  
     12007-10-25      Glenn Humphrey <glenn.humphrey@OARcorp.com>
     2
     3        * rtems.adb, rtems.ads: Added some more missing bindings.
     4
    152007-10-18      Glenn Humphrey <glenn.humphrey@OARcorp.com>
    26
  • c/src/ada/rtems.adb

    r42f07c5 rd45b4a9  
    364364   end Task_Resume;
    365365 
     366   procedure Task_Is_Suspended (
     367      ID     : in     RTEMS.ID;
     368      Result :    out RTEMS.Status_Codes
     369   ) is
     370      function Task_Is_Suspended_Base (
     371         ID : RTEMS.ID
     372      )  return RTEMS.Status_Codes;
     373      pragma Import (C, Task_Is_Suspended_Base, "rtems_task_is_suspended");
     374   begin
     375
     376      Result := Task_Is_Suspended_Base ( ID );
     377
     378   end Task_Is_Suspended;
     379 
    366380   procedure Task_Set_Priority (
    367381      ID           : in     RTEMS.ID;
     
    557571   --
    558572 
     573   procedure Clock_Set (
     574      Time_Buffer : in     RTEMS.Time_Of_Day;
     575      Result      :    out RTEMS.Status_Codes
     576   ) is
     577      function Clock_Set_Base (
     578         Time_Buffer : RTEMS.Time_Of_Day
     579      )  return RTEMS.Status_Codes;
     580      pragma Import (C, Clock_Set_Base, "rtems_clock_set");
     581   begin
     582 
     583      Result := Clock_Set_Base ( Time_Buffer );
     584
     585   end Clock_Set;
     586 
    559587   procedure Clock_Get (
    560588      Option      : in     RTEMS.Clock_Get_Options;
     
    562590      Result      :    out RTEMS.Status_Codes
    563591   ) is
    564       function Clock_Get_base (
     592      function Clock_Get_Base (
    565593         Option      : RTEMS.Clock_Get_Options;
    566594         Time_Buffer : RTEMS.Address
    567595      )  return RTEMS.Status_Codes;
    568       pragma Import (C, Clock_Get_base, "rtems_clock_get");
    569    begin
    570 
    571       Result := Clock_Get_base ( Option, Time_Buffer );
     596      pragma Import (C, Clock_Get_Base, "rtems_clock_get");
     597   begin
     598
     599      Result := Clock_Get_Base ( Option, Time_Buffer );
    572600
    573601   end Clock_Get;
    574602 
    575    procedure Clock_Set (
    576       Time_Buffer : in     RTEMS.Time_Of_Day;
    577       Result      :    out RTEMS.Status_Codes
    578    ) is
    579       function Clock_Set_base (
    580          Time_Buffer : RTEMS.Time_Of_Day
    581       )  return RTEMS.Status_Codes;
    582       pragma Import (C, Clock_Set_base, "rtems_clock_set");
    583    begin
    584  
    585       Result := Clock_Set_base ( Time_Buffer );
    586 
    587    end Clock_Set;
     603   procedure Clock_Get_Uptime (
     604      Uptime :    out RTEMS.Timespec;
     605      Result :    out RTEMS.Status_Codes
     606   ) is
     607      function Clock_Get_Uptime_Base (
     608         Uptime : access RTEMS.Timespec
     609      )  return RTEMS.Status_Codes;
     610      pragma Import (C, Clock_Get_Uptime_Base, "rtems_clock_get_uptime");
     611      Uptime_Base : aliased RTEMS.Timespec;
     612   begin
     613
     614      Result := Clock_Get_Uptime_Base (
     615         Uptime_Base'Unchecked_Access
     616      );
     617      Uptime := Uptime_Base;
     618
     619   end Clock_Get_Uptime;
    588620 
    589621   procedure Clock_Tick (
     
    947979
    948980   end Semaphore_Release;
     981 
     982   procedure Semaphore_Flush (
     983      ID     : in     RTEMS.ID;
     984      Result :    out RTEMS.Status_Codes
     985   ) is
     986      function Semaphore_Flush_Base (
     987         ID : RTEMS.ID
     988      )  return RTEMS.Status_Codes;
     989      pragma Import (C, Semaphore_Flush_Base, "rtems_semaphore_flush");
     990   begin
     991 
     992      Result := Semaphore_Flush_Base ( ID );
     993
     994   end Semaphore_Flush;
    949995 
    950996   --
     
    15081554   end Region_Return_Segment;
    15091555 
     1556   procedure Region_Resize_Segment (
     1557      ID         : in     RTEMS.ID;
     1558      Segment    : in     RTEMS.Address;
     1559      Size       : in     RTEMS.Unsigned32;
     1560      Old_Size   :    out RTEMS.Unsigned32;
     1561      Result     :    out RTEMS.Status_Codes
     1562   ) is
     1563      function Region_Resize_Segment_Base (
     1564         ID       : RTEMS.ID;
     1565         Segment  : RTEMS.Address;
     1566         Size     : RTEMS.Unsigned32;
     1567         Old_Size : access RTEMS.Unsigned32
     1568      )  return RTEMS.Status_Codes;
     1569      pragma Import (C, Region_Resize_Segment_Base,
     1570         "rtems_region_resize_segment");
     1571      Old_Size_Base : aliased RTEMS.Unsigned32;
     1572   begin
     1573 
     1574      Result := Region_Resize_Segment_Base (
     1575         ID,
     1576         Segment,
     1577         Size,
     1578         Old_Size_Base'Unchecked_Access
     1579      );
     1580      Old_Size := Old_Size_Base;
     1581
     1582   end Region_Resize_Segment;
     1583
    15101584   --
    15111585   -- Dual Ported Memory Manager
     
    16321706      The_Error : in     RTEMS.Unsigned32
    16331707   ) is
    1634       procedure Fatal_Error_Occurred_base (
     1708      procedure Fatal_Error_Occurred_Base (
    16351709         The_Error : RTEMS.Unsigned32
    16361710      );
     
    16521726      Result :    out RTEMS.Status_Codes
    16531727   ) is
    1654       function Rate_Monotonic_Create_base (
     1728      function Rate_Monotonic_Create_Base (
    16551729         Name   : RTEMS.Name;
    16561730         ID     : access RTEMS.ID
    16571731      )  return RTEMS.Status_Codes;
    1658       pragma Import (C, Rate_Monotonic_Create_base, "rtems_rate_monotonic_create");
     1732      pragma Import (C, Rate_Monotonic_Create_Base, "rtems_rate_monotonic_create");
    16591733      ID_Base : aliased RTEMS.ID;
    16601734   begin
    16611735 
    1662       Result := Rate_Monotonic_Create_base ( Name, ID_Base'Unchecked_Access );
     1736      Result := Rate_Monotonic_Create_Base ( Name, ID_Base'Unchecked_Access );
    16631737      ID := ID_Base;
    16641738
     
    16951769   begin
    16961770 
    1697       Result := Rate_Monotonic_Delete_base ( ID );
     1771      Result := Rate_Monotonic_Delete_Base ( ID );
    16981772
    16991773   end Rate_Monotonic_Delete;
     
    17271801   begin
    17281802 
    1729       Result := Rate_Monotonic_Period_base ( ID, Length );
     1803      Result := Rate_Monotonic_Period_Base ( ID, Length );
    17301804
    17311805   end Rate_Monotonic_Period;
    1732  
    17331806 
    17341807   procedure Rate_Monotonic_Get_Status (
     
    17561829
    17571830   end Rate_Monotonic_Get_Status;
     1831
     1832   procedure Rate_Monotonic_Reset_Statistics (
     1833      ID     : in     RTEMS.ID;
     1834      Result :    out RTEMS.Status_Codes
     1835   ) is
     1836      function Rate_Monotonic_Reset_Statistics_Base (
     1837         ID : RTEMS.ID
     1838      )  return RTEMS.Status_Codes;
     1839      pragma Import (C, Rate_Monotonic_Reset_Statistics_Base,
     1840         "rtems_rate_monotonic_reset_statistics");
     1841   begin
     1842
     1843      Result := Rate_Monotonic_Reset_Statistics_Base ( ID );
     1844
     1845   end Rate_Monotonic_Reset_Statistics;
     1846
     1847
     1848   --
     1849   -- Barrier Manager
     1850   --
     1851
     1852   procedure Barrier_Create (
     1853      Name            : in     RTEMS.Name;
     1854      Attribute_Set   : in     RTEMS.Attribute;
     1855      Maximum_Waiters : in     RTEMS.Unsigned32;
     1856      ID              :    out RTEMS.ID;
     1857      Result          :    out RTEMS.Status_Codes
     1858   ) is
     1859      function Barrier_Create_Base (
     1860         Name            : RTEMS.Name;
     1861         Attribute_Set   : RTEMS.Attribute;
     1862         Maximum_Waiters : RTEMS.Unsigned32;
     1863         ID              : access RTEMS.ID
     1864      )  return RTEMS.Status_Codes;
     1865      pragma Import (C, Barrier_Create_Base, "rtems_barrier_create");
     1866      ID_Base : aliased RTEMS.ID;
     1867   begin
     1868
     1869      Result := Barrier_Create_Base (
     1870         Name,
     1871         Attribute_Set,
     1872         Maximum_Waiters,
     1873         ID_Base'Unchecked_Access
     1874      );
     1875      ID := ID_Base;
     1876
     1877   end Barrier_Create;
     1878
     1879   procedure Barrier_Ident (
     1880      Name   : in     RTEMS.Name;
     1881      ID     :    out RTEMS.ID;
     1882      Result :    out RTEMS.Status_Codes
     1883   ) is
     1884      function Barrier_Ident_Base (
     1885         Name : RTEMS.Name;
     1886         ID   : access RTEMS.ID
     1887      )  return RTEMS.Status_Codes;
     1888      pragma Import (C, Barrier_Ident_Base, "rtems_barrier_ident");
     1889      ID_Base : aliased RTEMS.ID;
     1890   begin
     1891
     1892      Result := Barrier_Ident_Base ( Name, ID_Base'Unchecked_Access );
     1893      ID := ID_Base;
     1894
     1895   end Barrier_Ident;
     1896
     1897   procedure Barrier_Delete (
     1898      ID     : in     RTEMS.ID;
     1899      Result :    out RTEMS.Status_Codes
     1900   ) is
     1901      function Barrier_Delete_Base (
     1902         ID : RTEMS.ID
     1903      )  return RTEMS.Status_Codes;
     1904      pragma Import (C, Barrier_Delete_Base, "rtems_barrier_delete");
     1905   begin
     1906
     1907      Result := Barrier_Delete_Base ( ID );
     1908
     1909   end Barrier_Delete;
     1910
     1911   procedure Barrier_Wait (
     1912      ID         : in     RTEMS.ID;
     1913      Option_Set : in     RTEMS.Option;
     1914      Timeout    : in     RTEMS.Interval;
     1915      Result     :    out RTEMS.Status_Codes
     1916   ) is
     1917      function Barrier_Wait_Base (
     1918         ID         : RTEMS.ID;
     1919         Option_Set : RTEMS.Option;
     1920         Timeout    : RTEMS.Interval
     1921      )  return RTEMS.Status_Codes;
     1922      pragma Import (C, Barrier_Wait_Base, "rtems_barrier_wait");
     1923   begin
     1924
     1925      Result := Barrier_Wait_Base ( ID, Option_Set, Timeout );
     1926
     1927   end Barrier_Wait;
     1928
     1929   procedure Barrier_Release (
     1930      ID     : in     RTEMS.ID;
     1931      Result :    out RTEMS.Status_Codes
     1932   ) is
     1933      function Barrier_Release_Base (
     1934         ID : RTEMS.ID
     1935      )  return RTEMS.Status_Codes;
     1936      pragma Import (C, Barrier_Release_Base, "rtems_barrier_release");
     1937   begin
     1938
     1939      Result := Barrier_Release_Base ( ID );
     1940
     1941   end Barrier_Release;
    17581942
    17591943 
  • c/src/ada/rtems.ads

    r42f07c5 rd45b4a9  
    139139      Clock_Get_Seconds_Since_Epoch,
    140140      Clock_Get_Ticks_Since_Boot,
    141       Clock_Get_Ticks_Per_Seconds,
     141      Clock_Get_Ticks_Per_Second,
    142142      Clock_Get_Time_Value
    143143   );
     144
     145   type Time_T is new Interfaces.C.Long;
     146
     147   type Timespec is record
     148      TV_Sec  : Time_T;
     149      TV_Nsec : Interfaces.C.Long;
     150   end record;
     151   pragma Convention (C, Timespec);
    144152
    145153   --
     
    574582   --
    575583   procedure Shutdown_Executive (
    576       Status           : in     RTEMS.Unsigned32
     584      Status : in     RTEMS.Unsigned32
    577585   );
    578586
     
    626634   );
    627635
     636   procedure Task_Is_Suspended (
     637      ID     : in     RTEMS.ID;
     638      Result :    out RTEMS.Status_Codes
     639   );
     640
    628641   procedure Task_Set_Priority (
    629642      ID           : in     RTEMS.ID;
     
    717730   --
    718731
     732   procedure Clock_Set (
     733      Time_Buffer : in     RTEMS.Time_Of_Day;
     734      Result      :    out RTEMS.Status_Codes
     735   );
     736
    719737   procedure Clock_Get (
    720738      Option      : in     RTEMS.Clock_Get_Options;
     
    723741   );
    724742
    725    procedure Clock_Set (
    726       Time_Buffer : in     RTEMS.Time_Of_Day;
    727       Result      :    out RTEMS.Status_Codes
     743   procedure Clock_Get_Uptime (
     744      Uptime :    out RTEMS.Timespec;
     745      Result :    out RTEMS.Status_Codes
    728746   );
    729747
     
    857875
    858876   procedure Semaphore_Release (
     877      ID     : in     RTEMS.ID;
     878      Result :    out RTEMS.Status_Codes
     879   );
     880
     881   procedure Semaphore_Flush (
    859882      ID     : in     RTEMS.ID;
    860883      Result :    out RTEMS.Status_Codes
     
    10551078   );
    10561079
     1080   procedure Region_Resize_Segment (
     1081      ID         : in     RTEMS.ID;
     1082      Segment    : in     RTEMS.Address;
     1083      Size       : in     RTEMS.Unsigned32;
     1084      Old_Size   :    out RTEMS.Unsigned32;
     1085      Result     :    out RTEMS.Status_Codes
     1086   );
     1087
    10571088   --
    10581089   --  Dual Ported Memory Manager
     
    11391170   );
    11401171
     1172   procedure Rate_Monotonic_Reset_Statistics (
     1173      ID     : in     RTEMS.ID;
     1174      Result :    out RTEMS.Status_Codes
     1175   );
     1176
     1177   procedure Rate_Monotonic_Reset_All_Statistics;
     1178   pragma Import (
     1179      C,
     1180      Rate_Monotonic_Reset_All_Statistics,
     1181      "rtems_rate_monotonic_reset_all_statistics"
     1182   );
     1183
     1184   procedure Rate_Monotonic_Report_Statistics;
     1185   pragma Import (
     1186      C,
     1187      Rate_Monotonic_Report_Statistics,
     1188      "rtems_rate_monotonic_report_statistics"
     1189   );
     1190
     1191   --
     1192   --  Barrier Manager
     1193   --
     1194
     1195   procedure Barrier_Create (
     1196      Name            : in     RTEMS.Name;
     1197      Attribute_Set   : in     RTEMS.Attribute;
     1198      Maximum_Waiters : in     RTEMS.Unsigned32;
     1199      ID              :    out RTEMS.ID;
     1200      Result          :    out RTEMS.Status_Codes
     1201   );
     1202
     1203   procedure Barrier_Ident (
     1204      Name   : in     RTEMS.Name;
     1205      ID     :    out RTEMS.ID;
     1206      Result :    out RTEMS.Status_Codes
     1207   );
     1208
     1209   procedure Barrier_Delete (
     1210      ID     : in     RTEMS.ID;
     1211      Result :    out RTEMS.Status_Codes
     1212   );
     1213
     1214   procedure Barrier_Wait (
     1215      ID         : in     RTEMS.ID;
     1216      Option_Set : in     RTEMS.Option;
     1217      Timeout    : in     RTEMS.Interval;
     1218      Result     :    out RTEMS.Status_Codes
     1219   );
     1220
     1221   procedure Barrier_Release (
     1222      ID     : in     RTEMS.ID;
     1223      Result :    out RTEMS.Status_Codes
     1224   );
     1225
     1226   --
     1227   --  Stack Bounds Checker
     1228   --
     1229
     1230   function Stack_Checker_Is_Blown return RTEMS.Boolean;
     1231   pragma Interface (C, Stack_Checker_Is_Blown);
     1232   pragma Interface_Name
     1233     (Interrupt_Is_In_Progress, "rtems_stack_checker_is_blown");
     1234
     1235   procedure Stack_Checker_Report_Usage;
     1236   pragma Import (
     1237      C, Stack_Checker_Report_Usage, "rtems_stack_checker_report_usage"
     1238   );
     1239
     1240   --
     1241   --  CPU Usage Statistics
     1242   --
     1243
     1244   procedure CPU_Usage_Report;
     1245   pragma Import (C, CPU_Usage_Report, "rtems_cpu_usage_report");
     1246
     1247   procedure CPU_Usage_Reset;
     1248   pragma Import (C, CPU_Usage_Reset, "rtems_cpu_usage_reset");
     1249
    11411250   --
    11421251   --  Debug Manager
Note: See TracChangeset for help on using the changeset viewer.