source: rtems/c/src/ada-tests/sptests/sp25/sptest.adb @ 948a069

Last change on this file since 948a069 was f6bcc8f, checked in by Joel Sherrill <joel.sherrill@…>, on Sep 4, 2003 at 1:25:16 PM

2003-09-04 Joel Sherrill <joel@…>

  • samples/base_sp/base_sp.adb, samples/base_sp/config.h, samples/base_sp/sptest.adb, samples/base_sp/sptest.ads, samples/hello/config.h, samples/hello/hello.adb, samples/hello/sptest.adb, samples/hello/sptest.ads, samples/ticker/config.h, samples/ticker/sptest.adb, samples/ticker/sptest.ads, samples/ticker/ticker.adb, sptests/sp01/config.h, sptests/sp01/sp01.adb, sptests/sp01/sptest.adb, sptests/sp01/sptest.ads, sptests/sp02/config.h, sptests/sp02/sp02.adb, sptests/sp02/sptest.adb, sptests/sp02/sptest.ads, sptests/sp03/config.h, sptests/sp03/sp03.adb, sptests/sp03/sptest.adb, sptests/sp03/sptest.ads, sptests/sp04/config.h, sptests/sp04/sp04.adb, sptests/sp04/sptest.adb, sptests/sp04/sptest.ads, sptests/sp05/config.h, sptests/sp05/sp05.adb, sptests/sp05/sptest.adb, sptests/sp05/sptest.ads, sptests/sp06/config.h, sptests/sp06/sp06.adb, sptests/sp06/sptest.adb, sptests/sp06/sptest.ads, sptests/sp07/config.h, sptests/sp07/sp07.adb, sptests/sp07/sptest.adb, sptests/sp07/sptest.ads, sptests/sp08/config.h, sptests/sp08/sp08.adb, sptests/sp08/sptest.adb, sptests/sp08/sptest.ads, sptests/sp09/config.h, sptests/sp09/sp09.adb, sptests/sp09/sptest.adb, sptests/sp09/sptest.ads, sptests/sp11/config.h, sptests/sp11/sp11.adb, sptests/sp11/sptest.adb, sptests/sp11/sptest.ads, sptests/sp12/config.h, sptests/sp12/sp12.adb, sptests/sp12/sptest.adb, sptests/sp12/sptest.ads, sptests/sp13/config.h, sptests/sp13/sp13.adb, sptests/sp13/sptest.adb, sptests/sp13/sptest.ads, sptests/sp14/config.h, sptests/sp14/sp14.adb, sptests/sp14/sptest.adb, sptests/sp14/sptest.ads, sptests/sp15/config.h, sptests/sp15/sp15.adb, sptests/sp15/sptest.adb, sptests/sp15/sptest.ads, sptests/sp16/config.h, sptests/sp16/sp16.adb, sptests/sp16/sptest.adb, sptests/sp16/sptest.ads, sptests/sp17/config.h, sptests/sp17/sp17.adb, sptests/sp17/sptest.adb, sptests/sp17/sptest.ads, sptests/sp19/config.h, sptests/sp19/sp19.adb, sptests/sp19/sptest.adp, sptests/sp19/sptest.ads, sptests/sp20/config.h, sptests/sp20/sp20.adb, sptests/sp20/sptest.adb, sptests/sp20/sptest.ads, sptests/sp21/config.h, sptests/sp21/sp21.adb, sptests/sp21/sptest.adb, sptests/sp21/sptest.ads, sptests/sp22/config.h, sptests/sp22/sp22.adb, sptests/sp22/sptest.adb, sptests/sp22/sptest.ads, sptests/sp23/config.h, sptests/sp23/sp23.adb, sptests/sp23/sptest.adb, sptests/sp23/sptest.ads, sptests/sp24/config.h, sptests/sp24/sp24.adb, sptests/sp24/sptest.adb, sptests/sp24/sptest.ads, sptests/sp25/config.h, sptests/sp25/sp25.adb, sptests/sp25/sptest.adb, sptests/sp25/sptest.ads, sptests/spsize/spsize.adb, sptests/spsize/sptest.adb, sptests/spsize/sptest.ads, support/address_io.adb, support/address_io.ads, support/float_io.ads, support/fp.inc, support/init.c, support/integer.inc, support/rtems_calling_overhead.ads, support/status_io.ads, support/test_support.adb, support/test_support.ads, support/time_test_support.adb, support/time_test_support.ads, support/timer_driver.adb, support/timer_driver.ads, support/unsigned32_io.ads, tmtests/tm01/config.h, tmtests/tm01/tm01.adb, tmtests/tm01/tmtest.adb, tmtests/tm01/tmtest.ads, tmtests/tm02/config.h, tmtests/tm02/tm02.adb, tmtests/tm02/tmtest.adb, tmtests/tm02/tmtest.ads, tmtests/tm03/config.h, tmtests/tm03/tm03.adb, tmtests/tm03/tmtest.adb, tmtests/tm03/tmtest.ads, tmtests/tm04/config.h, tmtests/tm04/tm04.adb, tmtests/tm04/tmtest.adb, tmtests/tm04/tmtest.ads, tmtests/tm05/config.h, tmtests/tm05/tm05.adb, tmtests/tm05/tmtest.adb, tmtests/tm05/tmtest.ads, tmtests/tm06/config.h, tmtests/tm06/tm06.adb, tmtests/tm06/tmtest.adb, tmtests/tm06/tmtest.ads, tmtests/tm07/config.h, tmtests/tm07/tm07.adb, tmtests/tm07/tmtest.adb, tmtests/tm07/tmtest.ads, tmtests/tm08/config.h, tmtests/tm08/tm08.adb, tmtests/tm08/tmtest.adb, tmtests/tm08/tmtest.ads, tmtests/tm09/config.h, tmtests/tm09/tm09.adb, tmtests/tm09/tmtest.adb, tmtests/tm09/tmtest.ads, tmtests/tm10/config.h, tmtests/tm10/tm10.adb, tmtests/tm10/tmtest.adb, tmtests/tm10/tmtest.ads, tmtests/tm11/config.h, tmtests/tm11/tm11.adb, tmtests/tm11/tmtest.adb, tmtests/tm11/tmtest.ads, tmtests/tm12/config.h, tmtests/tm12/tm12.adb, tmtests/tm12/tmtest.adb, tmtests/tm12/tmtest.ads, tmtests/tm13/config.h, tmtests/tm13/tm13.adb, tmtests/tm13/tmtest.adb, tmtests/tm13/tmtest.ads, tmtests/tm14/config.h, tmtests/tm14/tm14.adb, tmtests/tm14/tmtest.adb, tmtests/tm14/tmtest.ads, tmtests/tm15/config.h, tmtests/tm15/tm15.adb, tmtests/tm15/tmtest.adb, tmtests/tm15/tmtest.ads, tmtests/tm16/config.h, tmtests/tm16/tm16.adb, tmtests/tm16/tmtest.adb, tmtests/tm16/tmtest.ads, tmtests/tm17/config.h, tmtests/tm17/tm17.adb, tmtests/tm17/tmtest.adb, tmtests/tm17/tmtest.ads, tmtests/tm18/config.h, tmtests/tm18/tm18.adb, tmtests/tm18/tmtest.adb, tmtests/tm18/tmtest.ads, tmtests/tm19/config.h, tmtests/tm19/tm19.adb, tmtests/tm19/tmtest.adb, tmtests/tm19/tmtest.ads, tmtests/tm20/config.h, tmtests/tm20/tm20.adb, tmtests/tm20/tmtest.adb, tmtests/tm20/tmtest.ads, tmtests/tm21/config.h, tmtests/tm21/tm21.adb, tmtests/tm21/tmtest.adb, tmtests/tm21/tmtest.ads, tmtests/tm22/config.h, tmtests/tm22/tm22.adb, tmtests/tm22/tmtest.adb, tmtests/tm22/tmtest.ads, tmtests/tm23/config.h, tmtests/tm23/tm23.adb, tmtests/tm23/tmtest.adb, tmtests/tm23/tmtest.ads, tmtests/tm24/config.h, tmtests/tm24/tm24.adb, tmtests/tm24/tmtest.adb, tmtests/tm24/tmtest.ads, tmtests/tm25/config.h, tmtests/tm25/tm25.adb, tmtests/tm25/tmtest.adb, tmtests/tm25/tmtest.ads, tmtests/tm28/config.h, tmtests/tm28/tm28.adb, tmtests/tm28/tmtest.adb, tmtests/tm28/tmtest.ads, tmtests/tm29/config.h, tmtests/tm29/tm29.adb, tmtests/tm29/tmtest.adb, tmtests/tm29/tmtest.ads, tmtests/tmck/config.h, tmtests/tmck/tmck.adb, tmtests/tmck/tmtest.adb, tmtests/tmck/tmtest.ads, tmtests/tmoverhd/config.h, tmtests/tmoverhd/dummy_rtems.adb, tmtests/tmoverhd/dummy_rtems.ads, tmtests/tmoverhd/tmoverhd.adb, tmtests/tmoverhd/tmtest.adb, tmtests/tmoverhd/tmtest.ads: Removed incorrect statement about copyright assignment.
  • Property mode set to 100644
File size: 10.6 KB
Line 
1--
2--  SPTEST / BODY
3--
4--  DESCRIPTION:
5--
6--  This package is the implementation of Test 25 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--
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 INTERFACES; use INTERFACES;
24with RTEMS;
25with TEST_SUPPORT;
26with TEXT_IO;
27with UNSIGNED32_IO;
28
29package body SPTEST is
30
31--PAGE
32--
33--  INIT
34--
35
36   procedure INIT (
37      ARGUMENT : in     RTEMS.TASK_ARGUMENT
38   ) is
39      STATUS : RTEMS.STATUS_CODES;
40   begin
41
42      TEXT_IO.NEW_LINE( 2 );
43      TEXT_IO.PUT_LINE( "*** TEST 25 ***" );
44
45      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
46
47      RTEMS.TASK_CREATE( 
48         SPTEST.TASK_NAME( 1 ), 
49         SPTEST.BASE_PRIORITY, 
50         2048, 
51         RTEMS.DEFAULT_MODES,
52         RTEMS.DEFAULT_ATTRIBUTES,
53         SPTEST.TASK_ID( 1 ),
54         STATUS
55      );
56      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
57
58      RTEMS.TASK_START(
59         SPTEST.TASK_ID( 1 ),
60         SPTEST.TASK_1'ACCESS,
61         0,
62         STATUS
63      );
64      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
65
66      SPTEST.REGION_NAME( 1 ) := RTEMS.BUILD_NAME(  'R', 'N', '1', ' ' );
67
68      RTEMS.REGION_CREATE(
69         SPTEST.REGION_NAME( 1 ), 
70         SPTEST.AREA_1'ADDRESS,
71         64000, 
72         32,
73         RTEMS.DEFAULT_ATTRIBUTES,
74         SPTEST.REGION_ID( 1 ),
75         STATUS
76      );
77      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_CREATE OF RN1" );
78
79      RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
80      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
81
82   end INIT;
83
84--PAGE
85--
86--  PUT_ADDRESS_FROM_AREA_1
87--
88
89   procedure PUT_ADDRESS_FROM_AREA_1 (
90      TO_BE_PRINTED : in     RTEMS.ADDRESS
91   ) is
92
93   begin
94
95      UNSIGNED32_IO.PUT(
96         RTEMS.SUBTRACT( TO_BE_PRINTED, SPTEST.AREA_1'ADDRESS ),
97         WIDTH => 8,
98         BASE => 16
99      );
100
101   end PUT_ADDRESS_FROM_AREA_1;
102
103--PAGE
104--
105--  TASK_1
106--
107
108   procedure TASK_1 (
109      ARGUMENT : in     RTEMS.TASK_ARGUMENT
110   ) is
111      RNID              : RTEMS.ID;
112      SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
113      SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
114      SEGMENT_ADDRESS_3 : RTEMS.ADDRESS;
115      SEGMENT_ADDRESS_4 : RTEMS.ADDRESS;
116      SEGMENT_ADDRESS_5 : RTEMS.ADDRESS;
117      SEGMENT_ADDRESS_6 : RTEMS.ADDRESS;
118      SEGMENT_ADDRESS_7 : RTEMS.ADDRESS;
119      SEGMENT_ADDRESS_8 : RTEMS.ADDRESS;
120      STATUS            : RTEMS.STATUS_CODES;
121   begin
122
123      RTEMS.REGION_IDENT( SPTEST.REGION_NAME( 1 ), RNID, STATUS );
124      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_IDENT OF RN1" );
125      TEXT_IO.PUT( "TA1 - region_ident - rnid => " );
126      UNSIGNED32_IO.PUT( RNID, WIDTH => 8, BASE => 16 );
127      TEXT_IO.NEW_LINE;
128       
129      TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
130      TEXT_IO.PUT_LINE( "64 byte segment from region 1" );
131      RTEMS.REGION_GET_SEGMENT(
132         SPTEST.REGION_ID( 1 ),
133         64,
134         RTEMS.DEFAULT_OPTIONS,
135         RTEMS.NO_TIMEOUT,
136         SEGMENT_ADDRESS_1,
137         STATUS
138      );
139      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
140      TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
141      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_1 );
142      TEXT_IO.NEW_LINE;
143
144      TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
145      TEXT_IO.PUT_LINE( "128 byte segment from region 1" );
146      RTEMS.REGION_GET_SEGMENT(
147         SPTEST.REGION_ID( 1 ),
148         128,
149         RTEMS.DEFAULT_OPTIONS,
150         RTEMS.NO_TIMEOUT,
151         SEGMENT_ADDRESS_2,
152         STATUS
153      );
154      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
155      TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
156      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_2 );
157      TEXT_IO.NEW_LINE;
158
159      TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
160      TEXT_IO.PUT_LINE( "256 byte segment from region 1" );
161      RTEMS.REGION_GET_SEGMENT(
162         SPTEST.REGION_ID( 1 ),
163         256,
164         RTEMS.DEFAULT_OPTIONS,
165         RTEMS.NO_TIMEOUT,
166         SEGMENT_ADDRESS_3,
167         STATUS
168      );
169      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
170      TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
171      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_3 );
172      TEXT_IO.NEW_LINE;
173
174      TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
175      TEXT_IO.PUT_LINE( "512 byte segment from region 1" );
176      RTEMS.REGION_GET_SEGMENT(
177         SPTEST.REGION_ID( 1 ),
178         512,
179         RTEMS.DEFAULT_OPTIONS,
180         RTEMS.NO_TIMEOUT,
181         SEGMENT_ADDRESS_4,
182         STATUS
183      );
184      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
185      TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
186      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_4 );
187      TEXT_IO.NEW_LINE;
188
189      TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
190      TEXT_IO.PUT_LINE( "1024 byte segment from region 1" );
191      RTEMS.REGION_GET_SEGMENT(
192         SPTEST.REGION_ID( 1 ),
193         1024,
194         RTEMS.DEFAULT_OPTIONS,
195         RTEMS.NO_TIMEOUT,
196         SEGMENT_ADDRESS_5,
197         STATUS
198      );
199      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
200      TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
201      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_5 );
202      TEXT_IO.NEW_LINE;
203
204      TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
205      TEXT_IO.PUT_LINE( "2048 byte segment from region 1" );
206      RTEMS.REGION_GET_SEGMENT(
207         SPTEST.REGION_ID( 1 ),
208         2048,
209         RTEMS.DEFAULT_OPTIONS,
210         RTEMS.NO_TIMEOUT,
211         SEGMENT_ADDRESS_6,
212         STATUS
213      );
214      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
215      TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
216      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_6 );
217      TEXT_IO.NEW_LINE;
218
219      TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
220      TEXT_IO.PUT_LINE( "4096 byte segment from region 1" );
221      RTEMS.REGION_GET_SEGMENT(
222         SPTEST.REGION_ID( 1 ),
223         4096,
224         RTEMS.DEFAULT_OPTIONS,
225         RTEMS.NO_TIMEOUT,
226         SEGMENT_ADDRESS_7,
227         STATUS
228      );
229      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
230      TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
231      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_7 );
232      TEXT_IO.NEW_LINE;
233
234      TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
235      TEXT_IO.PUT_LINE( "8192 byte segment from region 1" );
236      RTEMS.REGION_GET_SEGMENT(
237         SPTEST.REGION_ID( 1 ),
238         8192,
239         RTEMS.DEFAULT_OPTIONS,
240         RTEMS.NO_TIMEOUT,
241         SEGMENT_ADDRESS_8,
242         STATUS
243      );
244      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
245      TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
246      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_8 );
247      TEXT_IO.NEW_LINE;
248
249TEST_SUPPORT.PAUSE;
250
251      TEXT_IO.PUT( 
252         "TA1 - region_return_segment - return segment to region 1 - "
253      );
254      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_3 );
255      RTEMS.REGION_RETURN_SEGMENT(
256         SPTEST.REGION_ID( 1 ),
257         SEGMENT_ADDRESS_3,
258         STATUS
259      );
260      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
261      TEXT_IO.NEW_LINE;
262      SEGMENT_ADDRESS_3 := RTEMS.NULL_ADDRESS;
263
264      TEXT_IO.PUT( 
265         "TA1 - region_return_segment - return segment to region 1 - "
266      );
267      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_4 );
268      RTEMS.REGION_RETURN_SEGMENT(
269         SPTEST.REGION_ID( 1 ),
270         SEGMENT_ADDRESS_4,
271         STATUS
272      );
273      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
274      TEXT_IO.NEW_LINE;
275      SEGMENT_ADDRESS_4 := RTEMS.NULL_ADDRESS;
276
277      TEXT_IO.PUT( 
278         "TA1 - region_return_segment - return segment to region 1 - "
279      );
280      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_1 );
281      RTEMS.REGION_RETURN_SEGMENT(
282         SPTEST.REGION_ID( 1 ),
283         SEGMENT_ADDRESS_1,
284         STATUS
285      );
286      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
287      TEXT_IO.NEW_LINE;
288      SEGMENT_ADDRESS_1 := RTEMS.NULL_ADDRESS;
289
290      TEXT_IO.PUT( 
291         "TA1 - region_return_segment - return segment to region 1 - "
292      );
293      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_2 );
294      RTEMS.REGION_RETURN_SEGMENT(
295         SPTEST.REGION_ID( 1 ),
296         SEGMENT_ADDRESS_2,
297         STATUS
298      );
299      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
300      TEXT_IO.NEW_LINE;
301      SEGMENT_ADDRESS_2 := RTEMS.NULL_ADDRESS;
302
303      TEXT_IO.PUT( 
304         "TA1 - region_return_segment - return segment to region 1 - "
305      );
306      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_7 );
307      RTEMS.REGION_RETURN_SEGMENT(
308         SPTEST.REGION_ID( 1 ),
309         SEGMENT_ADDRESS_7,
310         STATUS
311      );
312      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
313      TEXT_IO.NEW_LINE;
314      SEGMENT_ADDRESS_7 := RTEMS.NULL_ADDRESS;
315
316      TEXT_IO.PUT( 
317         "TA1 - region_return_segment - return segment to region 1 - "
318      );
319      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_6 );
320      RTEMS.REGION_RETURN_SEGMENT(
321         SPTEST.REGION_ID( 1 ),
322         SEGMENT_ADDRESS_6,
323         STATUS
324      );
325      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
326      TEXT_IO.NEW_LINE;
327      SEGMENT_ADDRESS_6 := RTEMS.NULL_ADDRESS;
328
329      TEXT_IO.PUT( 
330         "TA1 - region_return_segment - return segment to region 1 - "
331      );
332      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_8 );
333      RTEMS.REGION_RETURN_SEGMENT(
334         SPTEST.REGION_ID( 1 ),
335         SEGMENT_ADDRESS_8,
336         STATUS
337      );
338      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
339      TEXT_IO.NEW_LINE;
340      SEGMENT_ADDRESS_8 := RTEMS.NULL_ADDRESS;
341
342      TEXT_IO.PUT( 
343         "TA1 - region_return_segment - return segment to region 1 - "
344      );
345      SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_5 );
346      RTEMS.REGION_RETURN_SEGMENT(
347         SPTEST.REGION_ID( 1 ),
348         SEGMENT_ADDRESS_5,
349         STATUS
350      );
351      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
352      TEXT_IO.NEW_LINE;
353      SEGMENT_ADDRESS_5 := RTEMS.NULL_ADDRESS;
354
355      TEXT_IO.PUT_LINE(
356         "TA1 - region_delete - walks heap if debug enabled"
357      );
358      RTEMS.REGION_DELETE( SPTEST.REGION_ID( 1 ), STATUS );
359      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_DELETE OF RN1" );
360
361      TEXT_IO.PUT_LINE( "*** END OF TEST 25 ***" );
362      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
363
364   end TASK_1;
365
366end SPTEST;
Note: See TracBrowser for help on using the repository browser.