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

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

initial

File size: 4.8 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_except.c,v 1.8 2003/06/04 01:46:16 hiro Exp $
51 */
52
53/*
54 * タスク例外処理機能
55 */
56
57#include "jsp_kernel.h"
58#include "check.h"
59#include "task.h"
60
61/*
62 * タスク例外処理の要求
63 */
64#ifdef __ras_tex
65
66SYSCALL ER
67ras_tex(ID tskid, TEXPTN rasptn)
68{
69 TCB *tcb;
70 ER ercd;
71
72 LOG_RAS_TEX_ENTER(tskid, rasptn);
73 CHECK_TSKCTX_UNL();
74 CHECK_TSKID_SELF(tskid);
75 CHECK_PAR(rasptn != 0);
76 tcb = get_tcb_self(tskid);
77
78 t_lock_cpu();
79 if (TSTAT_DORMANT(tcb->tstat) || tcb->tinib->texrtn == NULL) {
80 ercd = E_OBJ;
81 }
82 else {
83 tcb->texptn |= rasptn;
84 if (tcb == runtsk && runtsk->enatex) {
85 call_texrtn();
86 }
87 ercd = E_OK;
88 }
89 t_unlock_cpu();
90
91 exit:
92 LOG_RAS_TEX_LEAVE(ercd);
93 return(ercd);
94}
95
96#endif /* __ras_tex */
97
98/*
99 * タスク例外処理の要求(非タスクコンテキスト用)
100 */
101#ifdef __iras_tex
102
103SYSCALL ER
104iras_tex(ID tskid, TEXPTN rasptn)
105{
106 TCB *tcb;
107 ER ercd;
108
109 LOG_IRAS_TEX_ENTER(tskid, rasptn);
110 CHECK_INTCTX_UNL();
111 CHECK_TSKID(tskid);
112 CHECK_PAR(rasptn != 0);
113 tcb = get_tcb(tskid);
114
115 i_lock_cpu();
116 if (TSTAT_DORMANT(tcb->tstat) || tcb->tinib->texrtn == NULL) {
117 ercd = E_OBJ;
118 }
119 else {
120 tcb->texptn |= rasptn;
121 if (tcb == runtsk && runtsk->enatex) {
122 reqflg = TRUE;
123 }
124 ercd = E_OK;
125 }
126 i_unlock_cpu();
127
128 exit:
129 LOG_IRAS_TEX_LEAVE(ercd);
130 return(ercd);
131}
132
133#endif /* __iras_tex */
134
135/*
136 * タスク例外処理の禁止
137 */
138#ifdef __dis_tex
139
140SYSCALL ER
141dis_tex()
142{
143 ER ercd;
144
145 LOG_DIS_TEX_ENTER();
146 CHECK_TSKCTX_UNL();
147
148 t_lock_cpu();
149 if (runtsk->tinib->texrtn == NULL) {
150 ercd = E_OBJ;
151 }
152 else {
153 runtsk->enatex = FALSE;
154 ercd = E_OK;
155 }
156 t_unlock_cpu();
157
158 exit:
159 LOG_DIS_TEX_LEAVE(ercd);
160 return(ercd);
161}
162
163#endif /* __dis_tex */
164
165/*
166 * タスク例外処理の許可
167 */
168#ifdef __ena_tex
169
170SYSCALL ER
171ena_tex()
172{
173 ER ercd;
174
175 LOG_ENA_TEX_ENTER();
176 CHECK_TSKCTX_UNL();
177
178 t_lock_cpu();
179 if (runtsk->tinib->texrtn == NULL) {
180 ercd = E_OBJ;
181 }
182 else {
183 runtsk->enatex = TRUE;
184 if (runtsk->texptn != 0) {
185 call_texrtn();
186 }
187 ercd = E_OK;
188 }
189 t_unlock_cpu();
190
191 exit:
192 LOG_ENA_TEX_LEAVE(ercd);
193 return(ercd);
194}
195
196#endif /* __ena_tex */
197
198/*
199 * タスク例外処理禁止状æ…
200‹ã®å‚ç…
201§
202 */
203#ifdef __sns_tex
204
205SYSCALL BOOL
206sns_tex()
207{
208 BOOL state;
209
210 LOG_SNS_TEX_ENTER();
211 state = (runtsk != NULL && runtsk->enatex) ? FALSE : TRUE;
212 LOG_SNS_TEX_LEAVE(state);
213 return(state);
214}
215
216#endif /* __sns_tex */
Note: See TracBrowser for help on using the repository browser.