source: anotherchoice/tags/jsp-1.4.4-full-UTF8/kernel/task_manage.c@ 26

Last change on this file since 26 was 26, checked in by ykominami, 10 years ago

initial

File size: 7.4 KB
Line 
1/*
2 * TOPPERS/JSP Kernel
3 * Toyohashi Open Platform for Embedded Real-Time Systems/
4 * Just Standard Profile Kernel
5 *
6 * Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
7 * Toyohashi Univ. of Technology, JAPAN
8 *
9 * 上記著作権者
10は,以下の (1)〜(4) の条件か,Free Software Foundation
11 * によってå…
12¬è¡¨ã•ã‚Œã¦ã„ã‚‹ GNU General Public License の Version 2 に記
13 * 述されている条件を満たす場合に限り,本ソフトウェア(本ソフトウェア
14 * を改変したものを含む.以下同じ)を使用・複製・改変・再é…
15å¸ƒï¼ˆä»¥ä¸‹ï¼Œ
16 * 利用と呼ぶ)することを無償で許諾する.
17 * (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作
18 * 権表示,この利用条件および下記の無保証規定が,そのままの形でソー
19 * スコード中に含まれていること.
20 * (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使
21 * 用できる形で再é…
22å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
23å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
24 * 者
25マニュアルなど)に,上記の著作権表示,この利用条件および下記
26 * の無保証規定を掲載すること.
27 * (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使
28 * 用できない形で再é…
29å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
30 * と.
31 * (a) 再é…
32å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
33マニュアルなど)に,上記の著
34 * 作権表示,この利用条件および下記の無保証規定を掲載すること.
35 * (b) 再é…
36å¸ƒã®å½¢æ…
37‹ã‚’,別に定める方法によって,TOPPERSプロジェクトに
38 * 報告すること.
39 * (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
40 * 害からも,上記著作権者
41およびTOPPERSプロジェクトをå…
42è²¬ã™ã‚‹ã“と.
43 *
44 * 本ソフトウェアは,無保証で提供されているものである.上記著作権者
45お
46 * よびTOPPERSプロジェクトは,本ソフトウェアに関して,その適用可能性も
47 * 含めて,いかなる保証も行わない.また,本ソフトウェアの利用により直
48 * 接的または間接的に生じたいかなる損害に関しても,その責任を負わない.
49 *
50 * @(#) $Id: task_manage.c,v 1.9 2007/04/22 18:04:06 hiro Exp $
51 */
52
53/*
54 * タスク管理機能
55 */
56
57#include "jsp_kernel.h"
58#include "check.h"
59#include "task.h"
60#include "wait.h"
61
62/*
63 * タスクの起動
64 */
65#ifdef __act_tsk
66
67SYSCALL ER
68act_tsk(ID tskid)
69{
70 TCB *tcb;
71 ER ercd;
72
73 LOG_ACT_TSK_ENTER(tskid);
74 CHECK_TSKCTX_UNL();
75 CHECK_TSKID_SELF(tskid);
76 tcb = get_tcb_self(tskid);
77
78 t_lock_cpu();
79 if (TSTAT_DORMANT(tcb->tstat)) {
80 if (make_active(tcb)) {
81 dispatch();
82 }
83 ercd = E_OK;
84 }
85 else if (!(tcb->actcnt)) {
86 tcb->actcnt = TRUE;
87 ercd = E_OK;
88 }
89 else {
90 ercd = E_QOVR;
91 }
92 t_unlock_cpu();
93
94 exit:
95 LOG_ACT_TSK_LEAVE(ercd);
96 return(ercd);
97}
98
99#endif /* __act_tsk */
100
101/*
102 * タスクの起動(非タスクコンテキスト用)
103 */
104#ifdef __iact_tsk
105
106SYSCALL ER
107iact_tsk(ID tskid)
108{
109 TCB *tcb;
110 ER ercd;
111
112 LOG_IACT_TSK_ENTER(tskid);
113 CHECK_INTCTX_UNL();
114 CHECK_TSKID(tskid);
115 tcb = get_tcb(tskid);
116
117 i_lock_cpu();
118 if (TSTAT_DORMANT(tcb->tstat)) {
119 if (make_active(tcb)) {
120 reqflg = TRUE;
121 }
122 ercd = E_OK;
123 }
124 else if (!(tcb->actcnt)) {
125 tcb->actcnt = TRUE;
126 ercd = E_OK;
127 }
128 else {
129 ercd = E_QOVR;
130 }
131 i_unlock_cpu();
132
133 exit:
134 LOG_IACT_TSK_LEAVE(ercd);
135 return(ercd);
136}
137
138#endif /* __iact_tsk */
139
140/*
141 * タスク起動要求のキャンセル
142 */
143#ifdef __can_act
144
145SYSCALL ER_UINT
146can_act(ID tskid)
147{
148 TCB *tcb;
149 ER_UINT ercd;
150
151 LOG_CAN_ACT_ENTER(tskid);
152 CHECK_TSKCTX_UNL();
153 CHECK_TSKID_SELF(tskid);
154 tcb = get_tcb_self(tskid);
155
156 t_lock_cpu();
157 ercd = tcb->actcnt ? 1 : 0;
158 tcb->actcnt = FALSE;
159 t_unlock_cpu();
160
161 exit:
162 LOG_CAN_ACT_LEAVE(ercd);
163 return(ercd);
164}
165
166#endif /* __can_act */
167
168/*
169 * 自タスクの終了
170 */
171#ifdef __ext_tsk
172
173SYSCALL void
174ext_tsk(void)
175{
176 LOG_EXT_TSK_ENTER();
177
178#ifdef ACTIVATED_STACK_SIZE
179 /*
180 * create_context と activate_context で,使用中のスタック領
181 * 域を破壊しないように,スタック上にダミー領域を確保する.
182 */
183 (void) alloca(ACTIVATED_STACK_SIZE);
184#endif /* ACTIVATED_STACK_SIZE */
185
186 if (sense_context()) {
187 /*
188 * 非タスクコンテキストから ext_tsk が呼ばれた場合,
189 * システムログにエラーを記録し,そのまま実行を続ける
190 * が, 動作は保証されない.
191 */
192 syslog_0(LOG_EMERG,
193 "ext_tsk is called from non-task contexts.");
194 }
195 if (sense_lock()) {
196 /*
197 * CPUロック状æ…
198‹ã§ ext_tsk が呼ばれた場合は,CPUロック
199 * を解除してからタスクを終了する.実装
200上は,サービス
201 * コール内
202でのCPUロックを省略すればよいだけ.
203 */
204 syslog_0(LOG_WARNING,
205 "ext_tsk is called from CPU locked state.");
206 }
207 else {
208 if (sense_context()) {
209 i_lock_cpu();
210 }
211 else {
212 t_lock_cpu();
213 }
214 }
215 if (!(enadsp)) {
216 /*
217 * ディスパッチ禁止状æ…
218‹ã§ ext_tsk が呼ばれた場合は,
219 * ディスパッチ許可状æ…
220‹ã«ã—てからタスクを終了する.
221 */
222 syslog_0(LOG_WARNING,
223 "ext_tsk is called from dispatch disabled state.");
224 enadsp = TRUE;
225 }
226 exit_task();
227}
228
229#endif /* __ext_tsk */
230
231/*
232 * タスクの強制終了
233 */
234#ifdef __ter_tsk
235
236SYSCALL ER
237ter_tsk(ID tskid)
238{
239 TCB *tcb;
240 UINT tstat;
241 ER ercd;
242
243 LOG_TER_TSK_ENTER(tskid);
244 CHECK_TSKCTX_UNL();
245 CHECK_TSKID(tskid);
246 tcb = get_tcb(tskid);
247 CHECK_NONSELF(tcb);
248
249 t_lock_cpu();
250 if (TSTAT_DORMANT(tstat = tcb->tstat)) {
251 ercd = E_OBJ;
252 }
253 else {
254 if (TSTAT_RUNNABLE(tstat)) {
255 make_non_runnable(tcb);
256 }
257 else if (TSTAT_WAITING(tstat)) {
258 wait_cancel(tcb);
259 }
260 make_dormant(tcb);
261 if (tcb->actcnt) {
262 tcb->actcnt = FALSE;
263 if (make_active(tcb)) {
264 dispatch();
265 }
266 }
267 ercd = E_OK;
268 }
269 t_unlock_cpu();
270
271 exit:
272 LOG_TER_TSK_LEAVE(ercd);
273 return(ercd);
274}
275
276#endif /* __ter_tsk */
277
278/*
279 * タスク優å…
280ˆåº¦ã®å¤‰æ›´
281 */
282#ifdef __chg_pri
283
284SYSCALL ER
285chg_pri(ID tskid, PRI tskpri)
286{
287 TCB *tcb;
288 UINT newpri;
289 UINT tstat;
290 ER ercd;
291
292 LOG_CHG_PRI_ENTER(tskid, tskpri);
293 CHECK_TSKCTX_UNL();
294 CHECK_TSKID_SELF(tskid);
295 CHECK_TPRI_INI(tskpri);
296 tcb = get_tcb_self(tskid);
297 newpri = (tskpri == TPRI_INI) ? tcb->tinib->ipriority
298 : INT_PRIORITY(tskpri);
299
300 t_lock_cpu();
301 if (TSTAT_DORMANT(tstat = tcb->tstat)) {
302 ercd = E_OBJ;
303 }
304 else if (TSTAT_RUNNABLE(tstat)) {
305 if (change_priority(tcb, newpri)) {
306 dispatch();
307 }
308 ercd = E_OK;
309 }
310 else {
311 tcb->priority = newpri;
312 if ((tstat & TS_WAIT_WOBJCB) != 0) {
313 wobj_change_priority(((WINFO_WOBJ *)(tcb->winfo))
314 ->wobjcb, tcb);
315 }
316 ercd = E_OK;
317 }
318 t_unlock_cpu();
319
320 exit:
321 LOG_CHG_PRI_LEAVE(ercd);
322 return(ercd);
323}
324
325#endif /* __chg_pri */
326
327/*
328 * タスク優å…
329ˆåº¦ã®å‚ç…
330§
331 */
332#ifdef __get_pri
333
334SYSCALL ER
335get_pri(ID tskid, PRI *p_tskpri)
336{
337 TCB *tcb;
338 ER ercd;
339
340 LOG_GET_PRI_ENTER(tskid, p_tskpri);
341 CHECK_TSKCTX_UNL();
342 CHECK_TSKID_SELF(tskid);
343 tcb = get_tcb_self(tskid);
344
345 t_lock_cpu();
346 if (TSTAT_DORMANT(tcb->tstat)) {
347 ercd = E_OBJ;
348 }
349 else {
350 *p_tskpri = EXT_TSKPRI(tcb->priority);
351 ercd = E_OK;
352 }
353 t_unlock_cpu();
354
355 exit:
356 LOG_GET_PRI_LEAVE(ercd, *p_tskpri);
357 return(ercd);
358}
359
360#endif /* __get_pri */
Note: See TracBrowser for help on using the repository browser.