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


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.ads

    r5a9f372 rd14963b  
    7878   False : constant RTEMS.Boolean := 0;
    7979
     80   --
    8081   --  More Types
    8182   --
     
    9596   subtype Device_Major_Number is RTEMS.Unsigned32;
    9697   subtype Device_Minor_Number is RTEMS.Unsigned32;
    97    subtype Vector_Number       is RTEMS.Unsigned32;
    9898   subtype ISR_Level           is RTEMS.Unsigned32;
    9999
     
    102102   --
    103103   --  Task Related Types
    104    --  XXXX fix this
     104   --
     105
    105106   subtype Task_Argument       is RTEMS.Unsigned32;
    106107   type Task_Argument_PTR      is access all Task_Argument;
    107108
    108    -- XXXX fix this
     109   type Task_Entry is access procedure (
     110      Argument : RTEMS.Unsigned32
     111   );
     112
    109113   subtype TCB                 is RTEMS.Unsigned32;
    110114   type    TCB_Pointer         is access all RTEMS.TCB;
    111 
    112    subtype Task_States         is RTEMS.Unsigned32;
    113 
    114    type Task_Entry is access procedure (
    115       Argument : RTEMS.Unsigned32
    116    );
    117115
    118116   --
     
    144142      Clock_Get_Time_Value
    145143   );
    146 
    147    --
    148    --  Device Driver Entry Prototype
    149    --
    150 
    151    type Device_Driver_Entry is access function (
    152       Major    : in     RTEMS.Device_Major_Number;
    153       Minor    : in     RTEMS.Device_Major_Number;
    154       Argument : in     RTEMS.Unsigned32;
    155       ID       : in     RTEMS.Unsigned32
    156    ) return RTEMS.Unsigned32;
    157 
    158    type Driver_Address_Table_Entry is
    159       record
    160          Initialization : RTEMS.Device_Driver_Entry;
    161          Open           : RTEMS.Device_Driver_Entry;
    162          Close          : RTEMS.Device_Driver_Entry;
    163          Read           : RTEMS.Device_Driver_Entry;
    164          Write          : RTEMS.Device_Driver_Entry;
    165          Control        : RTEMS.Device_Driver_Entry;
    166       end record;
    167 
    168    type Driver_Address_Table is array ( RTEMS.Unsigned32
    169      range 1 .. RTEMS.Unsigned32'Last ) of RTEMS.Driver_Address_Table_Entry;
    170 
    171    type Driver_Address_Table_Pointer is access all Driver_Address_Table;
    172 
    173    type Driver_Name_t is
    174       record
    175          Device_Name        : RTEMS.Address;
    176          Device_Name_Length : RTEMS.Unsigned32;
    177          Major              : RTEMS.Device_Major_Number;
    178          Minor              : RTEMS.Device_Minor_Number;
    179       end record;
    180 
    181    type Driver_Name_t_Pointer is access all Driver_Name_t;
    182144
    183145   --
     
    249211   Minimum_Stack_Size : RTEMS.Unsigned32;
    250212   pragma Import (C, Minimum_Stack_Size, "rtems_minimum_stack_size");
    251 
    252213
    253214   --
     
    283244   No_Priority      : constant RTEMS.Task_Priority := 0;
    284245
    285 
    286246   --
    287247   --  Extension Callouts and Table
    288248   --
    289249
    290    type Thread_Create_Extension is access procedure (
     250   type Thread_Create_Extension is access function (
    291251      Current_Task : in     RTEMS.TCB_Pointer;
    292252      New_Task     : in     RTEMS.TCB_Pointer
    293    );
     253   ) return RTEMS.Boolean;
    294254
    295255   type Thread_Start_Extension is access procedure (
     
    540500
    541501   --
    542    --  For now, do not provide access to the CPU Table from Ada.
    543    --  When this type is provided, a CPU dependent file must
    544    --  define it.
    545    --
    546 
    547    subtype CPU_Table is RTEMS.Address;
    548    type CPU_Table_Pointer is access all CPU_Table;
    549 
    550    --
    551502   --  Utility Functions
    552503   --
     
    613564      Right  : in     RTEMS.Address
    614565   ) return Standard.Boolean;
     566
     567
    615568   --
    616569   --  RTEMS API
     
    705658   );
    706659
    707 --   procedure Task_Variable_Add (
    708 --      ID            : in     RTEMS.ID;
    709 --      Task_Variable : in     RTEMS.Address;
    710 --      Dtor          : in     RTEMS.Task_Variable_Dtor;
    711 --      Result        :    out RTEMS.Status_Codes
    712 --   );
    713 
    714 --   procedure Task_Variable_Get (
    715 --      ID                  : in     RTEMS.ID;
    716 --      Task_Variable       :    out RTEMS.Address;
    717 --      Task_Variable_Value :    out RTEMS.Address;
    718 --      Result              :    out RTEMS.Status_Codes
    719 --   );
    720 
    721 --   procedure Task_Variable_Delete (
    722 --      ID                  : in     RTEMS.ID;
    723 --      Task_Variable       :    out RTEMS.Address;
    724 --      Result              :    out RTEMS.Status_Codes
    725 --   );
     660   procedure Task_Variable_Add (
     661      ID            : in     RTEMS.ID;
     662      Task_Variable : in     RTEMS.Address;
     663      Dtor          : in     RTEMS.Task_Variable_Dtor;
     664      Result        :    out RTEMS.Status_Codes
     665   );
     666
     667   procedure Task_Variable_Get (
     668      ID                  : in     RTEMS.ID;
     669      Task_Variable       :    out RTEMS.Address;
     670      Task_Variable_Value :    out RTEMS.Address;
     671      Result              :    out RTEMS.Status_Codes
     672   );
     673
     674   procedure Task_Variable_Delete (
     675      ID                  : in     RTEMS.ID;
     676      Task_Variable       :    out RTEMS.Address;
     677      Result              :    out RTEMS.Status_Codes
     678   );
    726679
    727680   procedure Task_Wake_When (
     
    738691   --  Interrupt Manager
    739692   --
    740 
    741    procedure Interrupt_Catch (
    742       New_ISR_Handler : in     RTEMS.Address;
    743       Vector          : in     RTEMS.Vector_Number;
    744       Old_ISR_Handler :    out RTEMS.Address;
    745       Result          :    out RTEMS.Status_Codes
    746    );
    747693
    748694   function Interrupt_Disable return RTEMS.ISR_Level;
     
    807753      Result :    out RTEMS.Status_Codes
    808754   );
    809 
    810755
    811756   --
     
    916861   );
    917862
    918 
    919863   --
    920864   --  Message Queue Manager
     
    979923   );
    980924
    981 
    982925   --
    983926   --  Event Manager
     
    1013956      Result     :    out RTEMS.Status_Codes
    1014957   );
    1015 
    1016958
    1017959   --
     
    1053995   );
    1054996
    1055 
    1056997   --
    1057998   --  Region Manager
     
    11081049   );
    11091050
    1110 
    11111051   --
    11121052   --  Dual Ported Memory Manager
     
    11481088
    11491089   --
    1150    --  Input/Output Manager
    1151    --
    1152 
    1153    procedure IO_Register_Name (
    1154       Name   : in     String;
    1155       Major  : in     RTEMS.Device_Major_Number;
    1156       Minor  : in     RTEMS.Device_Minor_Number;
    1157       Result :    out RTEMS.Status_Codes
    1158    );
    1159 
    1160    procedure IO_Lookup_Name (
    1161       Name         : in     String;
    1162       Device_Info  : In     RTEMS.Driver_Name_t_Pointer;
    1163       Result       :    out RTEMS.Status_Codes
    1164    );
    1165 
    1166    procedure IO_Open (
    1167       Major        : in     RTEMS.Device_Major_Number;
    1168       Minor        : in     RTEMS.Device_Minor_Number;
    1169       Argument     : in     RTEMS.Address;
    1170       Result       :    out RTEMS.Status_Codes
    1171    );
    1172 
    1173    procedure IO_Close (
    1174       Major        : in     RTEMS.Device_Major_Number;
    1175       Minor        : in     RTEMS.Device_Minor_Number;
    1176       Argument     : in     RTEMS.Address;
    1177       Result       :    out RTEMS.Status_Codes
    1178    );
    1179 
    1180    procedure IO_Read (
    1181       Major        : in     RTEMS.Device_Major_Number;
    1182       Minor        : in     RTEMS.Device_Minor_Number;
    1183       Argument     : in     RTEMS.Address;
    1184       Result       :    out RTEMS.Status_Codes
    1185    );
    1186 
    1187    procedure IO_Write (
    1188       Major        : in     RTEMS.Device_Major_Number;
    1189       Minor        : in     RTEMS.Device_Minor_Number;
    1190       Argument     : in     RTEMS.Address;
    1191       Result       :    out RTEMS.Status_Codes
    1192    );
    1193 
    1194    procedure IO_Control (
    1195       Major        : in     RTEMS.Device_Major_Number;
    1196       Minor        : in     RTEMS.Device_Minor_Number;
    1197       Argument     : in     RTEMS.Address;
    1198       Result       :    out RTEMS.Status_Codes
    1199    );
    1200 
    1201 
    1202    --
    12031090   --  Fatal Error Manager
    12041091   --
     
    12071094      The_Error : in     RTEMS.Unsigned32
    12081095   );
    1209 
    12101096
    12111097   --
     
    12471133   );
    12481134
    1249 
    12501135   --
    12511136   --  Debug Manager
Note: See TracChangeset for help on using the changeset viewer.