source: asp3_wo_tecs/trunk/kernel/task_term.c@ 302

Last change on this file since 302 was 302, checked in by ertl-honda, 7 years ago

TECSレスのASP3の開発のため以下のtrunkからコピー
​http://dev.toppers.jp/svn/asp3/branches/WO_TECS-3.C.0
File size: 8.3 KB
Line 
1/*
2 * TOPPERS/ASP Kernel
3 * Toyohashi Open Platform for Embedded Real-Time Systems/
4 * Advanced Standard Profile Kernel
5 *
6 * Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
7 * Toyohashi Univ. of Technology, JAPAN
8 * Copyright (C) 2005-2014 by Embedded and Real-Time Systems Laboratory
9 * Graduate School of Information Science, Nagoya Univ., JAPAN
10 *
11 * 上記著作権者
12は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
13 * ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
14 * 変・再é…
15å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
16 * (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
17 * 権表示，この利用条件および下記の無保証規定が，そのままの形でソー
18 * スコード中に含まれていること．
19 * (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
20 * 用できる形で再é…
21å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
22å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
23 * 者
24マニュアルなど）に，上記の著作権表示，この利用条件および下記
25 * の無保証規定を掲載すること．
26 * (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
27 * 用できない形で再é…
28å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
29 * と．
30 * (a) 再é…
31å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
32マニュアルなど）に，上記の著
33 * 作権表示，この利用条件および下記の無保証規定を掲載すること．
34 * (b) 再é…
35å¸ƒã®å½¢æ…
36‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
37 * 報告すること．
38 * (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
39 * 害からも，上記著作権者
40およびTOPPERSプロジェクトをå…
41è²¬ã™ã‚‹ã“と．
42 * また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
43 * 由に基づく請求からも，上記著作権者
44およびTOPPERSプロジェクトを
45 * å…
46è²¬ã™ã‚‹ã“と．
47 *
48 * 本ソフトウェアは，無保証で提供されているものである．上記著作権者
49お
50 * よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
51 * に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
52 * アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
53 * の責任を負わない．
54 *
55 * $Id: task_term.c 275 2014-11-03 14:26:05Z ertl-hiro $
56 */
57
58/*
59 * タスク終了機能
60 */
61
62#include "kernel_impl.h"
63#include "check.h"
64#include "task.h"
65#include "wait.h"
66
67/*
68 * トレースログマクロのデフォルト定義
69 */
70#ifndef LOG_EXT_TSK_ENTER
71#define LOG_EXT_TSK_ENTER()
72#endif /* LOG_EXT_TSK_ENTER */
73
74#ifndef LOG_EXT_TSK_LEAVE
75#define LOG_EXT_TSK_LEAVE(ercd)
76#endif /* LOG_EXT_TSK_LEAVE */
77
78#ifndef LOG_RAS_TER_ENTER
79#define LOG_RAS_TER_ENTER(tskid)
80#endif /* LOG_RAS_TER_ENTER */
81
82#ifndef LOG_RAS_TER_LEAVE
83#define LOG_RAS_TER_LEAVE(ercd)
84#endif /* LOG_RAS_TER_LEAVE */
85
86#ifndef LOG_DIS_TER_ENTER
87#define LOG_DIS_TER_ENTER()
88#endif /* LOG_DIS_TER_ENTER */
89
90#ifndef LOG_DIS_TER_LEAVE
91#define LOG_DIS_TER_LEAVE(ercd)
92#endif /* LOG_DIS_TER_LEAVE */
93
94#ifndef LOG_ENA_TER_ENTER
95#define LOG_ENA_TER_ENTER()
96#endif /* LOG_ENA_TER_ENTER */
97
98#ifndef LOG_ENA_TER_LEAVE
99#define LOG_ENA_TER_LEAVE(ercd)
100#endif /* LOG_ENA_TER_LEAVE */
101
102#ifndef LOG_SNS_TER_ENTER
103#define LOG_SNS_TER_ENTER()
104#endif /* LOG_SNS_TER_ENTER */
105
106#ifndef LOG_SNS_TER_LEAVE
107#define LOG_SNS_TER_LEAVE(state)
108#endif /* LOG_SNS_TER_LEAVE */
109
110#ifndef LOG_TER_TSK_ENTER
111#define LOG_TER_TSK_ENTER(tskid)
112#endif /* LOG_TER_TSK_ENTER */
113
114#ifndef LOG_TER_TSK_LEAVE
115#define LOG_TER_TSK_LEAVE(ercd)
116#endif /* LOG_TER_TSK_LEAVE */
117
118/*
119 * 自タスクの終了［NGKI1162］
120 */
121#ifdef TOPPERS_ext_tsk
122
123ER
124ext_tsk(void)
125{
126 PRI intpri;
127 ER ercd;
128
129 LOG_EXT_TSK_ENTER();
130 CHECK_TSKCTX(); /*ï¼»NGKI1164ï¼½*/
131
132 if (sense_lock()) {
133 /*
134 * CPUロック状æ…
135‹ã§ext_tskが呼ばれた場合は，CPUロックを解除し
136 * てからタスクを終了する．実装
137上は，サービスコール内
138でのCPU
139 * ロックを省略すればよいだけ．［NGKI1168］
140 */
141 }
142 else {
143 lock_cpu();
144 }
145
146 intpri = t_get_ipm();
147 if (!enadsp || intpri != TIPM_ENAALL) {
148 if (!enadsp) {
149 /*
150 * ディスパッチ禁止状æ…
151‹ã§ext_tskが呼ばれた場合は，ディスパッ
152 * チ許可状æ…
153‹ã«ã—てからタスクを終了する．［NGKI1168ï¼½
154 */
155 enadsp = true;
156 }
157 if (intpri != TIPM_ENAALL) {
158 /*
159 * 割込み優å…
160ˆåº¦ãƒžã‚¹ã‚¯ï¼ˆIPM）がTIPM_ENAALL以外の状æ…
161‹ã§
162 * ext_tskが呼ばれた場合は，IPMをTIPM_ENAALLにしてからタス
163 * クを終了する．［NGKI1168］
164 */
165 t_set_ipm(TIPM_ENAALL);
166 }
167 dspflg = true;
168 p_schedtsk = search_schedtsk();
169 }
170
171 task_terminate(p_runtsk); /* ï¼»NGKI3449ï¼½*/
172 exit_and_dispatch(); /* ï¼»NGKI1169ï¼½*/
173 ercd = E_SYS; /* ï¼»NGKI1163ï¼½*/
174
175 error_exit:
176 LOG_EXT_TSK_LEAVE(ercd);
177 return(ercd);
178}
179
180#endif /* TOPPERS_ext_tsk */
181
182/*
183 * タスクの終了要求［NGKI3469］
184 */
185#ifdef TOPPERS_ras_ter
186
187ER
188ras_ter(ID tskid)
189{
190 TCB *p_tcb;
191 ER ercd;
192
193 LOG_RAS_TER_ENTER(tskid);
194 CHECK_TSKCTX_UNL(); /*［NGKI3470］［NGKI3471］*/
195 CHECK_ID(VALID_TSKID(tskid)); /*ï¼»NGKI3472ï¼½*/
196 p_tcb = get_tcb(tskid);
197 CHECK_ILUSE(p_tcb != p_runtsk); /*ï¼»NGKI3475ï¼½*/
198
199 lock_cpu();
200 if (TSTAT_DORMANT(p_tcb->tstat)) {
201 ercd = E_OBJ; /*ï¼»NGKI3476ï¼½*/
202 }
203 else if (p_tcb->enater) {
204 task_terminate(p_tcb); /*ï¼»NGKI3477ï¼½*/
205 if (p_runtsk != p_schedtsk) {
206 dispatch();
207 }
208 ercd = E_OK;
209 }
210 else {
211 p_tcb->raster = true; /*ï¼»NGKI3478ï¼½*/
212 if (!TSTAT_RUNNABLE(p_tcb->tstat)) {
213 if (TSTAT_WAITING(p_tcb->tstat)) {
214 wait_dequeue_wobj(p_tcb); /*ï¼»NGKI3479ï¼½*/
215 wait_dequeue_tmevtb(p_tcb);
216 p_tcb->p_winfo->wercd = E_RASTER; /*ï¼»NGKI3480ï¼½*/
217 }
218 p_tcb->tstat = TS_RUNNABLE; /*ï¼»NGKI3606ï¼½*/
219 LOG_TSKSTAT(p_tcb);
220 make_runnable(p_tcb);
221 if (p_runtsk != p_schedtsk) {
222 dispatch();
223 }
224 }
225 ercd = E_OK;
226 }
227 unlock_cpu();
228
229 error_exit:
230 LOG_RAS_TER_LEAVE(ercd);
231 return(ercd);
232}
233
234#endif /* TOPPERS_ras_ter */
235
236/*
237 * タスク終了の禁止［NGKI3482］
238 */
239#ifdef TOPPERS_dis_ter
240
241ER
242dis_ter(void)
243{
244 ER ercd;
245
246 LOG_DIS_TER_ENTER();
247 CHECK_TSKCTX_UNL(); /*［NGKI3483］［NGKI3484］*/
248
249 lock_cpu();
250 p_runtsk->enater = false; /*ï¼»NGKI3486ï¼½*/
251 ercd = E_OK;
252 unlock_cpu();
253
254 error_exit:
255 LOG_DIS_TER_LEAVE(ercd);
256 return(ercd);
257}
258
259#endif /* TOPPERS_dis_ter */
260
261/*
262 * タスク終了の許可［NGKI3487］
263 */
264#ifdef TOPPERS_ena_ter
265
266ER
267ena_ter(void)
268{
269 ER ercd;
270
271 LOG_ENA_TER_ENTER();
272 CHECK_TSKCTX_UNL(); /*［NGKI3488］［NGKI3489］*/
273
274 lock_cpu();
275 if (p_runtsk->raster && dspflg) {
276 task_terminate(p_runtsk);
277 exit_and_dispatch();
278 ercd = E_SYS;
279 }
280 else {
281 p_runtsk->enater = true; /*ï¼»NGKI3491ï¼½*/
282 ercd = E_OK;
283 }
284 unlock_cpu();
285
286 error_exit:
287 LOG_ENA_TER_LEAVE(ercd);
288 return(ercd);
289}
290
291#endif /* TOPPERS_ena_ter */
292
293/*
294 * タスク終了禁止状æ…
295‹ã®å‚ç…
296§ï¼»NGKI3494ï¼½
297 */
298#ifdef TOPPERS_sns_ter
299
300bool_t
301sns_ter(void)
302{
303 bool_t state;
304
305 LOG_SNS_TER_ENTER();
306 /*
307 * enaterを変更できるのは自タスクのみであるため，排他制御せずに読
308 * んでも問題ない．
309 */
310 state = (p_runtsk != NULL && p_runtsk->enater) ? false : true;
311 /*［NGKI3495］［NGKI3496］*/
312 LOG_SNS_TER_LEAVE(state);
313 return(state);
314}
315
316#endif /* TOPPERS_sns_ter */
317
318/*
319 * タスクの強制終了［NGKI1170］
320 */
321#ifdef TOPPERS_ter_tsk
322
323ER
324ter_tsk(ID tskid)
325{
326 TCB *p_tcb;
327 ER ercd;
328
329 LOG_TER_TSK_ENTER(tskid);
330 CHECK_TSKCTX_UNL(); /*［NGKI1171］［NGKI1172］*/
331 CHECK_ID(VALID_TSKID(tskid)); /*ï¼»NGKI1173ï¼½*/
332 p_tcb = get_tcb(tskid);
333 CHECK_ILUSE(p_tcb != p_runtsk); /*ï¼»NGKI1176ï¼½*/
334
335 lock_cpu();
336 if (TSTAT_DORMANT(p_tcb->tstat)) {
337 ercd = E_OBJ; /*ï¼»NGKI1177ï¼½*/
338 }
339 else {
340 task_terminate(p_tcb); /*ï¼»NGKI3450ï¼½*/
341 if (p_runtsk != p_schedtsk) {
342 dispatch();
343 }
344 ercd = E_OK;
345 }
346 unlock_cpu();
347
348 error_exit:
349 LOG_TER_TSK_LEAVE(ercd);
350 return(ercd);
351}
352
353#endif /* TOPPERS_ter_tsk */
Note: See TracBrowser for help on using the repository browser.