From 8a0e8dad1fc91e241b702306a74d5c5f80c09cea Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Mon, 26 Aug 2002 13:44:35 +0000 Subject: 2002-08-26 Joel Sherrill * sptests/sp19/sp19.adb: Removed/Renamed to sptest.adb. * sptests/sp19/sptest.adb: Added/Renamed from sptest.adb. --- c/src/ada-tests/ChangeLog | 5 +++ c/src/ada-tests/sptests/sp19/sp19.adb | 57 --------------------------------- c/src/ada-tests/sptests/sp19/sptest.adb | 57 +++++++++++++++++++++++++++++++++ 3 files changed, 62 insertions(+), 57 deletions(-) delete mode 100644 c/src/ada-tests/sptests/sp19/sp19.adb create mode 100644 c/src/ada-tests/sptests/sp19/sptest.adb (limited to 'c/src/ada-tests') diff --git a/c/src/ada-tests/ChangeLog b/c/src/ada-tests/ChangeLog index 8cf0f0a873..d9cd6da3ef 100644 --- a/c/src/ada-tests/ChangeLog +++ b/c/src/ada-tests/ChangeLog @@ -1,3 +1,8 @@ +2002-08-26 Joel Sherrill + + * sptests/sp19/sp19.adb: Removed/Renamed to sptest.adb. + * sptests/sp19/sptest.adb: Added/Renamed from sptest.adb. + 2002-08-26 Ralf Corsepius * sptests/sp04/Makefile.am: Remove init.$(OBJEXT). diff --git a/c/src/ada-tests/sptests/sp19/sp19.adb b/c/src/ada-tests/sptests/sp19/sp19.adb deleted file mode 100644 index 61a5107332..0000000000 --- a/c/src/ada-tests/sptests/sp19/sp19.adb +++ /dev/null @@ -1,57 +0,0 @@ --- --- MAIN / BODY --- --- DESCRIPTION: --- --- This is the entry point for Test SP19 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 SPTEST; -with TEST_SUPPORT; - -procedure SP19 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.FLOATING_POINT, - INIT_ID, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" ); - - - RTEMS.TASK_START( - INIT_ID, - SPTEST.INIT'ACCESS, - 0, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" ); - - loop - delay 120.0; - end loop; - -end SP19; - diff --git a/c/src/ada-tests/sptests/sp19/sptest.adb b/c/src/ada-tests/sptests/sp19/sptest.adb new file mode 100644 index 0000000000..61a5107332 --- /dev/null +++ b/c/src/ada-tests/sptests/sp19/sptest.adb @@ -0,0 +1,57 @@ +-- +-- MAIN / BODY +-- +-- DESCRIPTION: +-- +-- This is the entry point for Test SP19 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 SPTEST; +with TEST_SUPPORT; + +procedure SP19 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.FLOATING_POINT, + INIT_ID, + STATUS + ); + TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" ); + + + RTEMS.TASK_START( + INIT_ID, + SPTEST.INIT'ACCESS, + 0, + STATUS + ); + TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" ); + + loop + delay 120.0; + end loop; + +end SP19; + -- cgit v1.2.3