source: extension/mutex/test/test_mutex3.c @ 7

このファイルの 7 以降における最終更新内容7 で kominami が 2015/09/12 9:22:12 に更新しました

TOPPERS/ASP 1.9.1

ファイルサイズ: 7.9 KB
Rev 
[7]1/*
2 *  TOPPERS Software
3 *      Toyohashi Open Platform for Embedded Real-Time Systems
4 *
5 *  Copyright (C) 2007-2014 by Embedded and Real-Time Systems Laboratory
6 *              Graduate School of Information Science, Nagoya Univ., JAPAN
7 *
8 *  Ÿåµ­Ãøºîž¢ŒÔ€Ï¡€°Ê²Œ€Î(1)¡Á(4)€ÎŸò·ï€òËþ€¿€¹Ÿì¹ç€ËžÂ€ê¡€ËÜ¥œ¥Õ¥È¥Š¥§
9 *  ¥¢¡ÊËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò²þÊÑ€·€¿€â€Î€òŽÞ€à¡¥°Ê²ŒÆ±€ž¡Ë€ò»ÈÍÑ¡ŠÊ£Àœ¡Š²þ
10 *  ÊÑ¡ŠºÆÇÛÉۡʰʲŒ¡€ÍøÍрȞƀ֡ˀ¹€ë€³€È€ò̵œþ€ÇµöÂú€¹€ë¡¥
11 *  (1) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¥œ¡Œ¥¹¥³¡Œ¥É€Î·Á€ÇÍøÍÑ€¹€ëŸì¹ç€Ë€Ï¡€Ÿåµ­€ÎÃøºî
12 *      ž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­€Î̵ÊÝŸÚµ¬Äꀬ¡€€œ€Î€Þ€Þ€Î·Á€Ç¥œ¡Œ
13 *      ¥¹¥³¡Œ¥ÉÃæ€ËŽÞ€Þ€ì€Æ€€€ë€³€È¡¥
14 *  (2) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¡€¥é¥€¥Ö¥é¥ê·ÁŒ°€Ê€É¡€ÂŸ€Î¥œ¥Õ¥È¥Š¥§¥¢³«È¯€Ë»È
15 *      Íрǀ­€ë·Á€ÇºÆÇÛÉÛ€¹€ëŸì¹ç€Ë€Ï¡€ºÆÇÛÉÛ€ËÈŒ€Š¥É¥­¥å¥á¥ó¥È¡ÊÍøÍÑ
16 *      ŒÔ¥Þ¥Ë¥å¥¢¥ë€Ê€É¡Ë€Ë¡€Ÿåµ­€ÎÃøºîž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­
17 *      €Î̵ÊÝŸÚµ¬Äê€ò·ÇºÜ€¹€ë€³€È¡¥
18 *  (3) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¡€µ¡Žï€ËÁȀ߹þ€à€Ê€É¡€ÂŸ€Î¥œ¥Õ¥È¥Š¥§¥¢³«È¯€Ë»È
19 *      Íрǀ­€Ê€€·Á€ÇºÆÇÛÉÛ€¹€ëŸì¹ç€Ë€Ï¡€Œ¡€Î€€€º€ì€«€ÎŸò·ï€òËþ€¿€¹€³
20 *      €È¡¥
21 *    (a) ºÆÇÛÉÛ€ËÈŒ€Š¥É¥­¥å¥á¥ó¥È¡ÊÍøÍьԥޥ˥奢¥ë€Ê€É¡Ë€Ë¡€Ÿåµ­€ÎÃø
22 *        ºîž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­€Î̵ÊÝŸÚµ¬Äê€ò·ÇºÜ€¹€ë€³€È¡¥
23 *    (b) ºÆÇÛÉۀηÁÂÖ€ò¡€ÊÌ€ËÄê€á€ëÊýË¡€Ë€è€Ã€Æ¡€TOPPERS¥×¥í¥ž¥§¥¯¥È€Ë
24 *        Êó¹ð€¹€ë€³€È¡¥
25 *  (4) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ÎÍøÍрˀè€êÄŸÀÜŪ€Þ€¿€ÏŽÖÀÜŪ€ËÀž€ž€ë€€€«€Ê€ë»
26 *      ³²€«€é€â¡€Ÿåµ­Ãøºîž¢ŒÔ€ª€è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€òÌÈÀÕ€¹€ë€³€È¡¥
27 *      €Þ€¿¡€ËÜ¥œ¥Õ¥È¥Š¥§¥¢€Î¥æ¡Œ¥¶€Þ€¿€Ï¥š¥ó¥É¥æ¡Œ¥¶€«€é€Î€€€«€Ê€ëÍý
28 *      ͳ€ËŽð€Å€¯ÀÁµá€«€é€â¡€Ÿåµ­Ãøºîž¢ŒÔ€ª€è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€ò
29 *      ÌÈÀÕ€¹€ë€³€È¡¥
30 *
31 *  ËÜ¥œ¥Õ¥È¥Š¥§¥¢€Ï¡€ÌµÊÝŸÚ€ÇÄó¶¡€µ€ì€Æ€€€ë€â€Î€Ç€¢€ë¡¥Ÿåµ­Ãøºîž¢ŒÔ€ª
32 *  €è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€Ï¡€ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ËŽØ€·€Æ¡€ÆÃÄê€Î»ÈÍÑÌÜŪ
33 *  €ËÂЀ¹€ëŬ¹çÀ­€âŽÞ€á€Æ¡€€€€«€Ê€ëÊÝŸÚ€â¹Ô€ï€Ê€€¡¥€Þ€¿¡€ËÜ¥œ¥Õ¥È¥Š¥§
34 *  ¥¢€ÎÍøÍрˀè€êÄŸÀÜŪ€Þ€¿€ÏŽÖÀÜŪ€ËÀž€ž€¿€€€«€Ê€ë»³²€ËŽØ€·€Æ€â¡€€œ
35 *  €ÎÀÕÇ€€òÉé€ï€Ê€€¡¥
36 *
37 *  $Id$
38 */
39
40/*
41 *              ¥ß¥å¡Œ¥Æ¥Ã¥¯¥¹€Î¥Æ¥¹¥È(3)
42 *
43 * ¡Ú¥Æ¥¹¥È€ÎÌÜŪ¡Û
44 *
45 *  Í¥ÀèÅÙŸåžÂ¥ß¥å¡Œ¥Æ¥Ã¥¯¥¹€ò¡€¥í¥Ã¥¯€¹€ëœèÍý€È¥í¥Ã¥¯²òœü€¹€ëœèÍý€ò°ì
46 *  ÄÌ€ê¥Æ¥¹¥È€¹€ë¡¥ref_tsk€Ë€è€ë¥Ù¡Œ¥¹Í¥ÀèÅـȞœºßÍ¥ÀèÅـλ²ŸÈœèÍý€Î¥Æ
47 *  ¥¹¥È€â·ó€Í€Æ€€€ë¡¥
48 *
49 * ¡Ú¥Æ¥¹¥È¹àÌÜ¡Û
50 *
51 *      (A) ¥ß¥å¡Œ¥Æ¥Ã¥¯¥¹€Î¥í¥Ã¥¯œèÍý¡Êloc_mtx¡Ë
52 *              (A-1) ¥í¥Ã¥¯€µ€ì€Æ€€€Ê€€Ÿì¹ç€Ë€Ï¡€€¹€°€Ë¥í¥Ã¥¯€Ç€­€ë€³€È
53 *              (A-2) ¿œÅ€Ë¥í¥Ã¥¯€·€è€Š€È€¹€ë€È¡€E_OBJ¥š¥é¡Œ€Ë€Ê€ë€³€È
54 *              (A-3) ¥í¥Ã¥¯€µ€ì€Æ€€€ëŸì¹ç€Ë€Ï¡€Í¥ÀèÅÙœç€ÇÂÔ€ÁŸõÂրˀʀ뀳€È
55 *      (B) ¥ß¥å¡Œ¥Æ¥Ã¥¯¥¹€Î¥í¥Ã¥¯²òœüœèÍý¡Êunl_mtx¡Ë
56 *              (B-1) Ÿ¥¿¥¹¥¯€¬¥í¥Ã¥¯€·€Æ€€€ë¥ß¥å¡Œ¥Æ¥Ã¥¯¥¹€ò²òÊü€·€è€Š€È€¹€ë€È
57 *              ¡¡¡¡¡¡E_OBJ¥š¥é¡Œ€Ë€Ê€ë€³€È
58 *              (B-2) ÂÔ€Á¥¿¥¹¥¯€¬€Ê€€€È¡€Ã±€Ë¥í¥Ã¥¯²òœü€¹€ë€³€È
59 *              (B-3) ÂÔ€Á¥¿¥¹¥¯€Ë¥í¥Ã¥¯€òÅÏ€¹€³€È
60 *              (B-4) ÂÔ€Á¥¿¥¹¥¯€Ë¥í¥Ã¥¯€òÅÏ€·€Æ¡€¥Ç¥£¥¹¥Ñ¥Ã¥Á€¬µ¯€³€ë€³€È
61 *      (C) ¥ß¥å¡Œ¥Æ¥Ã¥¯¥¹€Î¥í¥Ã¥¯œèÍý¡Êploc_mtx¡Ë
62 *              (C-1) ¥í¥Ã¥¯€µ€ì€Æ€€€ëŸì¹ç€Ë€Ï¡€€¹€°€ËE_TMOUT¥š¥é¡Œ€Ë€Ê€ë€³€È
63 *      (D) ¥ß¥å¡Œ¥Æ¥Ã¥¯¥¹€Î¥í¥Ã¥¯œèÍý¡Êtloc_mtx¡Ë
64 *              (D-1) ¥í¥Ã¥¯€µ€ì€Æ€€€ëŸì¹ç€Ë€Ï¡€¥¿¥€¥à¥¢¥Š¥ÈÉÕ€­€ÎÂÔ€ÁŸõÂրˀÊ
65 *              ¡¡¡¡¡¡€ë€³€È
66 *      (E) €ª€Þ€±
67 *              (E-1) ¥¿¥¹¥¯€òœªÎ»€¹€ë€È¡€¥ß¥å¡Œ¥Æ¥Ã¥¯¥¹€ò¥í¥Ã¥¯²òœü€¹€ë€³€È
68 *
69 * ¡Ú»ÈÍѥ꥜¡Œ¥¹¡Û
70 *
71 *      TASK1: ÄãÍ¥ÀèÅÙ¥¿¥¹¥¯¡€¥á¥€¥ó¥¿¥¹¥¯¡€ºÇœé€«€éµ¯Æ°
72 *      TASK2: ÃæÍ¥ÀèÅÙ¥¿¥¹¥¯
73 *      TASK3: ¹âÍ¥ÀèÅÙ¥¿¥¹¥¯
74 *      MTX1: ¥ß¥å¡Œ¥Æ¥Ã¥¯¥¹¡ÊTA_CEILING°À­¡€ŸåžÂ€Ï¹âÍ¥ÀèÅÙ¡Ë
75 *
76 * ¡Ú¥Æ¥¹¥È¥·¡Œ¥±¥ó¥¹¡Û
77 *
78 *      == TASK1¡ÊÍ¥ÀèÅÙ¡§Äã¡Ë==
79 *              call(set_bit_func(bit_mutex))
80 *      1:      ref_mtx(MTX1, &rmtx)
81 *              assert(rmtx.htskid == TSK_NONE)
82 *              assert(rmtx.wtskid == TSK_NONE)
83 *              loc_mtx(MTX1)                                   ... (A-1)
84 *      2:      ref_tsk(TASK1, &rtsk)
85 *              assert(rtsk.tskpri == HIGH_PRIORITY)
86 *              assert(rtsk.tskbpri == LOW_PRIORITY)
87 *              loc_mtx(MTX1) -> E_OBJ                  ... (A-2)
88 *      3:      ref_mtx(MTX1, &rmtx)
89 *              assert(rmtx.htskid == TASK1)
90 *              assert(rmtx.wtskid == TSK_NONE)
91 *              act_tsk(TASK2)
92 *      4:      tslp_tsk(10) -> E_TMOUT
93 *      == TASK2¡ÊÍ¥ÀèÅÙ¡§Ãæ¡Ë==
94 *      5:      ploc_mtx(MTX1) -> E_TMOUT               ... (C-1)
95 *              loc_mtx(MTX1)                                   ... (A-3)
96 *      == TASK1¡Ê³€­¡Ë==
97 *      6:      ref_mtx(MTX1, &rmtx)
98 *              assert(rmtx.htskid == TASK1)
99 *              assert(rmtx.wtskid == TASK2)
100 *              act_tsk(TASK3)
101 *      7:      tslp_tsk(10) -> E_TMOUT
102 *      == TASK3¡ÊÍ¥ÀèÅÙ¡§¹â¡Ë==
103 *      8:      unl_mtx(MTX1) -> E_OBJ                  ... (B-1)
104 *      9:      loc_mtx(MTX1)                                   ... (A-3)
105 *      == TASK1¡Ê³€­¡Ë==
106 *      10:     ref_mtx(MTX1, &rmtx)
107 *              assert(rmtx.htskid == TASK1)
108 *              assert(rmtx.wtskid == TASK3)
109 *              dis_dsp()
110 *              unl_mtx(MTX1)                                   ... (B-3)
111 *      11:     ref_tsk(TASK1, &rtsk)
112 *              assert(rtsk.tskpri == LOW_PRIORITY)
113 *              assert(rtsk.tskbpri == LOW_PRIORITY)
114 *              ref_mtx(MTX1, &rmtx)
115 *              assert(rmtx.htskid == TASK3)
116 *              assert(rmtx.wtskid == TASK2)
117 *              ena_dsp()
118 *      == TASK3¡Ê³€­¡Ë==
119 *      12:     ext_tsk() -> noreturn                   ... (E-1)
120 *      == TASK2¡Ê³€­¡Ë==
121 *      13:     ref_tsk(TASK2, &rtsk)
122 *              assert(rtsk.tskpri == HIGH_PRIORITY)
123 *              assert(rtsk.tskbpri == MID_PRIORITY)
124 *              unl_mtx(MTX1)                                   ... (B-4)
125 *      14:     loc_mtx(MTX1)
126 *      15:     slp_tsk()
127 *      == TASK1¡Ê³€­¡Ë==
128 *      16:     ref_mtx(MTX1, &rmtx)
129 *              assert(rmtx.htskid == TASK2)
130 *              assert(rmtx.wtskid == TSK_NONE)
131 *              tloc_mtx(MTX1, 10) -> E_TMOUT   ... (D-1)
132 *      17:     wup_tsk(TASK2)
133 *      == TASK2¡Ê³€­¡Ë==
134 *      18:     unl_mtx(MTX1)                                   ... (B-2)
135 *      19:     ext_tsk() -> noreturn
136 *      == TASK1¡Ê³€­¡Ë==
137 *      20:     END
138 */
139
140#include <kernel.h>
141#include <t_syslog.h>
142#include "kernel_cfg.h"
143#include "test_lib.h"
144#include "test_mutex.h"
145
146extern ER       bit_mutex(void);
147
148/* DO NOT DELETE THIS LINE -- gentest depends on it. */
149
150void
151task1(intptr_t exinf)
152{
153        ER_UINT ercd;
154        T_RTSK  rtsk;
155        T_RMTX  rmtx;
156
157        test_start(__FILE__);
158
159        set_bit_func(bit_mutex);
160
161        check_point(1);
162        ercd = ref_mtx(MTX1, &rmtx);
163        check_ercd(ercd, E_OK);
164
165        check_assert(rmtx.htskid == TSK_NONE);
166
167        check_assert(rmtx.wtskid == TSK_NONE);
168
169        ercd = loc_mtx(MTX1);
170        check_ercd(ercd, E_OK);
171
172        check_point(2);
173        ercd = ref_tsk(TASK1, &rtsk);
174        check_ercd(ercd, E_OK);
175
176        check_assert(rtsk.tskpri == HIGH_PRIORITY);
177
178        check_assert(rtsk.tskbpri == LOW_PRIORITY);
179
180        ercd = loc_mtx(MTX1);
181        check_ercd(ercd, E_OBJ);
182
183        check_point(3);
184        ercd = ref_mtx(MTX1, &rmtx);
185        check_ercd(ercd, E_OK);
186
187        check_assert(rmtx.htskid == TASK1);
188
189        check_assert(rmtx.wtskid == TSK_NONE);
190
191        ercd = act_tsk(TASK2);
192        check_ercd(ercd, E_OK);
193
194        check_point(4);
195        ercd = tslp_tsk(10);
196        check_ercd(ercd, E_TMOUT);
197
198        check_point(6);
199        ercd = ref_mtx(MTX1, &rmtx);
200        check_ercd(ercd, E_OK);
201
202        check_assert(rmtx.htskid == TASK1);
203
204        check_assert(rmtx.wtskid == TASK2);
205
206        ercd = act_tsk(TASK3);
207        check_ercd(ercd, E_OK);
208
209        check_point(7);
210        ercd = tslp_tsk(10);
211        check_ercd(ercd, E_TMOUT);
212
213        check_point(10);
214        ercd = ref_mtx(MTX1, &rmtx);
215        check_ercd(ercd, E_OK);
216
217        check_assert(rmtx.htskid == TASK1);
218
219        check_assert(rmtx.wtskid == TASK3);
220
221        ercd = dis_dsp();
222        check_ercd(ercd, E_OK);
223
224        ercd = unl_mtx(MTX1);
225        check_ercd(ercd, E_OK);
226
227        check_point(11);
228        ercd = ref_tsk(TASK1, &rtsk);
229        check_ercd(ercd, E_OK);
230
231        check_assert(rtsk.tskpri == LOW_PRIORITY);
232
233        check_assert(rtsk.tskbpri == LOW_PRIORITY);
234
235        ercd = ref_mtx(MTX1, &rmtx);
236        check_ercd(ercd, E_OK);
237
238        check_assert(rmtx.htskid == TASK3);
239
240        check_assert(rmtx.wtskid == TASK2);
241
242        ercd = ena_dsp();
243        check_ercd(ercd, E_OK);
244
245        check_point(16);
246        ercd = ref_mtx(MTX1, &rmtx);
247        check_ercd(ercd, E_OK);
248
249        check_assert(rmtx.htskid == TASK2);
250
251        check_assert(rmtx.wtskid == TSK_NONE);
252
253        ercd = tloc_mtx(MTX1, 10);
254        check_ercd(ercd, E_TMOUT);
255
256        check_point(17);
257        ercd = wup_tsk(TASK2);
258        check_ercd(ercd, E_OK);
259
260        check_finish(20);
261        check_point(0);
262}
263
264void
265task2(intptr_t exinf)
266{
267        ER_UINT ercd;
268        T_RTSK  rtsk;
269
270        check_point(5);
271        ercd = ploc_mtx(MTX1);
272        check_ercd(ercd, E_TMOUT);
273
274        ercd = loc_mtx(MTX1);
275        check_ercd(ercd, E_OK);
276
277        check_point(13);
278        ercd = ref_tsk(TASK2, &rtsk);
279        check_ercd(ercd, E_OK);
280
281        check_assert(rtsk.tskpri == HIGH_PRIORITY);
282
283        check_assert(rtsk.tskbpri == MID_PRIORITY);
284
285        ercd = unl_mtx(MTX1);
286        check_ercd(ercd, E_OK);
287
288        check_point(14);
289        ercd = loc_mtx(MTX1);
290        check_ercd(ercd, E_OK);
291
292        check_point(15);
293        ercd = slp_tsk();
294        check_ercd(ercd, E_OK);
295
296        check_point(18);
297        ercd = unl_mtx(MTX1);
298        check_ercd(ercd, E_OK);
299
300        check_point(19);
301        ercd = ext_tsk();
302
303        check_point(0);
304}
305
306void
307task3(intptr_t exinf)
308{
309        ER_UINT ercd;
310
311        check_point(8);
312        ercd = unl_mtx(MTX1);
313        check_ercd(ercd, E_OBJ);
314
315        check_point(9);
316        ercd = loc_mtx(MTX1);
317        check_ercd(ercd, E_OK);
318
319        check_point(12);
320        ercd = ext_tsk();
321
322        check_point(0);
323}
詳しい使い方は TracBrowser を参照してください。