From e7f86efe5beee73d5eed5faa0ca79f6ec6cf0fb8 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Wed, 4 Jun 1997 18:54:18 +0000 Subject: new file --- c/src/ada-tests/mptests/mp01/config.h | 33 ++++++++++++++++++++ c/src/ada-tests/mptests/mp01/mp01.adb | 57 +++++++++++++++++++++++++++++++++++ 2 files changed, 90 insertions(+) create mode 100644 c/src/ada-tests/mptests/mp01/config.h create mode 100644 c/src/ada-tests/mptests/mp01/mp01.adb (limited to 'c/src/ada-tests') diff --git a/c/src/ada-tests/mptests/mp01/config.h b/c/src/ada-tests/mptests/mp01/config.h new file mode 100644 index 0000000000..513e94359d --- /dev/null +++ b/c/src/ada-tests/mptests/mp01/config.h @@ -0,0 +1,33 @@ +/* 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_MPTEST + +#define CONFIGURE_TEST_NEEDS_CONSOLE_DRIVER +#define CONFIGURE_TEST_NEEDS_CLOCK_DRIVER + +#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 + +/* end of include file */ diff --git a/c/src/ada-tests/mptests/mp01/mp01.adb b/c/src/ada-tests/mptests/mp01/mp01.adb new file mode 100644 index 0000000000..0b1e0a0eba --- /dev/null +++ b/c/src/ada-tests/mptests/mp01/mp01.adb @@ -0,0 +1,57 @@ +-- +-- MAIN / BODY +-- +-- DESCRIPTION: +-- +-- This is the entry point for Test MP01 of the Multiprocessor 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 MPTEST; +with TEST_SUPPORT; + +procedure MP01 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.GLOBAL, + INIT_ID, + STATUS + ); + TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" ); + + + RTEMS.TASK_START( + INIT_ID, + MPTEST.INIT'ACCESS, + 0, + STATUS + ); + TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" ); + + loop + delay 120.0; + end loop; + +end MP01; + -- cgit v1.2.3