diff options
Diffstat (limited to 'c/src/ada-tests')
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/config.h | 37 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb | 7 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads | 43 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/tmoverhd.adb | 57 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/tmtest.adb | 10 |
5 files changed, 119 insertions, 35 deletions
diff --git a/c/src/ada-tests/tmtests/tmoverhd/config.h b/c/src/ada-tests/tmtests/tmoverhd/config.h new file mode 100644 index 0000000000..be54f54955 --- /dev/null +++ b/c/src/ada-tests/tmtests/tmoverhd/config.h @@ -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 */ diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb index c35770fd5d..e6a3519e99 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb +++ b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb @@ -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 diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads index 2f171875c3..ccad73c0ef 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads +++ b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads @@ -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 ); diff --git a/c/src/ada-tests/tmtests/tmoverhd/tmoverhd.adb b/c/src/ada-tests/tmtests/tmoverhd/tmoverhd.adb index e69de29bb2..55876b5ab1 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/tmoverhd.adb +++ b/c/src/ada-tests/tmtests/tmoverhd/tmoverhd.adb @@ -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; + diff --git a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb index b1048b3cb9..2faf4bb226 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb +++ b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb @@ -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; |