summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests
diff options
context:
space:
mode:
authorJoel Sherrill <joel.sherrill@OARcorp.com>1997-06-03 22:47:47 +0000
committerJoel Sherrill <joel.sherrill@OARcorp.com>1997-06-03 22:47:47 +0000
commit8ed37e3c2d52e5275cc8a7571dd2b466db05e3f8 (patch)
treedd4d2d0b5711f73d78787f682751e552b871f0f9 /c/src/ada-tests
parentCorrected for this test. (diff)
downloadrtems-8ed37e3c2d52e5275cc8a7571dd2b466db05e3f8.tar.bz2
corrected to compile with the new binding.
Diffstat (limited to 'c/src/ada-tests')
-rw-r--r--c/src/ada-tests/tmtests/tmoverhd/config.h37
-rw-r--r--c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb7
-rw-r--r--c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads43
-rw-r--r--c/src/ada-tests/tmtests/tmoverhd/tmoverhd.adb57
-rw-r--r--c/src/ada-tests/tmtests/tmoverhd/tmtest.adb10
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;