source: rtems/c/src/ada-tests/samples/base_sp/sptest.adb @ 08c192b

4.104.114.84.95
Last change on this file since 08c192b was bf9ae83, checked in by Joel Sherrill <joel.sherrill@…>, on 06/02/97 at 20:32:11

modified copyright notice to be the same as RTEMS 4.0.0.

changed the CVS ID string to be a "development" version.

  • Property mode set to 100644
File size: 2.2 KB
Line 
1--
2--  SPTEST / BODY
3--
4--  DESCRIPTION:
5--
6--  This package is the implementation of Test 1 of the RTEMS
7--  Single Processor Test Suite.
8--
9--  DEPENDENCIES:
10--
11-- 
12--
13--  COPYRIGHT (c) 1989-1997.
14--  On-Line Applications Research Corporation (OAR).
15--  Copyright assigned to U.S. Government, 1994.
16--
17--  The license and distribution terms for this file may in
18--  the file LICENSE in this distribution or at
19--  http://www.OARcorp.com/rtems/license.html.
20--
21--  $Id$
22--
23
24with INTERFACES; use INTERFACES;
25with RTEMS;
26with TEST_SUPPORT;
27with TEXT_IO;
28with UNSIGNED32_IO;
29
30package body SPTEST is
31
32--PAGE
33--
34--  INIT
35--
36
37   procedure INIT (
38      ARGUMENT : in     RTEMS.TASK_ARGUMENT
39   ) is
40      STATUS : RTEMS.STATUS_CODES;
41   begin
42
43      TEXT_IO.NEW_LINE( 2 );
44      TEXT_IO.PUT_LINE( "*** SAMPLE SINGLE PROCESSOR APPLICATION ***" );
45      TEXT_IO.PUT_LINE( "Creating and starting an application task" );
46
47      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
48
49      RTEMS.TASK_CREATE(
50         SPTEST.TASK_NAME( 1 ),
51         1,
52         2048,
53         RTEMS.INTERRUPT_LEVEL( 0 ),
54         RTEMS.DEFAULT_ATTRIBUTES,
55         SPTEST.TASK_ID( 1 ),
56         STATUS
57      );
58      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
59
60      RTEMS.TASK_START(
61         SPTEST.TASK_ID( 1 ),
62         SPTEST.APPLICATION_TASK'ACCESS,
63         0,
64         STATUS
65      );
66      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
67
68      RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
69      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
70
71   end INIT;
72
73--PAGE
74--
75--  APPLICATION_TASK
76--
77
78   procedure APPLICATION_TASK (
79      ARGUMENT : in     RTEMS.TASK_ARGUMENT
80   ) is
81      TID    : RTEMS.ID;
82      STATUS : RTEMS.STATUS_CODES;
83   begin
84
85      RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
86   
87      TEXT_IO.PUT( "Application task was invoked with argument (" );
88      UNSIGNED32_IO.PUT( ARGUMENT );
89      TEXT_IO.PUT( ") and has id of 0x" );
90      UNSIGNED32_IO.PUT( TID, BASE => 16 );
91
92      TEXT_IO.PUT_LINE( "*** END OF SAMPLE SINGLE PROCESSOR APPLICATION ***" );
93
94      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
95
96   end APPLICATION_TASK;
97
98end SPTEST;
Note: See TracBrowser for help on using the repository browser.