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


Ignore:
Timestamp:
Oct 10, 2007, 8:46:33 PM (14 years ago)
Author:
Glenn Humphrey <glenn.humphrey@…>
Branches:
4.10, 4.11, 4.9, 5, master
Children:
ba3e1a4f
Parents:
5a9f372
Message:

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

  • rtems.adb, rtems.ads: Cleaned up binding and removed bindings for things that are not reasonable to do in Ada.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/rtems.adb

    r5a9f372 rd14963b  
    450450   end Task_Set_Note;
    451451 
     452   procedure Task_Variable_Add (
     453      ID            : in     RTEMS.ID;
     454      Task_Variable : in     RTEMS.Address;
     455      Dtor          : in     RTEMS.Task_Variable_Dtor;
     456      Result        :    out RTEMS.Status_Codes
     457   ) is
     458      function Task_Variable_Add_Base (
     459         ID            : RTEMS.ID;
     460         Task_Variable : RTEMS.Address;
     461         Dtor          : RTEMS.Task_Variable_Dtor
     462      )  return RTEMS.Status_Codes;
     463      pragma Import (C, Task_Variable_Add_Base, "rtems_task_variable_add");
     464   begin
     465
     466      Result := Task_Variable_Add_Base ( ID, Task_Variable, Dtor );
     467
     468   end Task_Variable_Add;
     469
     470   procedure Task_Variable_Get (
     471      ID                  : in     RTEMS.ID;
     472      Task_Variable       :    out RTEMS.Address;
     473      Task_Variable_Value :    out RTEMS.Address;
     474      Result              :    out RTEMS.Status_Codes
     475   ) is
     476      function Task_Variable_Get_Base (
     477         ID                  : RTEMS.ID;
     478         Task_Variable       : access RTEMS.Address;
     479         Task_Variable_Value : access RTEMS.Address
     480      )  return RTEMS.Status_Codes;
     481      pragma Import (C, Task_Variable_Get_Base, "rtems_task_variable_get");
     482      Task_Variable_Base       : aliased RTEMS.Address;
     483      Task_Variable_Value_Base : aliased RTEMS.Address;
     484   begin
     485
     486      Result := Task_Variable_Get_Base (
     487         ID,
     488         Task_Variable_Base'Unchecked_Access,
     489         Task_Variable_Value_Base'Unchecked_Access
     490      );
     491      Task_Variable := Task_Variable_Base;
     492      Task_Variable_Value := Task_Variable_Value_Base;
     493
     494   end Task_Variable_Get;
     495
     496   procedure Task_Variable_Delete (
     497      ID                  : in     RTEMS.ID;
     498      Task_Variable       :    out RTEMS.Address;
     499      Result              :    out RTEMS.Status_Codes
     500   ) is
     501      function Task_Variable_Delete_Base (
     502         ID                  : RTEMS.ID;
     503         Task_Variable       : access RTEMS.Address
     504      )  return RTEMS.Status_Codes;
     505      pragma Import (
     506         C, Task_Variable_Delete_Base, "rtems_task_variable_delete"
     507      );
     508      Task_Variable_Base : aliased RTEMS.Address;
     509   begin
     510
     511      Result := Task_Variable_Delete_Base (
     512         ID, Task_Variable_Base'Unchecked_Access
     513      );
     514      Task_Variable := Task_Variable_Base;
     515
     516   end Task_Variable_Delete;
     517
    452518   procedure Task_Wake_When (
    453519      Time_Buffer : in     RTEMS.Time_Of_Day;
     
    481547   -- Interrupt Manager
    482548   --
    483 
    484    procedure Interrupt_Catch (
    485       New_ISR_Handler : in     RTEMS.Address;
    486       Vector          : in     RTEMS.Vector_Number;
    487       Old_ISR_Handler :    out RTEMS.Address;
    488       Result          :    out RTEMS.Status_Codes
    489    ) is
    490       function Interrupt_Catch_Base (
    491          New_ISR_Handler : RTEMS.Address;
    492          Vector          : RTEMS.Vector_Number;
    493          Old_ISR_Handler : access RTEMS.Address
    494       )  return RTEMS.Status_Codes;
    495       pragma Import (C, Interrupt_Catch_Base, "rtems_interrupt_catch");
    496       Old_ISR_Handler_Base : aliased RTEMS.Address;
    497    begin
    498  
    499       Result := Interrupt_Catch_Base (
    500          New_ISR_Handler,
    501          Vector,
    502          OLD_ISR_HANDLER_Base'Unchecked_Access
    503       );
    504       Old_ISR_Handler := OLD_ISR_HANDLER_Base;
    505  
    506    end Interrupt_Catch;
    507549
    508550   -- Interrupt_Disable is interfaced in the specification
     
    15581600   end Port_Internal_To_External;
    15591601 
    1560    --
    1561    -- Input/Output Manager
    1562    --
    1563  
    1564    procedure IO_Register_Name (
    1565       Name   : in     String;
    1566       Major  : in     RTEMS.Device_Major_Number;
    1567       Minor  : in     RTEMS.Device_Minor_Number;
    1568       Result :    out RTEMS.Status_Codes
    1569    ) is
    1570       function IO_Register_Name_Base (
    1571          Name   : Interfaces.C.Char_Array;
    1572          Major  : RTEMS.Device_Major_Number;
    1573          Minor  : RTEMS.Device_Minor_Number
    1574       )  return RTEMS.Status_Codes;
    1575       pragma Import (C, IO_Register_Name_Base, "rtems_io_register_name");
    1576    begin
    1577 
    1578       Result :=
    1579          IO_Register_Name_Base ( Interfaces.C.To_C (Name), Major, Minor );
    1580 
    1581    end IO_Register_Name;
    1582 
    1583    procedure IO_Lookup_Name (
    1584       Name         : in     String;
    1585       Device_Info  : in     RTEMS.Driver_Name_t_Pointer;
    1586       Result       :    out RTEMS.Status_Codes
    1587    ) is
    1588       function IO_Lookup_Name_Base (
    1589          Name        : Interfaces.C.Char_Array;
    1590          Device_Info : access RTEMS.Driver_Name_t
    1591       )  return RTEMS.Status_Codes;
    1592       pragma Import (C, IO_Lookup_Name_Base, "rtems_io_lookup_name");
    1593       Device_Info_Base : aliased RTEMS.Driver_Name_t;
    1594    begin
    1595 
    1596       Result := IO_Lookup_Name_Base (
    1597          Interfaces.C.To_C (Name),
    1598          Device_Info_Base'Unchecked_Access
    1599       );
    1600       Device_Info.All := Device_Info_Base;
    1601 
    1602    end IO_Lookup_Name;
    1603 
    1604    procedure IO_Open (
    1605       Major        : in     RTEMS.Device_Major_Number;
    1606       Minor        : in     RTEMS.Device_Minor_Number;
    1607       Argument     : in     RTEMS.Address;
    1608       Result       :    out RTEMS.Status_Codes
    1609    ) is
    1610       function IO_Open_Base (
    1611          Major        : RTEMS.Device_Major_Number;
    1612          Minor        : RTEMS.Device_Minor_Number;
    1613          Argument     : RTEMS.Address
    1614       )  return RTEMS.Status_Codes;
    1615       pragma Import (C, IO_Open_Base, "rtems_io_open");
    1616    begin
    1617  
    1618       Result := IO_Open_Base (Major, Minor, Argument);
    1619  
    1620    end IO_Open;
    1621  
    1622    procedure IO_Close (
    1623       Major        : in     RTEMS.Device_Major_Number;
    1624       Minor        : in     RTEMS.Device_Minor_Number;
    1625       Argument     : in     RTEMS.Address;
    1626       Result       :    out RTEMS.Status_Codes
    1627    ) is
    1628       function IO_Close_Base (
    1629          Major        : RTEMS.Device_Major_Number;
    1630          Minor        : RTEMS.Device_Minor_Number;
    1631          Argument     : RTEMS.Address
    1632       )  return RTEMS.Status_Codes;
    1633       pragma Import (C, IO_Close_Base, "rtems_io_close");
    1634    begin
    1635  
    1636       Result := IO_Close_Base (Major, Minor, Argument);
    1637  
    1638    end IO_Close;
    1639  
    1640    procedure IO_Read (
    1641       Major        : in     RTEMS.Device_Major_Number;
    1642       Minor        : in     RTEMS.Device_Minor_Number;
    1643       Argument     : in     RTEMS.Address;
    1644       Result       :    out RTEMS.Status_Codes
    1645    ) is
    1646       function IO_Read_Base (
    1647          Major        : RTEMS.Device_Major_Number;
    1648          Minor        : RTEMS.Device_Minor_Number;
    1649          Argument     : RTEMS.Address
    1650       )  return RTEMS.Status_Codes;
    1651       pragma Import (C, IO_Read_Base, "rtems_io_read");
    1652    begin
    1653  
    1654       Result := IO_Read_Base (Major, Minor, Argument);
    1655  
    1656    end IO_Read;
    1657  
    1658    procedure IO_Write (
    1659       Major        : in     RTEMS.Device_Major_Number;
    1660       Minor        : in     RTEMS.Device_Minor_Number;
    1661       Argument     : in     RTEMS.Address;
    1662       Result       :    out RTEMS.Status_Codes
    1663    ) is
    1664       function IO_Write_Base (
    1665          Major        : RTEMS.Device_Major_Number;
    1666          Minor        : RTEMS.Device_Minor_Number;
    1667          Argument     : RTEMS.Address
    1668       )  return RTEMS.Status_Codes;
    1669       pragma Import (C, IO_Write_Base, "rtems_io_write");
    1670    begin
    1671  
    1672       Result := IO_Write_Base (Major, Minor, Argument);
    1673  
    1674    end IO_Write;
    1675  
    1676    procedure IO_Control (
    1677       Major        : in     RTEMS.Device_Major_Number;
    1678       Minor        : in     RTEMS.Device_Minor_Number;
    1679       Argument     : in     RTEMS.Address;
    1680       Result       :    out RTEMS.Status_Codes
    1681    ) is
    1682       function IO_Control_Base (
    1683          Major        : RTEMS.Device_Major_Number;
    1684          Minor        : RTEMS.Device_Minor_Number;
    1685          Argument     : RTEMS.Address
    1686       )  return RTEMS.Status_Codes;
    1687       pragma Import (C, IO_Control_Base, "rtems_io_control");
    1688    begin
    1689  
    1690       Result := IO_Control_Base (Major, Minor, Argument);
    1691  
    1692    end IO_Control;
    16931602 
    16941603   --
Note: See TracChangeset for help on using the changeset viewer.