Ignore:
Timestamp:
Jun 3, 1997, 10:47:47 PM (24 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
7c498800
Parents:
1b141533
Message:

corrected to compile with the new binding.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads

    r1b141533 r8ed37e3c  
    3131   procedure INITIALIZE_EXECUTIVE (
    3232      CONFIGURATION_TABLE   : in     RTEMS.CONFIGURATION_TABLE_POINTER;
    33       CPU_TABLE             : in     RTEMS.CPU_TABLE_POINTER;
    34       TASK_TABLE            : in     RTEMS.INITIALIZATION_TASKS_TABLE_POINTER;
    35       DRIVER_TABLE          : in     RTEMS.DRIVER_ADDRESS_TABLE_POINTER;
    36       EXTENSION_TABLE       : in     RTEMS.EXTENSIONS_TABLE_POINTER;
    37       MULTIPROCESSING_TABLE : in     RTEMS.MULTIPROCESSING_TABLE_POINTER;
    38       MPCI_TABLE            : in     RTEMS.MPCI_TABLE_POINTER
     33      CPU_TABLE             : in     RTEMS.CPU_TABLE_POINTER
    3934   );
    4035
     
    6459   procedure TASK_START (
    6560      ID          : in     RTEMS.ID;
    66       ENTRY_POINT : in     RTEMS.TASK_ENTRY_POINT;
     61      ENTRY_POINT : in     RTEMS.TASK_ENTRY;
    6762      ARGUMENT    : in     RTEMS.UNSIGNED32;
    6863      RESULT      :    out RTEMS.STATUS_CODES
     
    202197
    203198   procedure SEMAPHORE_CREATE (
    204       NAME          : in     RTEMS.NAME;
    205       COUNT         : in     RTEMS.UNSIGNED32;
    206       ATTRIBUTE_SET : in     RTEMS.ATTRIBUTE;
    207       ID            :    out RTEMS.ID;
    208       RESULT        :    out RTEMS.STATUS_CODES
     199      NAME             : in     RTEMS.NAME;
     200      COUNT            : in     RTEMS.UNSIGNED32;
     201      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
     202      PRIORITY_CEILING : in     RTEMS.TASK_PRIORITY;
     203      ID               :    out RTEMS.ID;
     204      RESULT           :    out RTEMS.STATUS_CODES
    209205   );
    210206
     
    236232
    237233   procedure MESSAGE_QUEUE_CREATE (
    238       NAME          : in     RTEMS.NAME;
    239       COUNT         : in     RTEMS.UNSIGNED32;
    240       ATTRIBUTE_SET : in     RTEMS.ATTRIBUTE;
    241       ID            :    out RTEMS.ID;
    242       RESULT        :    out RTEMS.STATUS_CODES
     234      Name             : in     RTEMS.Name;
     235      Count            : in     RTEMS.Unsigned32;
     236      Max_Message_Size : in     RTEMS.Unsigned32;
     237      Attribute_Set    : in     RTEMS.Attribute;
     238      ID               :    out RTEMS.ID;
     239      Result           :    out RTEMS.Status_Codes
    243240   );
    244241
     
    257254   procedure MESSAGE_QUEUE_SEND (
    258255      ID     : in     RTEMS.ID;
    259       BUFFER : in     RTEMS.BUFFER_POINTER;
     256      BUFFER : in     RTEMS.ADDRESS;
     257      SIZE   : in     RTEMS.UNSIGNED32;
    260258      RESULT :    out RTEMS.STATUS_CODES
    261259   );
     
    263261   procedure MESSAGE_QUEUE_URGENT (
    264262      ID     : in     RTEMS.ID;
    265       BUFFER : in     RTEMS.BUFFER_POINTER;
     263      BUFFER : in     RTEMS.ADDRESS;
     264      SIZE   : in     RTEMS.UNSIGNED32;
    266265      RESULT :    out RTEMS.STATUS_CODES
    267266   );
     
    269268   procedure MESSAGE_QUEUE_BROADCAST (
    270269      ID     : in     RTEMS.ID;
    271       BUFFER : in     RTEMS.BUFFER_POINTER;
     270      BUFFER : in     RTEMS.ADDRESS;
     271      SIZE   : in     RTEMS.UNSIGNED32;
    272272      COUNT  :    out RTEMS.UNSIGNED32;
    273273      RESULT :    out RTEMS.STATUS_CODES
     
    276276   procedure MESSAGE_QUEUE_RECEIVE (
    277277      ID         : in     RTEMS.ID;
    278       BUFFER     : in     RTEMS.BUFFER_POINTER;
     278      BUFFER     : in     RTEMS.ADDRESS;
    279279      OPTION_SET : in     RTEMS.OPTION;
    280280      TIMEOUT    : in     RTEMS.INTERVAL;
     281      SIZE       :    out RTEMS.UNSIGNED32;
    281282      RESULT     :    out RTEMS.STATUS_CODES
    282283   );
Note: See TracChangeset for help on using the changeset viewer.