source: rtems/testsuites/ada/sptests/sp14/sptest.ads

Last change on this file was 3d8f2a55, checked in by Joel Sherrill <joel@…>, on 04/06/22 at 21:37:41

testsuites/ada/sptests/sp1*: Change license to BSD-2

Updates #3053.

  • Property mode set to 100644
File size: 3.7 KB
Line 
1-- SPDX-License-Identifier: BSD-2-Clause
2
3--
4--  SPTEST / SPECIFICATION
5--
6--  DESCRIPTION:
7--
8--  This package is the specification for Test 14 of the RTEMS
9--  Single Processor Test Suite.
10--
11--  DEPENDENCIES:
12--
13-- 
14--
15--  COPYRIGHT (c) 1989-2011.
16--  On-Line Applications Research Corporation (OAR).
17--
18--  Redistribution and use in source and binary forms, with or without
19--  modification, are permitted provided that the following conditions
20--  are met:
21--  1. Redistributions of source code must retain the above copyright
22--     notice, this list of conditions and the following disclaimer.
23--  2. Redistributions in binary form must reproduce the above copyright
24--     notice, this list of conditions and the following disclaimer in the
25--     documentation and/or other materials provided with the distribution.
26--
27--  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
28--  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29--  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30--  ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
31--  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
32--  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
33--  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
34--  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
35--  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
36--  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
37--  POSSIBILITY OF SUCH DAMAGE.
38--
39
40with RTEMS;
41with RTEMS.TASKS;
42
43package SPTEST is
44
45--
46--  These arrays contain the IDs and NAMEs of all RTEMS tasks created
47--  by this test.
48--
49
50   TASK_ID   : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
51   TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
52
53--
54--  These arrays contain the IDs and NAMEs of all RTEMS timers created
55--  by this test.
56--
57
58   TIMER_ID   : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
59   TIMER_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
60
61--
62--  SIGNAL_SENT is set to TRUE to indicate that a signal set has
63--  been sent from an ISR to the executing task.
64--
65
66   SIGNAL_SENT : BOOLEAN;
67   pragma volatile( SIGNAL_SENT );
68
69--
70--  These hold the arguments passed to the timer service routine.
71--
72
73   TIMER_GOT_THIS_ID      : RTEMS.ID;
74   pragma volatile( TIMER_GOT_THIS_ID );
75
76   TIMER_GOT_THIS_POINTER : RTEMS.ADDRESS;
77   pragma volatile( TIMER_GOT_THIS_POINTER );
78
79--
80--  ASR_FIRED is set to TRUE to indicate that the ASR has executed
81--  and was passed the correct signal set.
82--
83
84   ASR_FIRED : BOOLEAN;
85   pragma volatile( ASR_FIRED );
86
87--
88--  INIT
89--
90--  DESCRIPTION:
91--
92--  This RTEMS task initializes the application.
93--
94
95   procedure INIT (
96      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
97   );
98   pragma Convention (C, INIT);
99
100--
101--  SIGNAL_3_TO_TASK_1
102--
103--  DESCRIPTION:
104--
105--  This subprogram sends signal 3 to TASK_1.
106--
107
108   procedure SIGNAL_3_TO_TASK_1 (
109      ID      : in     RTEMS.ID;
110      POINTER : in     RTEMS.ADDRESS
111   );
112   pragma Convention (C, SIGNAL_3_TO_TASK_1);
113
114--
115--  PROCESS_ASR
116--
117--  DESCRIPTION:
118--
119--  This subprogram is an ASR for TASK_1.
120--
121
122   procedure PROCESS_ASR (
123      THE_SIGNAL_SET : in     RTEMS.SIGNAL_SET
124   );
125   pragma Convention (C, PROCESS_ASR);
126
127--
128--  TASK_1
129--
130--  DESCRIPTION:
131--
132--  This RTEMS task tests the Signal Manager.
133--
134
135   procedure TASK_1 (
136      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
137   );
138   pragma Convention (C, TASK_1);
139
140--
141--  TASK_2
142--
143--  DESCRIPTION:
144--
145--  This RTEMS task tests the Signal Manager.
146--
147
148   procedure TASK_2 (
149      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
150   );
151   pragma Convention (C, TASK_2);
152
153end SPTEST;
Note: See TracBrowser for help on using the repository browser.