Context Navigation

source: rtems/testsuites/ada/sptests/sp16/sptest.adb @ 48aa4b5d

5

Last change on this file since 48aa4b5d was f6c9334d, checked in by Sebastian Huber <sebastian.huber@…>, on 12/01/17 at 07:51:17
ada: Add standard test begin/end message
Property mode set to `100644`
File size: 22.8 KB

Line
1	--
2	-- SPTEST / BODY
3	--
4	-- DESCRIPTION:
5	--
6	-- This package is the implementation of Test 16 of the RTEMS
7	-- Single Processor Test Suite.
8	--
9	-- DEPENDENCIES:
10	--
11	--
12	--
13	-- COPYRIGHT (c) 1989-2011.
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.rtems.org/license/LICENSE.
19	--
20
21	with INTERFACES; use INTERFACES;
22	with TEST_SUPPORT;
23	with TEXT_IO;
24	with UNSIGNED32_IO;
25	with RTEMS.REGION;
26
27	package body SPTEST is
28
29	--
30	-- INIT
31	--
32
33	procedure INIT (
34	ARGUMENT : in RTEMS.TASKS.ARGUMENT
35	) is
36	pragma Unreferenced(ARGUMENT);
37	STATUS : RTEMS.STATUS_CODES;
38	begin
39
40	TEXT_IO.NEW_LINE( 2 );
41	TEST_SUPPORT.ADA_TEST_BEGIN;
42
43	SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
44	SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
45	SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
46	SPTEST.TASK_NAME( 4 ) := RTEMS.BUILD_NAME( 'T', 'A', '4', ' ' );
47	SPTEST.TASK_NAME( 5 ) := RTEMS.BUILD_NAME( 'T', 'A', '5', ' ' );
48
49	RTEMS.TASKS.CREATE(
50	SPTEST.TASK_NAME( 1 ),
51	SPTEST.BASE_PRIORITY,
52	2048,
53	RTEMS.DEFAULT_MODES,
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.TASKS.CREATE(
61	SPTEST.TASK_NAME( 2 ),
62	SPTEST.BASE_PRIORITY,
63	2048,
64	RTEMS.DEFAULT_MODES,
65	RTEMS.DEFAULT_ATTRIBUTES,
66	SPTEST.TASK_ID( 2 ),
67	STATUS
68	);
69	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
70
71	RTEMS.TASKS.CREATE(
72	SPTEST.TASK_NAME( 3 ),
73	SPTEST.BASE_PRIORITY,
74	2048,
75	RTEMS.DEFAULT_MODES,
76	RTEMS.DEFAULT_ATTRIBUTES,
77	SPTEST.TASK_ID( 3 ),
78	STATUS
79	);
80	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
81
82	RTEMS.TASKS.START(
83	SPTEST.TASK_ID( 1 ),
84	SPTEST.TASK_1'ACCESS,
85	0,
86	STATUS
87	);
88	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
89
90	RTEMS.TASKS.START(
91	SPTEST.TASK_ID( 2 ),
92	SPTEST.TASK_2'ACCESS,
93	0,
94	STATUS
95	);
96	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
97
98	RTEMS.TASKS.START(
99	SPTEST.TASK_ID( 3 ),
100	SPTEST.TASK_3'ACCESS,
101	0,
102	STATUS
103	);
104	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
105
106	SPTEST.REGION_NAME( 1 ) := RTEMS.BUILD_NAME( 'R', 'N', '1', ' ' );
107	SPTEST.REGION_NAME( 2 ) := RTEMS.BUILD_NAME( 'R', 'N', '2', ' ' );
108	SPTEST.REGION_NAME( 3 ) := RTEMS.BUILD_NAME( 'R', 'N', '3', ' ' );
109	SPTEST.REGION_NAME( 4 ) := RTEMS.BUILD_NAME( 'R', 'N', '4', ' ' );
110
111	RTEMS.REGION.CREATE(
112	SPTEST.REGION_NAME( 1 ),
113	SPTEST.AREA_1'ADDRESS,
114	4096,
115	128,
116	RTEMS.DEFAULT_ATTRIBUTES,
117	SPTEST.REGION_ID( 1 ),
118	STATUS
119	);
120	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_CREATE OF RN1" );
121
122	RTEMS.REGION.CREATE(
123	SPTEST.REGION_NAME( 2 ),
124	SPTEST.AREA_2'ADDRESS,
125	4096,
126	128,
127	RTEMS.PRIORITY,
128	SPTEST.REGION_ID( 2 ),
129	STATUS
130	);
131	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_CREATE OF RN2" );
132
133	RTEMS.REGION.CREATE(
134	SPTEST.REGION_NAME( 3 ),
135	SPTEST.AREA_3'ADDRESS,
136	4096,
137	128,
138	RTEMS.DEFAULT_ATTRIBUTES,
139	SPTEST.REGION_ID( 3 ),
140	STATUS
141	);
142	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_CREATE OF RN3" );
143
144	RTEMS.REGION.CREATE(
145	SPTEST.REGION_NAME( 4 ),
146	SPTEST.AREA_4'ADDRESS,
147	4096,
148	128,
149	RTEMS.DEFAULT_ATTRIBUTES,
150	SPTEST.REGION_ID( 4 ),
151	STATUS
152	);
153	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_CREATE OF RN4" );
154
155	RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
156	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
157
158	end INIT;
159
160	--
161	-- PUT_ADDRESS_FROM_AREA_1
162	--
163
164	procedure PUT_ADDRESS_FROM_AREA_1 (
165	TO_BE_PRINTED : in RTEMS.ADDRESS
166	) is
167
168	begin
169
170	UNSIGNED32_IO.PUT(
171	RTEMS.SUBTRACT( TO_BE_PRINTED, SPTEST.AREA_1'ADDRESS ),
172	WIDTH => 8,
173	BASE => 16
174	);
175
176	end PUT_ADDRESS_FROM_AREA_1;
177
178	--
179	-- PUT_ADDRESS_FROM_AREA_2
180	--
181
182	procedure PUT_ADDRESS_FROM_AREA_2 (
183	TO_BE_PRINTED : in RTEMS.ADDRESS
184	) is
185	begin
186
187	UNSIGNED32_IO.PUT(
188	RTEMS.SUBTRACT( TO_BE_PRINTED, SPTEST.AREA_2'ADDRESS ),
189	WIDTH => 8,
190	BASE => 16
191	);
192
193	end PUT_ADDRESS_FROM_AREA_2;
194
195	--
196	-- PUT_ADDRESS_FROM_AREA_3
197	--
198
199	procedure PUT_ADDRESS_FROM_AREA_3 (
200	TO_BE_PRINTED : in RTEMS.ADDRESS
201	) is
202	begin
203
204	UNSIGNED32_IO.PUT(
205	RTEMS.SUBTRACT( TO_BE_PRINTED, SPTEST.AREA_3'ADDRESS ),
206	WIDTH => 8,
207	BASE => 16
208	);
209
210	end PUT_ADDRESS_FROM_AREA_3;
211
212	--
213	-- PUT_ADDRESS_FROM_AREA_4
214	--
215
216	procedure PUT_ADDRESS_FROM_AREA_4 (
217	TO_BE_PRINTED : in RTEMS.ADDRESS
218	) is
219	begin
220
221	UNSIGNED32_IO.PUT(
222	RTEMS.SUBTRACT( TO_BE_PRINTED, SPTEST.AREA_4'ADDRESS ),
223	WIDTH => 8,
224	BASE => 16
225	);
226
227	end PUT_ADDRESS_FROM_AREA_4;
228
229	--
230	-- TASK_1
231	--
232
233	procedure TASK_1 (
234	ARGUMENT : in RTEMS.TASKS.ARGUMENT
235	) is
236	pragma Unreferenced(ARGUMENT);
237	RNID : RTEMS.ID;
238	SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
239	SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
240	SEGMENT_ADDRESS_3 : RTEMS.ADDRESS;
241	SEGMENT_ADDRESS_4 : RTEMS.ADDRESS;
242	STATUS : RTEMS.STATUS_CODES;
243	begin
244
245	RTEMS.REGION.IDENT( SPTEST.REGION_NAME( 1 ), RNID, STATUS );
246	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_IDENT OF RN1" );
247	TEXT_IO.PUT( "TA1 - region_ident - rnid => " );
248	UNSIGNED32_IO.PUT( RNID, WIDTH => 8, BASE => 16 );
249	TEXT_IO.NEW_LINE;
250
251	TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
252	TEXT_IO.PUT_LINE( "100 byte segment from region 2" );
253	RTEMS.REGION.GET_SEGMENT(
254	SPTEST.REGION_ID( 2 ),
255	100,
256	RTEMS.DEFAULT_OPTIONS,
257	RTEMS.NO_TIMEOUT,
258	SEGMENT_ADDRESS_1,
259	STATUS
260	);
261	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
262	TEXT_IO.PUT( "TA1 - got segment from region 2 - " );
263	SPTEST.PUT_ADDRESS_FROM_AREA_2( SEGMENT_ADDRESS_1 );
264	TEXT_IO.NEW_LINE;
265
266	TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
267	TEXT_IO.PUT_LINE( "3K segment from region 3" );
268	RTEMS.REGION.GET_SEGMENT(
269	SPTEST.REGION_ID( 3 ),
270	3072,
271	RTEMS.DEFAULT_OPTIONS,
272	RTEMS.NO_TIMEOUT,
273	SEGMENT_ADDRESS_2,
274	STATUS
275	);
276	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
277	TEXT_IO.PUT( "TA1 - got segment from region 3 - " );
278	SPTEST.PUT_ADDRESS_FROM_AREA_3( SEGMENT_ADDRESS_2 );
279	TEXT_IO.NEW_LINE;
280
281	TEXT_IO.PUT( "TA1 - region_get_segment - get 3080 byte segment " );
282	TEXT_IO.PUT_LINE( "from region 1 - NO_WAIT" );
283	RTEMS.REGION.GET_SEGMENT(
284	SPTEST.REGION_ID( 1 ),
285	3080,
286	RTEMS.NO_WAIT,
287	RTEMS.NO_TIMEOUT,
288	SEGMENT_ADDRESS_3,
289	STATUS
290	);
291	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
292	TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
293	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_3 );
294	TEXT_IO.NEW_LINE;
295
296	TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
297	RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
298	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
299
300	TEST_SUPPORT.PAUSE;
301
302	TEXT_IO.PUT(
303	"TA1 - region_return_segment - return segment to region 1 - "
304	);
305	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_3 );
306	RTEMS.REGION.RETURN_SEGMENT(
307	SPTEST.REGION_ID( 1 ),
308	SEGMENT_ADDRESS_3,
309	STATUS
310	);
311	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
312	TEXT_IO.NEW_LINE;
313
314	TEXT_IO.PUT( "TA1 - region_get_segment - wait 10 seconds for 3K " );
315	TEXT_IO.PUT_LINE( "segment from region 1" );
316	RTEMS.REGION.GET_SEGMENT(
317	SPTEST.REGION_ID( 1 ),
318	3072,
319	RTEMS.DEFAULT_OPTIONS,
320	10 * TEST_SUPPORT.TICKS_PER_SECOND,
321	SEGMENT_ADDRESS_4,
322	STATUS
323	);
324	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
325	TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
326	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_4 );
327	TEXT_IO.NEW_LINE;
328
329	TEXT_IO.PUT(
330	"TA1 - region_return_segment - return segment to region 2 - "
331	);
332	SPTEST.PUT_ADDRESS_FROM_AREA_2( SEGMENT_ADDRESS_1 );
333	TEXT_IO.NEW_LINE;
334	RTEMS.REGION.RETURN_SEGMENT(
335	SPTEST.REGION_ID( 2 ),
336	SEGMENT_ADDRESS_1,
337	STATUS
338	);
339	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
340
341	TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
342	RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
343	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
344
345	TEXT_IO.PUT_LINE( "TA1 - task_delete - delete TA3" );
346	RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 3 ), STATUS );
347	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
348
349	TEST_SUPPORT.PAUSE;
350
351	RTEMS.TASKS.CREATE(
352	SPTEST.TASK_NAME( 4 ),
353	SPTEST.BASE_PRIORITY,
354	2048,
355	RTEMS.DEFAULT_MODES,
356	RTEMS.DEFAULT_ATTRIBUTES,
357	SPTEST.TASK_ID( 4 ),
358	STATUS
359	);
360	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA4" );
361
362	RTEMS.TASKS.CREATE(
363	SPTEST.TASK_NAME( 5 ),
364	SPTEST.BASE_PRIORITY,
365	2048,
366	RTEMS.DEFAULT_MODES,
367	RTEMS.DEFAULT_ATTRIBUTES,
368	SPTEST.TASK_ID( 5 ),
369	STATUS
370	);
371	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA5" );
372
373	RTEMS.TASKS.START(
374	SPTEST.TASK_ID( 4 ),
375	SPTEST.TASK_4'ACCESS,
376	0,
377	STATUS
378	);
379	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA4" );
380
381	RTEMS.TASKS.START(
382	SPTEST.TASK_ID( 5 ),
383	SPTEST.TASK_5'ACCESS,
384	0,
385	STATUS
386	);
387	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA5" );
388
389	TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
390	RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
391	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
392
393	TEXT_IO.PUT(
394	"TA1 - region_return_segment - return segment to region 1 - "
395	);
396	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_4 );
397	RTEMS.REGION.RETURN_SEGMENT(
398	SPTEST.REGION_ID( 1 ),
399	SEGMENT_ADDRESS_4,
400	STATUS
401	);
402	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
403	TEXT_IO.NEW_LINE;
404
405	TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
406	RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
407	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
408
409	TEXT_IO.PUT( "TA1 - region_get_segment - wait 10 seconds for 3K " );
410	TEXT_IO.PUT_LINE( "segment from region 1" );
411	RTEMS.REGION.GET_SEGMENT(
412	SPTEST.REGION_ID( 1 ),
413	3072,
414	RTEMS.DEFAULT_OPTIONS,
415	10 * TEST_SUPPORT.TICKS_PER_SECOND,
416	SEGMENT_ADDRESS_4,
417	STATUS
418	);
419	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
420	TEXT_IO.PUT( "TA1 - got segment from region 1 - " );
421	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_4 );
422	TEXT_IO.NEW_LINE;
423
424	TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
425	RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
426	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
427
428	TEXT_IO.PUT_LINE( "TA1 - task_delete - delete TA4" );
429	RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 4 ), STATUS );
430	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA4" );
431
432	TEXT_IO.PUT(
433	"TA1 - region_return_segment - return segment to region 1 - "
434	);
435	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_4 );
436	RTEMS.REGION.RETURN_SEGMENT(
437	SPTEST.REGION_ID( 1 ),
438	SEGMENT_ADDRESS_4,
439	STATUS
440	);
441	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
442	TEXT_IO.NEW_LINE;
443
444	TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
445	RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
446	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
447
448	TEXT_IO.PUT_LINE( "TA1 - region_delete - delete region 1" );
449	RTEMS.REGION.DELETE( SPTEST.REGION_ID( 1 ), STATUS );
450	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_DELETE OF RN1" );
451	--XXX
452	TEXT_IO.PUT_LINE(
453	"TA1 - region_get_segment - get 3K segment from region 4"
454	);
455	RTEMS.REGION.GET_SEGMENT(
456	SPTEST.REGION_ID( 4 ),
457	3072,
458	RTEMS.DEFAULT_OPTIONS,
459	RTEMS.NO_TIMEOUT,
460	segment_address_1,
461	STATUS
462	);
463	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "region_get_segment" );
464	TEXT_IO.PUT( "TA1 - got segment from region 4 - " );
465	PUT_ADDRESS_FROM_AREA_4( segment_address_1 );
466	TEXT_IO.NEW_LINE;
467
468	TEXT_IO.PUT_LINE(
469	"TA1 - region_get_segment - attempt to get 3K segment from region 4"
470	);
471	RTEMS.REGION.GET_SEGMENT(
472	SPTEST.REGION_ID( 4 ),
473	3072,
474	RTEMS.NO_WAIT,
475	RTEMS.NO_TIMEOUT,
476	SEGMENT_ADDRESS_2,
477	STATUS
478	);
479	TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
480	STATUS,
481	RTEMS.UNSATISFIED,
482	"task_get_segment with no memory left"
483	);
484	TEXT_IO.PUT_LINE( "TA1 - task_get_note - UNSATISFIED" );
485
486	TEXT_IO.PUT_LINE( "TA1 - region_extend - extend region 4 by 4K" );
487	RTEMS.REGION.EXTEND(
488	SPTEST.REGION_ID( 4 ),
489	SPTEST.AREA_4( 4096 )'ADDRESS,
490	4096,
491	STATUS
492	);
493	TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_extend" );
494
495	TEXT_IO.PUT_LINE(
496	"TA1 - region_get_segment - attempt to get 3K segment from region 4"
497	);
498	RTEMS.REGION.GET_SEGMENT(
499	SPTEST.REGION_ID( 4 ),
500	3072,
501	RTEMS.NO_WAIT,
502	RTEMS.NO_TIMEOUT,
503	segment_address_3,
504	STATUS
505	);
506	TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_get_segment" );
507	TEXT_IO.PUT( "TA1 - got 3K segment from region 4 - " );
508	PUT_ADDRESS_FROM_AREA_4( segment_address_3 );
509	TEXT_IO.NEW_LINE;
510
511	TEXT_IO.PUT(
512	"TA1 - return_segment - return segment to region 4 - "
513	);
514	PUT_ADDRESS_FROM_AREA_4( segment_address_1 );
515	RTEMS.REGION.RETURN_SEGMENT(
516	SPTEST.REGION_ID( 4 ), segment_address_1, STATUS );
517	TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_return_segment" );
518	TEXT_IO.NEW_LINE;
519
520	TEXT_IO.PUT(
521	"TA1 - region_return_segment - return segment to region 4 - "
522	);
523	PUT_ADDRESS_FROM_AREA_4( segment_address_3 );
524	RTEMS.REGION.RETURN_SEGMENT(
525	SPTEST.REGION_ID( 4 ), segment_address_3, STATUS );
526	TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_return_segment" );
527	TEXT_IO.NEW_LINE;
528
529	TEXT_IO.PUT_LINE( "TA1 - region_delete - delete region 4" );
530	RTEMS.REGION.DELETE( SPTEST.REGION_ID( 4 ), STATUS );
531	TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_delete" );
532
533	TEST_SUPPORT.ADA_TEST_END;
534	RTEMS.SHUTDOWN_EXECUTIVE( 0 );
535
536	end TASK_1;
537
538	--
539	-- TASK_2
540	--
541
542	procedure TASK_2 (
543	ARGUMENT : in RTEMS.TASKS.ARGUMENT
544	) is
545	pragma Unreferenced(ARGUMENT);
546	PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
547	SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
548	SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
549	STATUS : RTEMS.STATUS_CODES;
550	begin
551
552	TEXT_IO.PUT( "TA2 - region_get_segment - wait on 2K segment " );
553	TEXT_IO.PUT_LINE( "from region 1" );
554	RTEMS.REGION.GET_SEGMENT(
555	SPTEST.REGION_ID( 1 ),
556	2048,
557	RTEMS.DEFAULT_OPTIONS,
558	RTEMS.NO_TIMEOUT,
559	SEGMENT_ADDRESS_1,
560	STATUS
561	);
562	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
563	TEXT_IO.PUT( "TA2 - got segment from region 1 - " );
564	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_1 );
565	TEXT_IO.NEW_LINE;
566
567	TEXT_IO.PUT(
568	"TA2 - region_return_segment - return segment to region 1 - "
569	);
570	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_1 );
571	RTEMS.REGION.RETURN_SEGMENT(
572	SPTEST.REGION_ID( 1 ),
573	SEGMENT_ADDRESS_1,
574	STATUS
575	);
576	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
577	TEXT_IO.NEW_LINE;
578
579	TEXT_IO.PUT( "TA2 - task_set_priority - make self " );
580	TEXT_IO.PUT_LINE( "highest priority task" );
581	RTEMS.TASKS.SET_PRIORITY(
582	RTEMS.SELF,
583	SPTEST.BASE_PRIORITY - 1,
584	PREVIOUS_PRIORITY,
585	STATUS
586	);
587	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
588
589	TEXT_IO.PUT(
590	"TA2 - region_get_segment - wait on 3950 byte segment "
591	);
592	TEXT_IO.PUT_LINE( "from region 2" );
593	RTEMS.REGION.GET_SEGMENT(
594	SPTEST.REGION_ID( 2 ),
595	3950,
596	RTEMS.DEFAULT_OPTIONS,
597	RTEMS.NO_TIMEOUT,
598	SEGMENT_ADDRESS_2,
599	STATUS
600	);
601	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
602	TEXT_IO.PUT( "TA2 - got segment from region 2 - " );
603	SPTEST.PUT_ADDRESS_FROM_AREA_2( SEGMENT_ADDRESS_2 );
604	TEXT_IO.NEW_LINE;
605
606	TEXT_IO.PUT(
607	"TA2 - region_return_segment - return segment to region 2 - "
608	);
609	SPTEST.PUT_ADDRESS_FROM_AREA_2( SEGMENT_ADDRESS_2 );
610	RTEMS.REGION.RETURN_SEGMENT(
611	SPTEST.REGION_ID( 2 ),
612	SEGMENT_ADDRESS_2,
613	STATUS
614	);
615	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
616	TEXT_IO.NEW_LINE;
617
618	TEXT_IO.PUT_LINE( "TA2 - task_delete - delete self" );
619	RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
620	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
621
622	end TASK_2;
623
624	--
625	-- TASK_3
626	--
627
628	procedure TASK_3 (
629	ARGUMENT : in RTEMS.TASKS.ARGUMENT
630	) is
631	pragma Unreferenced(ARGUMENT);
632	SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
633	SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
634	STATUS : RTEMS.STATUS_CODES;
635	begin
636
637	TEXT_IO.PUT( "TA3 - region_get_segment - wait on 3950 byte segment " );
638	TEXT_IO.PUT_LINE( "from region 2" );
639	RTEMS.REGION.GET_SEGMENT(
640	SPTEST.REGION_ID( 2 ),
641	3950,
642	RTEMS.DEFAULT_OPTIONS,
643	RTEMS.NO_TIMEOUT,
644	SEGMENT_ADDRESS_1,
645	STATUS
646	);
647	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
648	TEXT_IO.PUT( "TA3 - got segment from region 2 - " );
649	SPTEST.PUT_ADDRESS_FROM_AREA_2( SEGMENT_ADDRESS_1 );
650	TEXT_IO.NEW_LINE;
651
652	TEXT_IO.PUT( "TA3 - region_get_segment - wait on 2K segment " );
653	TEXT_IO.PUT_LINE( "from region 3" );
654	RTEMS.REGION.GET_SEGMENT(
655	SPTEST.REGION_ID( 3 ),
656	2048,
657	RTEMS.DEFAULT_OPTIONS,
658	RTEMS.NO_TIMEOUT,
659	SEGMENT_ADDRESS_2,
660	STATUS
661	);
662	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
663
664	end TASK_3;
665
666	--
667	-- TASK_4
668	--
669
670	procedure TASK_4 (
671	ARGUMENT : in RTEMS.TASKS.ARGUMENT
672	) is
673	pragma Unreferenced(ARGUMENT);
674	SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
675	SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
676	STATUS : RTEMS.STATUS_CODES;
677	begin
678
679	TEXT_IO.PUT( "TA4 - region_get_segment - wait on 1.5K segment " );
680	TEXT_IO.PUT_LINE( "from region 1" );
681	RTEMS.REGION.GET_SEGMENT(
682	SPTEST.REGION_ID( 1 ),
683	1536,
684	RTEMS.DEFAULT_OPTIONS,
685	RTEMS.NO_TIMEOUT,
686	SEGMENT_ADDRESS_1,
687	STATUS
688	);
689	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
690
691	RTEMS.REGION.RETURN_SEGMENT(
692	SPTEST.REGION_ID( 1 ),
693	SEGMENT_ADDRESS_1,
694	STATUS
695	);
696	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
697	TEXT_IO.PUT( "TA4 - got and returned " );
698	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_1 );
699	TEXT_IO.NEW_LINE;
700
701	RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
702	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
703
704	TEXT_IO.PUT( "TA4 - region_get_segment - wait on 3K segment " );
705	TEXT_IO.PUT_LINE( "from region 1" );
706	RTEMS.REGION.GET_SEGMENT(
707	SPTEST.REGION_ID( 1 ),
708	3072,
709	RTEMS.DEFAULT_OPTIONS,
710	RTEMS.NO_TIMEOUT,
711	SEGMENT_ADDRESS_2,
712	STATUS
713	);
714	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
715
716	end TASK_4;
717
718	--
719	-- TASK_5
720	--
721
722	procedure TASK_5 (
723	ARGUMENT : in RTEMS.TASKS.ARGUMENT
724	) is
725	pragma Unreferenced(ARGUMENT);
726	SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
727	SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
728	STATUS : RTEMS.STATUS_CODES;
729	begin
730
731	TEXT_IO.PUT( "TA5 - region_get_segment - wait on 1.5K segment " );
732	TEXT_IO.PUT_LINE( "from region 1" );
733	RTEMS.REGION.GET_SEGMENT(
734	SPTEST.REGION_ID( 1 ),
735	1536,
736	RTEMS.DEFAULT_OPTIONS,
737	RTEMS.NO_TIMEOUT,
738	SEGMENT_ADDRESS_1,
739	STATUS
740	);
741	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
742
743	RTEMS.REGION.RETURN_SEGMENT(
744	SPTEST.REGION_ID( 1 ),
745	SEGMENT_ADDRESS_1,
746	STATUS
747	);
748	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
749	TEXT_IO.PUT( "TA5 - got and returned " );
750	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_1 );
751	TEXT_IO.NEW_LINE;
752
753	RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
754	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
755
756	TEXT_IO.PUT( "TA5 - region_get_segment - wait on 3K segment " );
757	TEXT_IO.PUT_LINE( "from region 1" );
758	RTEMS.REGION.GET_SEGMENT(
759	SPTEST.REGION_ID( 1 ),
760	3072,
761	RTEMS.DEFAULT_OPTIONS,
762	RTEMS.NO_TIMEOUT,
763	SEGMENT_ADDRESS_2,
764	STATUS
765	);
766	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
767	TEXT_IO.PUT( "TA5 - got segment from region 1 - " );
768	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_2 );
769	TEXT_IO.NEW_LINE;
770
771	RTEMS.REGION.RETURN_SEGMENT(
772	SPTEST.REGION_ID( 1 ),
773	SEGMENT_ADDRESS_2,
774	STATUS
775	);
776	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
777	TEXT_IO.PUT(
778	"TA5 - region_return_segment - return segment to region 1 - "
779	);
780	SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_2 );
781	TEXT_IO.NEW_LINE;
782
783	TEXT_IO.PUT_LINE( "TA5 - task_delete - delete self" );
784	RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
785	TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA5" );
786
787	end TASK_5;
788
789	end SPTEST;

Note: See TracBrowser for help on using the repository browser.

Download in other formats: