Changeset d45b4a9 in rtems for c/src/ada/rtems.adb


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.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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 
Note: See TracChangeset for help on using the changeset viewer.