RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

corrected to compile with the new binding.

Browse Source
This commit is contained in:
Joel Sherrill
1997-06-03 22:47:47 +00:00
parent 1b141533fd
commit 8ed37e3c2d
5 changed files with 119 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
c/src/ada-tests/tmtests/tmoverhd/config.h Normal file
View File

@@ -0,0 +1,37 @@
/* config.h
*
* This include file defines the Configuration Table for this test.
*
* COPYRIGHT (c) 1989-1997.
* On-Line Applications Research Corporation (OAR).
* Copyright assigned to U.S. Government, 1994.
*
* The license and distribution terms for this file may in
* the file LICENSE in this distribution or at
* http://www.OARcorp.com/rtems/license.html.
*
* $Id$
*/
/* configuration information */
#define CONFIGURE_TMTEST
#define CONFIGURE_TEST_NEEDS_CONSOLE_DRIVER
#define CONFIGURE_TEST_NEEDS_TIMER_DRIVER
#define CONFIGURE_MAXIMUM_TASKS 2
#define CONFIGURE_MAXIMUM_SEMAPHORES 1
#define CONFIGURE_TICKS_PER_TIMESLICE 0
#define CONFIGURE_POSIX_INIT_THREAD_TABLE
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
#define CONFIGURE_MAXIMUM_POSIX_MUTEXES 20
#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES 10
#include <confdefs.h>
/* end of include file */

7
c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb
View File

@@ -30,12 +30,7 @@ package body DUMMY_RTEMS is
procedure INITIALIZE_EXECUTIVE (
CONFIGURATION_TABLE : in RTEMS.CONFIGURATION_TABLE_POINTER;
CPU_TABLE : in RTEMS.CPU_TABLE_POINTER;
TASK_TABLE : in RTEMS.INITIALIZATION_TASKS_TABLE_POINTER;
DRIVER_TABLE : in RTEMS.DRIVER_ADDRESS_TABLE_POINTER;
EXTENSION_TABLE : in RTEMS.EXTENSIONS_TABLE_POINTER;
MULTIPROCESSING_TABLE : in RTEMS.MULTIPROCESSING_TABLE_POINTER;
MPCI_TABLE : in RTEMS.MPCI_TABLE_POINTER
CPU_TABLE : in RTEMS.CPU_TABLE_POINTER
) is
begin

43
c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads
View File

@@ -30,12 +30,7 @@ package DUMMY_RTEMS is
procedure INITIALIZE_EXECUTIVE (
CONFIGURATION_TABLE : in RTEMS.CONFIGURATION_TABLE_POINTER;
CPU_TABLE : in RTEMS.CPU_TABLE_POINTER;
TASK_TABLE : in RTEMS.INITIALIZATION_TASKS_TABLE_POINTER;
DRIVER_TABLE : in RTEMS.DRIVER_ADDRESS_TABLE_POINTER;
EXTENSION_TABLE : in RTEMS.EXTENSIONS_TABLE_POINTER;
MULTIPROCESSING_TABLE : in RTEMS.MULTIPROCESSING_TABLE_POINTER;
MPCI_TABLE : in RTEMS.MPCI_TABLE_POINTER
CPU_TABLE : in RTEMS.CPU_TABLE_POINTER
);
procedure SHUTDOWN_EXECUTIVE (
@@ -63,7 +58,7 @@ package DUMMY_RTEMS is
procedure TASK_START (
ID : in RTEMS.ID;
ENTRY_POINT : in RTEMS.TASK_ENTRY_POINT;
ENTRY_POINT : in RTEMS.TASK_ENTRY;
ARGUMENT : in RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
);
@@ -201,11 +196,12 @@ package DUMMY_RTEMS is
-- Semaphore Manager
procedure SEMAPHORE_CREATE (
NAME : in RTEMS.NAME;
COUNT : in RTEMS.UNSIGNED32;
ATTRIBUTE_SET : in RTEMS.ATTRIBUTE;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
NAME : in RTEMS.NAME;
COUNT : in RTEMS.UNSIGNED32;
ATTRIBUTE_SET : in RTEMS.ATTRIBUTE;
PRIORITY_CEILING : in RTEMS.TASK_PRIORITY;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure SEMAPHORE_DELETE (
@@ -235,11 +231,12 @@ package DUMMY_RTEMS is
-- Message Queue Manager
procedure MESSAGE_QUEUE_CREATE (
NAME : in RTEMS.NAME;
COUNT : in RTEMS.UNSIGNED32;
ATTRIBUTE_SET : in RTEMS.ATTRIBUTE;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
Name : in RTEMS.Name;
Count : in RTEMS.Unsigned32;
Max_Message_Size : in RTEMS.Unsigned32;
Attribute_Set : in RTEMS.Attribute;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes
);
procedure MESSAGE_QUEUE_IDENT (
@@ -256,28 +253,32 @@ package DUMMY_RTEMS is
procedure MESSAGE_QUEUE_SEND (
ID : in RTEMS.ID;
BUFFER : in RTEMS.BUFFER_POINTER;
BUFFER : in RTEMS.ADDRESS;
SIZE : in RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
);
procedure MESSAGE_QUEUE_URGENT (
ID : in RTEMS.ID;
BUFFER : in RTEMS.BUFFER_POINTER;
BUFFER : in RTEMS.ADDRESS;
SIZE : in RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
);
procedure MESSAGE_QUEUE_BROADCAST (
ID : in RTEMS.ID;
BUFFER : in RTEMS.BUFFER_POINTER;
BUFFER : in RTEMS.ADDRESS;
SIZE : in RTEMS.UNSIGNED32;
COUNT : out RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
);
procedure MESSAGE_QUEUE_RECEIVE (
ID : in RTEMS.ID;
BUFFER : in RTEMS.BUFFER_POINTER;
BUFFER : in RTEMS.ADDRESS;
OPTION_SET : in RTEMS.OPTION;
TIMEOUT : in RTEMS.INTERVAL;
SIZE : out RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
);

57
c/src/ada-tests/tmtests/tmoverhd/tmoverhd.adb
View File

@@ -0,0 +1,57 @@
--
-- MAIN / BODY
--
-- DESCRIPTION:
--
-- This is the entry point for Test TMOVERHD of the Single Processor Test Suite.
--
-- DEPENDENCIES:
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- On-Line Applications Research Corporation (OAR).
-- Copyright assigned to U.S. Government, 1994.
--
-- The license and distribution terms for this file may in
-- the file LICENSE in this distribution or at
-- http://www.OARcorp.com/rtems/license.html.
--
-- $Id$
--
with RTEMS;
with TMTEST;
with TEST_SUPPORT;
procedure TMOVERHD is
INIT_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
RTEMS.NO_PREEMPT,
RTEMS.DEFAULT_ATTRIBUTES,
INIT_ID,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
INIT_ID,
TMTEST.INIT'ACCESS,
0,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
loop
delay 120.0;
end loop;
end TMOVERHD;

10
c/src/ada-tests/tmtests/tmoverhd/tmtest.adb
View File

@@ -21,7 +21,6 @@
-- $Id$
--
with BSP;
with DUMMY_RTEMS;
with INTERFACES; use INTERFACES;
with RTEMS;
@@ -163,13 +162,8 @@ package body TMTEST is
for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
loop
DUMMY_RTEMS.INITIALIZE_EXECUTIVE(
BSP.CONFIGURATION'ACCESS,
CPU_TABLE'ACCESS,
TMTEST.INITIALIZATION_TASKS'ACCESS,
RTEMS.NO_DEVICE_DRIVERS,
RTEMS.NO_USER_EXTENSIONS,
RTEMS.NO_MULTIPROCESSING_TABLE,
RTEMS.NO_MPCI_TABLE
RTEMS.CONFIGURATION,
CPU_TABLE'ACCESS
);
end loop;
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;