source: azure_iot_hub/trunk/asp3_dcre/kernel/task_term.c@ 388

Last change on this file since 388 was 388, checked in by coas-nagasima, 5 years ago

Azure IoT Hub Device C SDK を使ったサンプルの追加
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
  • Property svn:mime-type set to text/x-csrc
File size: 8.5 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 388 2019-05-22 11:25:18Z coas-nagasima $
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 (p_tcb->p_tinib->tskatr == TA_NOEXS) {
201 ercd = E_NOEXS; /*ï¼»NGKI3473ï¼½*/
202 }
203 else if (TSTAT_DORMANT(p_tcb->tstat)) {
204 ercd = E_OBJ; /*ï¼»NGKI3476ï¼½*/
205 }
206 else if (p_tcb->enater) {
207 task_terminate(p_tcb); /*ï¼»NGKI3477ï¼½*/
208 if (p_runtsk != p_schedtsk) {
209 dispatch();
210 }
211 ercd = E_OK;
212 }
213 else {
214 p_tcb->raster = true; /*ï¼»NGKI3478ï¼½*/
215 if (!TSTAT_RUNNABLE(p_tcb->tstat)) {
216 if (TSTAT_WAITING(p_tcb->tstat)) {
217 wait_dequeue_wobj(p_tcb); /*ï¼»NGKI3479ï¼½*/
218 wait_dequeue_tmevtb(p_tcb);
219 p_tcb->p_winfo->wercd = E_RASTER; /*ï¼»NGKI3480ï¼½*/
220 }
221 p_tcb->tstat = TS_RUNNABLE; /*ï¼»NGKI3606ï¼½*/
222 LOG_TSKSTAT(p_tcb);
223 make_runnable(p_tcb);
224 if (p_runtsk != p_schedtsk) {
225 dispatch();
226 }
227 }
228 ercd = E_OK;
229 }
230 unlock_cpu();
231
232 error_exit:
233 LOG_RAS_TER_LEAVE(ercd);
234 return(ercd);
235}
236
237#endif /* TOPPERS_ras_ter */
238
239/*
240 * タスク終了の禁止［NGKI3482］
241 */
242#ifdef TOPPERS_dis_ter
243
244ER
245dis_ter(void)
246{
247 ER ercd;
248
249 LOG_DIS_TER_ENTER();
250 CHECK_TSKCTX_UNL(); /*［NGKI3483］［NGKI3484］*/
251
252 lock_cpu();
253 p_runtsk->enater = false; /*ï¼»NGKI3486ï¼½*/
254 ercd = E_OK;
255 unlock_cpu();
256
257 error_exit:
258 LOG_DIS_TER_LEAVE(ercd);
259 return(ercd);
260}
261
262#endif /* TOPPERS_dis_ter */
263
264/*
265 * タスク終了の許可［NGKI3487］
266 */
267#ifdef TOPPERS_ena_ter
268
269ER
270ena_ter(void)
271{
272 ER ercd;
273
274 LOG_ENA_TER_ENTER();
275 CHECK_TSKCTX_UNL(); /*［NGKI3488］［NGKI3489］*/
276
277 lock_cpu();
278 if (p_runtsk->raster && dspflg) {
279 task_terminate(p_runtsk);
280 exit_and_dispatch();
281 ercd = E_SYS;
282 }
283 else {
284 p_runtsk->enater = true; /*ï¼»NGKI3491ï¼½*/
285 ercd = E_OK;
286 }
287 unlock_cpu();
288
289 error_exit:
290 LOG_ENA_TER_LEAVE(ercd);
291 return(ercd);
292}
293
294#endif /* TOPPERS_ena_ter */
295
296/*
297 * タスク終了禁止状æ…
298‹ã®å‚ç…
299§ï¼»NGKI3494ï¼½
300 */
301#ifdef TOPPERS_sns_ter
302
303bool_t
304sns_ter(void)
305{
306 bool_t state;
307
308 LOG_SNS_TER_ENTER();
309 /*
310 * enaterを変更できるのは自タスクのみであるため，排他制御せずに読
311 * んでも問題ない．
312 */
313 state = (p_runtsk != NULL && p_runtsk->enater) ? false : true;
314 /*［NGKI3495］［NGKI3496］*/
315 LOG_SNS_TER_LEAVE(state);
316 return(state);
317}
318
319#endif /* TOPPERS_sns_ter */
320
321/*
322 * タスクの強制終了［NGKI1170］
323 */
324#ifdef TOPPERS_ter_tsk
325
326ER
327ter_tsk(ID tskid)
328{
329 TCB *p_tcb;
330 ER ercd;
331
332 LOG_TER_TSK_ENTER(tskid);
333 CHECK_TSKCTX_UNL(); /*［NGKI1171］［NGKI1172］*/
334 CHECK_ID(VALID_TSKID(tskid)); /*ï¼»NGKI1173ï¼½*/
335 p_tcb = get_tcb(tskid);
336 CHECK_ILUSE(p_tcb != p_runtsk); /*ï¼»NGKI1176ï¼½*/
337
338 lock_cpu();
339 if (p_tcb->p_tinib->tskatr == TA_NOEXS) {
340 ercd = E_NOEXS; /*ï¼»NGKI1174ï¼½*/
341 }
342 else if (TSTAT_DORMANT(p_tcb->tstat)) {
343 ercd = E_OBJ; /*ï¼»NGKI1177ï¼½*/
344 }
345 else {
346 task_terminate(p_tcb); /*ï¼»NGKI3450ï¼½*/
347 if (p_runtsk != p_schedtsk) {
348 dispatch();
349 }
350 ercd = E_OK;
351 }
352 unlock_cpu();
353
354 error_exit:
355 LOG_TER_TSK_LEAVE(ercd);
356 return(ercd);
357}
358
359#endif /* TOPPERS_ter_tsk */
Note: See TracBrowser for help on using the repository browser.