Context Navigation

event.c

Last change on this file was 172, checked in by ertl-ishikawa, 8 years ago
ATK2-SC3 1.4.0 RH850依存部非信頼C2ISR対応を追加
Property svn:executable set to ``*
File size: 10.3 KB

Line
1	/*
2	* TOPPERS ATK2
3	* Toyohashi Open Platform for Embedded Real-Time Systems
4	* Automotive Kernel Version 2
5	*
6	* Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
7	* Toyohashi Univ. of Technology, JAPAN
8	* Copyright (C) 2004-2015 by Center for Embedded Computing Systems
9	* Graduate School of Information Science, Nagoya Univ., JAPAN
10	* Copyright (C) 2011-2015 by FUJI SOFT INCORPORATED, JAPAN
11	* Copyright (C) 2011-2013 by Spansion LLC, USA
12	* Copyright (C) 2011-2015 by NEC Communication Systems, Ltd., JAPAN
13	* Copyright (C) 2011-2015 by Panasonic Advanced Technology Development Co., Ltd., JAPAN
14	* Copyright (C) 2011-2014 by Renesas Electronics Corporation, JAPAN
15	* Copyright (C) 2011-2015 by Sunny Giken Inc., JAPAN
16	* Copyright (C) 2011-2015 by TOSHIBA CORPORATION, JAPAN
17	* Copyright (C) 2004-2015 by Witz Corporation
18	* Copyright (C) 2014-2015 by AISIN COMCRUISE Co., Ltd., JAPAN
19	* Copyright (C) 2014-2015 by eSOL Co.,Ltd., JAPAN
20	* Copyright (C) 2014-2015 by SCSK Corporation, JAPAN
21	* Copyright (C) 2015 by SUZUKI MOTOR CORPORATION
22	*
23	* ä¸è¨èä½æ¨©è
24	ã¯ï¼ä»¥ä¸ã®(1)ã(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§
25	* ã¢ï¼æ¬ã½ããã¦ã§ã¢ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ãä½¿ç¨ã»è¤è£½ã»æ¹
26	* å¤ã»åé
27	å¸ï¼ä»¥ä¸ï¼å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
28	* (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
29	* æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
30	* ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
31	* (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
32	* ç¨ã§ããå½¢ã§åé
33	å¸ããå ´åã«ã¯ï¼åé
34	å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
35	* è
36	ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
37	* ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
38	* (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
39	* ç¨ã§ããªãå½¢ã§åé
40	å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã
41	* ã¨ï¼
42	* (a) åé
43	å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
44	ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
45	* ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
46	* (b) åé
47	å¸ã®å½¢æ
48	ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã«
49	* å ±åãããã¨ï¼
50	* (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
51	* å®³ãããï¼ä¸è¨èä½æ¨©è
52	ããã³TOPPERSããã¸ã§ã¯ããå
53	è²¬ãããã¨ï¼
54	* ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®ã¦ã¼ã¶ã¾ãã¯ã¨ã³ãã¦ã¼ã¶ããã®ãããªãç
55	* ç±ã«åºã¥ãè«æ±ãããï¼ä¸è¨èä½æ¨©è
56	ããã³TOPPERSããã¸ã§ã¯ãã
57	* å
58	è²¬ãããã¨ï¼
59	*
60	* æ¬ã½ããã¦ã§ã¢ã¯ï¼AUTOSARï¼AUTomotive Open System ARchitectureï¼ä»
61	* æ§ã«åºã¥ãã¦ããï¼ä¸è¨ã®è¨±è«¾ã¯ï¼AUTOSARã®ç¥çè²¡ç£æ¨©ãè¨±è«¾ãããã®ã§
62	* ã¯ãªãï¼AUTOSARã¯ï¼AUTOSARä»æ§ã«åºã¥ããã½ããã¦ã§ã¢ãåç¨ç®çã§å©
63	* ç¨ããè
64	ã«å¯¾ãã¦ï¼AUTOSARãã¼ããã¼ã«ãªããã¨ãæ±ãã¦ããï¼
65	*
66	* æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
67	ã
68	* ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ç¹å®ã®ä½¿ç¨ç®ç
69	* ã«å¯¾ããé©åæ§ãå«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§
70	* ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæå®³ã«é¢ãã¦ãï¼ã
71	* ã®è²¬ä»»ãè² ããªãï¼
72	*
73	* $Id: event.c 425 2015-12-07 08:06:19Z witz-itoyo $
74	*/
75
76	/*
77	* ã¤ãã³ãç®¡çã¢ã¸ã¥ã¼ã«
78	*/
79
80	#include "kernel_impl.h"
81	#include "check.h"
82	#include "task.h"
83
84	/*
85	* ãã¬ã¼ã¹ãã°ãã¯ãã®ããã©ã«ãå®ç¾©
86	*/
87	#ifndef LOG_TSKSTAT
88	#define LOG_TSKSTAT(p_tcb)
89	#endif /* LOG_TSKSTAT */
90
91	#ifndef LOG_SETEVT_ENTER
92	#define LOG_SETEVT_ENTER(tskid, mask)
93	#endif /* LOG_SETEVT_ENTER */
94
95	#ifndef LOG_SETEVT_LEAVE
96	#define LOG_SETEVT_LEAVE(ercd)
97	#endif /* LOG_SETEVT_LEAVE */
98
99	#ifndef LOG_CLREVT_ENTER
100	#define LOG_CLREVT_ENTER(p_runtsk, mask)
101	#endif /* LOG_CLREVT_ENTER */
102
103	#ifndef LOG_CLREVT_LEAVE
104	#define LOG_CLREVT_LEAVE(ercd)
105	#endif /* LOG_CLREVT_LEAVE */
106
107	#ifndef LOG_GETEVT_ENTER
108	#define LOG_GETEVT_ENTER(tskid)
109	#endif /* LOG_GETEVT_ENTER */
110
111	#ifndef LOG_GETEVT_LEAVE
112	#define LOG_GETEVT_LEAVE(ercd, tskid, p_mask)
113	#endif /* LOG_GETEVT_LEAVE */
114
115	#ifndef LOG_WAIEVT_ENTER
116	#define LOG_WAIEVT_ENTER(p_runtsk, mask)
117	#endif /* LOG_WAIEVT_ENTER */
118
119	#ifndef LOG_WAIEVT_LEAVE
120	#define LOG_WAIEVT_LEAVE(ercd)
121	#endif /* LOG_WAIEVT_LEAVE */
122
123	/*
124	* ã¤ãã³ãã®ã»ãã
125	*/
126	#ifdef TOPPERS_SetEvent
127
128	StatusType
129	SetEvent(TaskType TaskID, EventMaskType Mask)
130	{
131	StatusType ercd = E_OK;
132	TCB *p_tcb;
133	OSAPCB *p_osapcb;
134
135	LOG_SETEVT_ENTER(TaskID, Mask);
136	CHECK_DISABLEDINT();
137	CHECK_CALLEVEL(CALLEVEL_SETEVENT);
138	CHECK_ID(TaskID < tnum_task);
139	CHECK_ACCESS(TaskID < tnum_exttask);
140	p_tcb = get_tcb(TaskID);
141	CHECK_RIGHT(p_tcb->p_tinib->acsbtmp);
142
143	p_osapcb = p_tcb->p_tinib->p_osapcb;
144	x_nested_lock_os_int();
145
146	/* ã¿ã¹ã¯æå±ã®OSAPã®ç¶æ
147	ããã§ãã¯ */
148	D_CHECK_ACCESS((p_osapcb->osap_stat == APPLICATION_ACCESSIBLE) \|\|
149	(p_osapcb == p_runosap));
150	D_CHECK_STATE(p_tcb->tstat != SUSPENDED);
151
152	p_tcb->curevt \|= Mask;
153	if ((p_tcb->curevt & p_tcb->waievt) != EVTMASK_NONE) {
154	p_tcb->waievt = EVTMASK_NONE;
155	if ((make_runnable(p_tcb) != FALSE) && (callevel_stat == TCL_TASK)) {
156	dispatch();
157	}
158	}
159
160	d_exit_no_errorhook:
161	x_nested_unlock_os_int();
162	exit_no_errorhook:
163	LOG_SETEVT_LEAVE(ercd);
164	return(ercd);
165
166	#ifdef CFG_USE_ERRORHOOK
167	exit_errorhook:
168	x_nested_lock_os_int();
169	d_exit_errorhook:
170	#ifdef CFG_USE_PARAMETERACCESS
171	_errorhook_par1.tskid = TaskID;
172	_errorhook_par2.mask = Mask;
173	#endif /* CFG_USE_PARAMETERACCESS */
174	call_errorhook(ercd, OSServiceId_SetEvent);
175	goto d_exit_no_errorhook;
176	#endif /* CFG_USE_ERRORHOOK */
177	}
178
179	#endif /* TOPPERS_SetEvent */
180
181	/*
182	* ã¤ãã³ãã®ã¯ãªã¢
183	*/
184	#ifdef TOPPERS_ClearEvent
185
186	StatusType
187	ClearEvent(EventMaskType Mask)
188	{
189	StatusType ercd = E_OK;
190
191	LOG_CLREVT_ENTER(p_runtsk, Mask);
192	CHECK_DISABLEDINT();
193	CHECK_CALLEVEL(CALLEVEL_CLEAREVENT);
194	CHECK_ACCESS(TSKID(p_runtsk) < tnum_exttask);
195
196	x_nested_lock_os_int();
197	p_runtsk->curevt &= ~Mask;
198
199	d_exit_no_errorhook:
200	x_nested_unlock_os_int();
201	exit_no_errorhook:
202	LOG_CLREVT_LEAVE(ercd);
203	return(ercd);
204
205	#ifdef CFG_USE_ERRORHOOK
206	exit_errorhook:
207	x_nested_lock_os_int();
208	#ifdef CFG_USE_PARAMETERACCESS
209	_errorhook_par1.mask = Mask;
210	#endif /* CFG_USE_PARAMETERACCESS */
211	call_errorhook(ercd, OSServiceId_ClearEvent);
212	goto d_exit_no_errorhook;
213	#endif /* CFG_USE_ERRORHOOK */
214	}
215
216	#endif /* TOPPERS_ClearEvent */
217
218	/*
219	* ã¤ãã³ãã®ç¶æ
220	åç
221	§
222	*/
223	#ifdef TOPPERS_GetEvent
224
225	StatusType
226	GetEvent(TaskType TaskID, EventMaskRefType Event)
227	{
228	StatusType ercd = E_OK;
229	TCB *p_tcb;
230	OSAPCB *p_osapcb;
231
232	LOG_GETEVT_ENTER(TaskID);
233	CHECK_DISABLEDINT();
234	CHECK_CALLEVEL(CALLEVEL_GETEVENT);
235	CHECK_ID(TaskID < tnum_task);
236	CHECK_ACCESS(TaskID < tnum_exttask);
237	CHECK_PARAM_POINTER(Event);
238	CHECK_MEM_WRITE(Event, EventMaskType);
239	p_tcb = get_tcb(TaskID);
240	CHECK_RIGHT(p_tcb->p_tinib->acsbtmp);
241
242	p_osapcb = p_tcb->p_tinib->p_osapcb;
243	x_nested_lock_os_int();
244
245	/* ã¿ã¹ã¯æå±ã®OSAPã®ç¶æ
246	ããã§ãã¯ */
247	D_CHECK_ACCESS((p_osapcb->osap_stat == APPLICATION_ACCESSIBLE) \|\|
248	(p_osapcb == p_runosap));
249	/* å¯¾è±¡ã¿ã¹ã¯ãä¼æ¢ç¶æ
250	ã®å ´åã¯ã¨ã©ã¼ã¨ãã */
251	D_CHECK_STATE((p_tcb->tstat != SUSPENDED) \|\| (p_tcb == p_runtsk));
252
253	*Event = p_tcb->curevt;
254
255	d_exit_no_errorhook:
256	x_nested_unlock_os_int();
257	exit_no_errorhook:
258	LOG_GETEVT_LEAVE(ercd, TaskID, Event);
259	return(ercd);
260
261	#ifdef CFG_USE_ERRORHOOK
262	exit_errorhook:
263	x_nested_lock_os_int();
264	d_exit_errorhook:
265	#ifdef CFG_USE_PARAMETERACCESS
266	_errorhook_par1.tskid = TaskID;
267	_errorhook_par2.p_mask = Event;
268	#endif /* CFG_USE_PARAMETERACCESS */
269	call_errorhook(ercd, OSServiceId_GetEvent);
270	goto d_exit_no_errorhook;
271	#endif /* CFG_USE_ERRORHOOK */
272	}
273
274	#endif /* TOPPERS_GetEvent */
275
276	/*
277	* ã¤ãã³ãå¾
278	ã¡
279	*/
280	#ifdef TOPPERS_WaitEvent
281
282	StatusType
283	WaitEvent(EventMaskType Mask)
284	{
285	StatusType ercd = E_OK;
286
287	LOG_WAIEVT_ENTER(p_runtsk, Mask);
288	CHECK_DISABLEDINT();
289	CHECK_CALLEVEL(CALLEVEL_WAITEVENT);
290	CHECK_ACCESS(TSKID(p_runtsk) < tnum_exttask);
291	CHECK_RESOURCE(p_runtsk->p_lastrescb == NULL);
292
293	x_nested_lock_os_int();
294	if ((p_runtsk->curevt & Mask) == EVTMASK_NONE) {
295	p_runtsk->curpri = p_runtsk->p_tinib->inipri;
296	p_runtsk->tstat = WAITING;
297	LOG_TSKSTAT(p_runtsk);
298	p_runtsk->waievt = Mask;
299	make_non_runnable();
300	dispatch();
301	p_runtsk->curpri = p_runtsk->p_tinib->exepri;
302	}
303
304	d_exit_no_errorhook:
305	x_nested_unlock_os_int();
306	exit_no_errorhook:
307	LOG_WAIEVT_LEAVE(ercd);
308	return(ercd);
309
310	#ifdef CFG_USE_ERRORHOOK
311	exit_errorhook:
312	x_nested_lock_os_int();
313	#ifdef CFG_USE_PARAMETERACCESS
314	_errorhook_par1.mask = Mask;
315	#endif /* CFG_USE_PARAMETERACCESS */
316	call_errorhook(ercd, OSServiceId_WaitEvent);
317	goto d_exit_no_errorhook;
318	#endif /* CFG_USE_ERRORHOOK */
319	}
320
321	#endif /* TOPPERS_WaitEvent */
322
323	/*
324	* æºäºå¦çå°ç¨ã¤ãã³ãã®ã»ãã
325	*
326	* æ¡ä»¶ï¼OSå²è¾¼ã¿ç¦æ¢ç¶æ
327	ã§å¼ã°ãã
328	*/
329	#ifdef TOPPERS_set_event_action
330
331	StatusType
332	set_event_action(OSAPCB *p_expire_osapcb, TaskType TaskID, EventMaskType Mask)
333	{
334	StatusType ercd;
335	TCB *p_tcb;
336	OSAPCB *p_osapcb;
337
338	LOG_SETEVT_ENTER(TaskID, Mask);
339	p_tcb = get_tcb(TaskID);
340
341	p_osapcb = p_tcb->p_tinib->p_osapcb;
342	/* æºäºç¹æå±ã®OSAPåã³ã»ããã¤ãã³ãå¯¾è±¡ã¿ã¹ã¯æå±ã®OSAPã®ç¶æ
343	ããã§ãã¯ */
344	D_CHECK_ACCESS((p_osapcb->osap_stat == APPLICATION_ACCESSIBLE) \|\| (p_expire_osapcb == p_osapcb));
345	D_CHECK_STATE(p_tcb->tstat != SUSPENDED);
346	ercd = E_OK;
347
348	p_tcb->curevt \|= Mask;
349	if ((p_tcb->curevt & p_tcb->waievt) != EVTMASK_NONE) {
350	p_tcb->waievt = EVTMASK_NONE;
351	(void) make_runnable(p_tcb);
352	}
353
354	d_exit_no_errorhook:
355	LOG_SETEVT_LEAVE(ercd);
356	return(ercd);
357
358	#ifdef CFG_USE_ERRORHOOK
359	d_exit_errorhook:
360	#ifdef CFG_USE_PARAMETERACCESS
361	_errorhook_par1.tskid = TaskID;
362	_errorhook_par2.mask = Mask;
363	#endif /* CFG_USE_PARAMETERACCESS */
364	call_errorhook(ercd, OSServiceId_SetEvent);
365	goto d_exit_no_errorhook;
366	#endif /* CFG_USE_ERRORHOOK */
367	}
368
369	#endif /* TOPPERS_set_event_action */

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: atk2-sc3-1.4.0-ntisr/kernel/event.c

Download in other formats: