Changeset 43437e97 in rtems


Ignore:
Timestamp:
Jun 3, 1997, 8:20:10 PM (23 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
b67e6ec
Parents:
f222e9d4
Message:

new file

Location:
c/src/ada-tests/tmtests/tm01
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/tmtests/tm01/tm01.adb

    rf222e9d4 r43437e97  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM01 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM01 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     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.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM01;
     57
Note: See TracChangeset for help on using the changeset viewer.