Changeset 2bef691 in rtems


Ignore:
Timestamp:
Jun 3, 1997, 10:39:55 PM (23 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
1b141533
Parents:
5363249
Message:

Added correct contents

File:
1 edited

Legend:

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

    r5363249 r2bef691  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TMCK 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 TMCK 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 TMCK;
     57
Note: See TracChangeset for help on using the changeset viewer.