source: rtems/c/src/tests/sptests/sp16/task1.c @ d2b93bfd

4.104.114.84.95
Last change on this file since d2b93bfd was d2b93bfd, checked in by Joel Sherrill <joel.sherrill@…>, on 09/04/03 at 18:53:48

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

  • sp01/init.c, sp01/sp01.doc, sp01/system.h, sp01/task1.c, sp02/init.c, sp02/preempt.c, sp02/sp02.doc, sp02/system.h, sp02/task1.c, sp02/task2.c, sp02/task3.c, sp03/init.c, sp03/sp03.doc, sp03/system.h, sp03/task1.c, sp03/task2.c, sp04/init.c, sp04/sp04.doc, sp04/system.h, sp04/task1.c, sp04/task2.c, sp04/task3.c, sp04/tswitch.c, sp05/init.c, sp05/sp05.doc, sp05/system.h, sp05/task1.c, sp05/task2.c, sp05/task3.c, sp06/init.c, sp06/sp06.doc, sp06/system.h, sp06/task1.c, sp06/task2.c, sp06/task3.c, sp07/init.c, sp07/sp07.doc, sp07/system.h, sp07/task1.c, sp07/task2.c, sp07/task3.c, sp07/task4.c, sp07/taskexit.c, sp07/tcreate.c, sp07/tdelete.c, sp07/trestart.c, sp07/tstart.c, sp08/init.c, sp08/sp08.doc, sp08/system.h, sp08/task1.c, sp09/delay.c, sp09/init.c, sp09/isr.c, sp09/screen01.c, sp09/screen02.c, sp09/screen03.c, sp09/screen04.c, sp09/screen05.c, sp09/screen06.c, sp09/screen07.c, sp09/screen08.c, sp09/screen09.c, sp09/screen10.c, sp09/screen11.c, sp09/screen12.c, sp09/screen13.c, sp09/screen14.c, sp09/sp09.doc, sp09/system.h, sp09/task1.c, sp09/task2.c, sp09/task3.c, sp09/task4.c, sp11/init.c, sp11/sp11.doc, sp11/system.h, sp11/task1.c, sp11/task2.c, sp11/timer.c, sp12/init.c, sp12/pridrv.c, sp12/pritask.c, sp12/sp12.doc, sp12/system.h, sp12/task1.c, sp12/task2.c, sp12/task3.c, sp12/task4.c, sp12/task5.c, sp13/fillbuff.c, sp13/init.c, sp13/putbuff.c, sp13/sp13.doc, sp13/system.h, sp13/task1.c, sp13/task2.c, sp13/task3.c, sp14/asr.c, sp14/init.c, sp14/sp14.doc, sp14/system.h, sp14/task1.c, sp14/task2.c, sp15/init.c, sp15/sp15.doc, sp15/system.h, sp15/task1.c, sp16/init.c, sp16/sp16.doc, sp16/system.h, sp16/task1.c, sp16/task2.c, sp16/task3.c, sp16/task4.c, sp16/task5.c, sp17/asr.c, sp17/init.c, sp17/sp17.doc, sp17/system.h, sp17/task1.c, sp17/task2.c, sp19/first.c, sp19/fptask.c, sp19/fptest.h, sp19/init.c, sp19/inttest.h, sp19/sp19.doc, sp19/system.h, sp19/task1.c, sp20/getall.c, sp20/init.c, sp20/sp20.doc, sp20/system.h, sp20/task1.c, sp21/init.c, sp21/sp21.doc, sp21/system.h, sp21/task1.c, sp22/delay.c, sp22/init.c, sp22/prtime.c, sp22/sp22.doc, sp22/system.h, sp22/task1.c, sp23/init.c, sp23/sp23.doc, sp23/system.h, sp23/task1.c, sp24/init.c, sp24/resume.c, sp24/sp24.doc, sp24/system.h, sp24/task1.c, sp25/init.c, sp25/sp25.doc, sp25/system.h, sp25/task1.c, sp26/init.c, sp26/sp26.doc, sp26/system.h, sp26/task1.c, sp30/init.c, sp30/resume.c, sp30/sp30.doc, sp30/system.h, sp30/task1.c, sp31/delay.c, sp31/init.c, sp31/prtime.c, sp31/sp31.doc, sp31/system.h, sp31/task1.c, sp32/init.c, spfatal/fatal.c, spfatal/init.c, spfatal/puterr.c, spfatal/spfatal.doc, spfatal/system.h, spfatal/task1.c, spsize/getint.c, spsize/init.c, spsize/size.c, spsize/system.h: URL for license changed.
  • Property mode set to 100644
File size: 8.3 KB
Line 
1/*  Task_1
2 *
3 *  This routine serves as a test task.  It tests the region manager.
4 *
5 *  Input parameters:
6 *    argument - task argument
7 *
8 *  Output parameters:  NONE
9 *
10 *  COPYRIGHT (c) 1989-1999.
11 *  On-Line Applications Research Corporation (OAR).
12 *
13 *  The license and distribution terms for this file may be
14 *  found in the file LICENSE in this distribution or at
15 *  http://www.rtems.com/license/LICENSE.
16 *
17 *  $Id$
18 */
19
20#include "system.h"
21
22rtems_task Task_1(
23  rtems_task_argument argument
24)
25{
26  rtems_id           rnid;
27  void              *segment_address_1;
28  void              *segment_address_2;
29  void              *segment_address_3;
30  void              *segment_address_4;
31  rtems_status_code  status;
32
33  status = rtems_region_ident( Region_name[ 1 ], &rnid );
34  printf( "TA1 - rtems_region_ident - rnid => %08x\n", rnid );
35  directive_failed( status, "rtems_region_ident of RN1" );
36
37  puts(
38    "TA1 - rtems_region_get_segment - wait on 100 byte segment from region 2"
39  );
40  status = rtems_region_get_segment(
41    Region_id[ 2 ],
42    100,
43    RTEMS_DEFAULT_OPTIONS,
44    RTEMS_NO_TIMEOUT,
45    &segment_address_1
46  );
47  directive_failed( status, "rtems_region_get_segment" );
48  puts_nocr( "TA1 - got segment from region 2 - " );
49  Put_address_from_area_2( segment_address_1 );
50  new_line;
51
52  puts( "TA1 - rtems_region_get_segment - wait on 3K segment from region 3" );
53  status = rtems_region_get_segment(
54    Region_id[ 3 ],
55    3072,
56    RTEMS_DEFAULT_OPTIONS,
57    RTEMS_NO_TIMEOUT,
58    &segment_address_2
59  );
60  directive_failed( status, "rtems_region_get_segment" );
61  puts_nocr( "TA1 - got segment from region 3 - " );
62  Put_address_from_area_3( segment_address_2 );
63  new_line;
64
65  puts_nocr( "TA1 - rtems_region_get_segment - get 3080 byte segment " );
66  puts     ( "from region 1 - NO_WAIT" );
67  status = rtems_region_get_segment(
68    Region_id[ 1 ],
69    3080,
70    RTEMS_NO_WAIT,
71    RTEMS_NO_TIMEOUT,
72    &segment_address_3
73  );
74  directive_failed( status, "rtems_region_get_segment" );
75  puts_nocr( "TA1 - got segment from region 1 - " );
76  Put_address_from_area_1( segment_address_3 );
77  new_line;
78
79  puts( "TA1 - rtems_task_wake_after - yield processor" );
80  status = rtems_task_wake_after( RTEMS_YIELD_PROCESSOR );
81  directive_failed( status, "rtems_task_wake_after" );
82
83rtems_test_pause();
84
85  puts_nocr(
86    "TA1 - rtems_region_return_segment - return segment to region 1 - "
87  );
88  Put_address_from_area_1( segment_address_3 );
89  status = rtems_region_return_segment( Region_id[ 1 ], segment_address_3 );
90  directive_failed( status, "rtems_region_return_segment" );
91  new_line;
92
93  puts(
94    "TA1 - rtems_region_get_segment - wait 10 seconds for 3K "
95      "segment from region 1"
96  );
97  status = rtems_region_get_segment(
98    Region_id[ 1 ],
99    3072,
100    RTEMS_DEFAULT_OPTIONS,
101    10 * TICKS_PER_SECOND,
102    &segment_address_4
103  );
104  directive_failed( status, "rtems_region_get_segment" );
105  puts_nocr( "TA1 - got segment from region 1 - " );
106  Put_address_from_area_1( segment_address_4 );
107  new_line;
108
109  puts_nocr(
110    "TA1 - rtems_region_return_segment - return segment to region 2 - "
111  );
112  Put_address_from_area_2( segment_address_1 );
113  new_line;
114  status = rtems_region_return_segment( Region_id[ 2 ], segment_address_1 );
115  directive_failed( status, "rtems_region_return_segment" );
116
117  puts( "TA1 - rtems_task_wake_after - yield processor" );
118  status = rtems_task_wake_after( RTEMS_YIELD_PROCESSOR );
119  directive_failed( status, "rtems_task_wake_after" );
120
121  puts( "TA1 - rtems_task_delete - delete TA3" );
122  status = rtems_task_delete( Task_id[ 3 ] );
123  directive_failed( status, "rtems_task_delete of TA3" );
124
125rtems_test_pause();
126
127  status = rtems_task_create(
128    Task_name[ 4 ],
129    BASE_PRIORITY,
130    RTEMS_MINIMUM_STACK_SIZE,
131    RTEMS_DEFAULT_MODES,
132    RTEMS_DEFAULT_ATTRIBUTES,
133    &Task_id[ 4 ]
134  );
135  directive_failed( status, "rtems_task_create of TA4" );
136
137  status = rtems_task_create(
138    Task_name[ 5 ],
139    BASE_PRIORITY,
140    RTEMS_MINIMUM_STACK_SIZE,
141    RTEMS_DEFAULT_MODES,
142    RTEMS_DEFAULT_ATTRIBUTES,
143    &Task_id[ 5 ]
144  );
145  directive_failed( status, "rtems_task_create of TA5" );
146
147  status = rtems_task_start( Task_id[ 4 ], Task_4, 0 );
148  directive_failed( status, "rtems_task_start of TA4" );
149
150  status = rtems_task_start( Task_id[ 5 ], Task5, 0 );
151  directive_failed( status, "rtems_task_start of TA5" );
152
153  puts( "TA1 - rtems_task_wake_after - yield processor" );
154  status = rtems_task_wake_after( 1 * TICKS_PER_SECOND );
155  directive_failed( status, "rtems_task_wake_after" );
156
157  puts_nocr(
158    "TA1 - rtems_region_return_segment - return segment to region 1 - "
159  );
160  Put_address_from_area_1( segment_address_4 );
161  status = rtems_region_return_segment( Region_id[ 1 ], segment_address_4 );
162  directive_failed( status, "rtems_region_return_segment" );
163  new_line;
164
165  puts( "TA1 - rtems_task_wake_after - yield processor" );
166  status = rtems_task_wake_after( 1 * TICKS_PER_SECOND );
167  directive_failed( status, "rtems_task_wake_after" );
168
169  puts_nocr( "TA1 - rtems_region_get_segment - wait 10 seconds for 3K " );
170  puts     ( "segment from region 1");
171  status = rtems_region_get_segment(
172    Region_id[ 1 ],
173    3072,
174    RTEMS_DEFAULT_OPTIONS,
175    10 * TICKS_PER_SECOND,
176    &segment_address_4
177  );
178  directive_failed( status, "rtems_region_get_segment" );
179  puts_nocr( "TA1 - got segment from region 1 - " );
180  Put_address_from_area_1( segment_address_4 );
181  new_line;
182
183  puts( "TA1 - rtems_task_wake_after - yield processor" );
184  status = rtems_task_wake_after( 1 * TICKS_PER_SECOND );
185  directive_failed( status, "rtems_task_wake_after" );
186
187  puts( "TA1 - rtems_task_delete - delete TA4" );
188  status = rtems_task_delete( Task_id[ 4 ] );
189  directive_failed( status, "rtems_task_delete of TA4" );
190
191  puts_nocr(
192    "TA1 - rtems_region_return_segment - return segment to region 1 - "
193  );
194  Put_address_from_area_1( segment_address_4 );
195  status = rtems_region_return_segment( Region_id[ 1 ], segment_address_4 );
196  directive_failed( status, "rtems_region_return_segment" );
197  new_line;
198
199  puts( "TA1 - rtems_task_wake_after - yield processor" );
200  status = rtems_task_wake_after( RTEMS_YIELD_PROCESSOR );
201
202  puts( "TA1 - rtems_region_delete - delete region 1" );
203  status = rtems_region_delete( Region_id[ 1 ] );
204  directive_failed( status, "rtems_region_delete" );
205
206  puts( "TA1 - rtems_region_get_segment - get 3K segment from region 4" );
207  status = rtems_region_get_segment(
208    Region_id[ 4 ],
209    3072,
210    RTEMS_DEFAULT_OPTIONS,
211    RTEMS_NO_TIMEOUT,
212    &segment_address_1
213  );
214  directive_failed( status, "rtems_region_get_segment" );
215  puts_nocr( "TA1 - got segment from region 4 - " );
216  Put_address_from_area_4( segment_address_1 );
217  new_line;
218
219  puts(
220   "TA1 - rtems_region_get_segment - attempt to get 3K segment from region 4"
221  );
222  status =  rtems_region_get_segment(
223    Region_id[ 4 ],
224    3072,
225    RTEMS_NO_WAIT,
226    RTEMS_NO_TIMEOUT,
227    &segment_address_2
228  );
229  fatal_directive_status(
230    status,
231    RTEMS_UNSATISFIED,
232    "rtems_task_get_segment with no memory left"
233  );
234  puts( "TA1 - rtems_task_get_note - RTEMS_UNSATISFIED" );
235
236  puts( "TA1 - rtems_region_extend - extend region 4 by 4K" );
237  status = rtems_region_extend(
238    Region_id[ 4 ],
239    &Area_4[4096],
240    4096
241  );
242  directive_failed( status, "rtems_region_extend" );
243
244  puts(
245   "TA1 - rtems_region_get_segment - attempt to get 3K segment from region 4"
246  );
247  status = rtems_region_get_segment(
248    Region_id[ 4 ],
249    3072,
250    RTEMS_NO_WAIT,
251    RTEMS_NO_TIMEOUT,
252    &segment_address_3
253  );
254  directive_failed( status, "rtems_region_get_segment" );
255  puts_nocr( "TA1 - got 3K segment from region 4 - " );
256  Put_address_from_area_4( segment_address_3 );
257  new_line;
258
259  puts_nocr(
260    "TA1 - rtems_region_return_segment - return segment to region 4 - "
261  );
262  Put_address_from_area_4( segment_address_1 );
263  status = rtems_region_return_segment( Region_id[ 4 ], segment_address_1 );
264  directive_failed( status, "rtems_region_return_segment" );
265  new_line;
266
267  puts_nocr(
268    "TA1 - rtems_region_return_segment - return segment to region 4 - "
269  );
270  Put_address_from_area_4( segment_address_3 );
271  status = rtems_region_return_segment( Region_id[ 4 ], segment_address_3 );
272  directive_failed( status, "rtems_region_return_segment" );
273  new_line;
274
275  puts( "TA1 - rtems_region_delete - delete region 4" );
276  status = rtems_region_delete( Region_id[ 4 ] );
277  directive_failed( status, "rtems_region_delete" );
278
279  puts( "*** END OF TEST 16 ***" );
280  rtems_test_exit( 0 );
281}
Note: See TracBrowser for help on using the repository browser.