Changeset f435621 in rtems


Ignore:
Timestamp:
Aug 26, 2002, 5:20:36 PM (18 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
b2b7cfc9
Parents:
190f5c23
Message:

2002-08-26 Joel Sherrill <joel@…>

  • sptests/sp19/sptest.adb: Modified to follow pattern of SP01 even though this test is not supported.
  • sptests/sp19/sp19.adb: New file.
Location:
c/src/ada-tests
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/ChangeLog

    r190f5c23 rf435621  
     12002-08-26      Joel Sherrill <joel@OARcorp.com>
     2
     3        * sptests/sp19/sptest.adb: Modified to follow pattern of SP01
     4        even though this test is not supported.
     5        * sptests/sp19/sp19.adb: New file.
     6
    172002-08-26      Joel Sherrill <joel@OARcorp.com>
    28
  • c/src/ada-tests/sptests/sp19/sptest.adb

    r190f5c23 rf435621  
    11--
    2 --  MAIN / BODY
     2--  SPTEST / BODY
    33--
    44--  DESCRIPTION:
    55--
    6 --  This is the entry point for Test SP19 of the Single Processor Test Suite.
     6--  This package is the implementation of Test 19 of the RTEMS
     7--  Single Processor Test Suite.
    78--
    89--  DEPENDENCIES:
     
    2122--
    2223
     24with INTERFACES; use INTERFACES;
    2325with RTEMS;
    24 with SPTEST;
    2526with TEST_SUPPORT;
     27with TEXT_IO;
    2628
    27 procedure SP19 is
    28   INIT_ID : RTEMS.ID;
    29   STATUS  : RTEMS.STATUS_CODES;
    30 begin
     29package body SPTEST is
    3130
    32    RTEMS.TASK_CREATE(
    33       RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    34       1,
    35       RTEMS.MINIMUM_STACK_SIZE,
    36       RTEMS.NO_PREEMPT,
    37       RTEMS.FLOATING_POINT,
    38       INIT_ID,
    39       STATUS
    40    );
    41    TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     31--PAGE
     32--
     33--  INIT
     34--
    4235
     36   procedure INIT (
     37      ARGUMENT : in     RTEMS.TASK_ARGUMENT
     38   ) is
     39      TIME   : RTEMS.TIME_OF_DAY;
     40      STATUS : RTEMS.STATUS_CODES;
     41   begin
    4342
    44    RTEMS.TASK_START(
    45       INIT_ID,
    46       SPTEST.INIT'ACCESS,
    47       0,
    48       STATUS
    49    );
    50    TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     43      TEXT_IO.NEW_LINE( 2 );
     44      TEXT_IO.PUT_LINE( "*** TEST 19***" );
     45      TEXT_IO.PUT_LINE( "Not currently implemented" );
     46      TEXT_IO.PUT_LINE( "*** END OF TEST 19***" );
    5147
    52    loop
    53       delay 120.0;
    54    end loop;
     48   end INIT;
    5549
    56 end SP19;
    57 
     50end SPTEST;
Note: See TracChangeset for help on using the changeset viewer.