Changeset 8ed37e3c in rtems


Ignore:
Timestamp:
Jun 3, 1997, 10:47:47 PM (23 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.

Location:
c/src/ada-tests/tmtests/tmoverhd
Files:
1 added
4 edited

Legend:

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

    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   ) is
    4035   begin
  • 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   );
  • c/src/ada-tests/tmtests/tmoverhd/tmoverhd.adb

    r1b141533 r8ed37e3c  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TMOVERHD of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TMOVERHD is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TMOVERHD;
     57
  • c/src/ada-tests/tmtests/tmoverhd/tmtest.adb

    r1b141533 r8ed37e3c  
    2222--
    2323
    24 with BSP;
    2524with DUMMY_RTEMS;
    2625with INTERFACES; use INTERFACES;
     
    164163         loop
    165164            DUMMY_RTEMS.INITIALIZE_EXECUTIVE(
    166                BSP.CONFIGURATION'ACCESS,
    167                CPU_TABLE'ACCESS,
    168                TMTEST.INITIALIZATION_TASKS'ACCESS,
    169                RTEMS.NO_DEVICE_DRIVERS,
    170                RTEMS.NO_USER_EXTENSIONS,
    171                RTEMS.NO_MULTIPROCESSING_TABLE,
    172                RTEMS.NO_MPCI_TABLE
     165               RTEMS.CONFIGURATION,
     166               CPU_TABLE'ACCESS
    173167            );
    174168         end loop;
Note: See TracChangeset for help on using the changeset viewer.