Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

task_refer.c@ 61

Last change on this file since 61 was 61, checked in by ertl-honda, 11 years ago
ASP for EWARM のコミット．
File size: 5.6 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) 2005-2008 by Embedded and Real-Time Systems Laboratory
7	* Graduate School of Information Science, Nagoya Univ., JAPAN
8	*
9	* ãLì ÒÍCÈºÌ(1)`(4)Ìðð½·êÉÀèC{\tgEF
10	* Ai{\tgEFAðüÏµ½àÌðÜÞDÈº¯¶jðgpE¡»Eü
11	* ÏEÄzziÈºCpÆÄÔj·é±Æð³Åø·éD
12	* (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
13	* \¦C±Ìpð¨æÑºLÌ³ÛØKèªC»ÌÜÜÌ`Å\[
14	* XR[hÉÜÜêÄ¢é±ÆD
15	* (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉg
16	* pÅ«é`ÅÄzz·éêÉÍCÄzzÉº¤hL
17	gip
18	* Ò}j
19	AÈÇjÉCãLÌì \¦C±Ìpð¨æÑºL
20	* Ì³ÛØKèðfÚ·é±ÆD
21	* (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉg
22	* pÅ«È¢`ÅÄzz·éêÉÍCÌ¢¸ê©Ìðð½·±
23	* ÆD
24	* (a) ÄzzÉº¤hL
25	gipÒ}j
26	AÈÇjÉCãLÌ
27	* ì \¦C±Ìpð¨æÑºLÌ³ÛØKèðfÚ·é±ÆD
28	* (b) ÄzzÌ`ÔðCÊÉèßéû@ÉæÁÄCTOPPERSvWFNgÉ
29	* ñ·é±ÆD
30	* (4) {\tgEFAÌpÉæè¼ÚIÜ½ÍÔÚIÉ¶¶é¢©Èé¹
31	* Q©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
32	* Ü½C{\tgEFAÌ[UÜ½ÍGh[U©çÌ¢©Èé
33	* RÉîÃ¿©çàCãLì Ò¨æÑTOPPERSvWFNgð
34	* ÆÓ·é±ÆD
35	*
36	* {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨
37	* æÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄCÁèÌgpÚI
38	* ÉÎ·éK«àÜßÄC¢©ÈéÛØàsíÈ¢DÜ½C{\tgEF
39	* AÌpÉæè¼ÚIÜ½ÍÔÚIÉ¶¶½¢©Èé¹QÉÖµÄàC»
40	* ÌÓCðíÈ¢D
41	*
42	* @(#) $Id: task_refer.c 1016 2008-05-10 08:42:16Z ertl-hiro $
43	*/
44
45	/*
46	* ^XNÌóÔQÆ@\
47	*/
48
49	#include "kernel_impl.h"
50	#include "check.h"
51	#include "task.h"
52	#include "wait.h"
53	#include "semaphore.h"
54	#include "eventflag.h"
55	#include "dataqueue.h"
56	#include "pridataq.h"
57	#include "mailbox.h"
58	#include "mempfix.h"
59	#include "time_event.h"
60
61	/*
62	* g[XO}NÌftHgè`
63	*/
64	#ifndef LOG_REF_TSK_ENTER
65	#define LOG_REF_TSK_ENTER(tskid, pk_rtsk)
66	#endif /* LOG_REF_TSK_ENTER */
67
68	#ifndef LOG_REF_TSK_LEAVE
69	#define LOG_REF_TSK_LEAVE(ercd, pk_rtsk)
70	#endif /* LOG_REF_TSK_LEAVE */
71
72	/*
73	* ^XNÌóÔQÆ
74	*/
75	#ifdef TOPPERS_ref_tsk
76
77	ER
78	ref_tsk(ID tskid, T_RTSK *pk_rtsk)
79	{
80	TCB *p_tcb;
81	uint_t tstat;
82	ER ercd;
83
84	LOG_REF_TSK_ENTER(tskid, pk_rtsk);
85	CHECK_TSKCTX_UNL();
86	CHECK_TSKID_SELF(tskid);
87	p_tcb = get_tcb_self(tskid);
88
89	t_lock_cpu();
90	tstat = p_tcb->tstat;
91	if (TSTAT_DORMANT(tstat)) {
92	/*
93	* ÎÛ^XNªx~óÔÌê
94	*/
95	pk_rtsk->tskstat = TTS_DMT;
96	}
97	else {
98	/*
99	* ^XNóÔÌæoµ
100	*/
101	if (TSTAT_SUSPENDED(tstat)) {
102	if (TSTAT_WAITING(tstat)) {
103	pk_rtsk->tskstat = TTS_WAS;
104	}
105	else {
106	pk_rtsk->tskstat = TTS_SUS;
107	}
108	}
109	else if (TSTAT_WAITING(tstat)) {
110	pk_rtsk->tskstat = TTS_WAI;
111	}
112	else if (p_tcb == p_runtsk) {
113	pk_rtsk->tskstat = TTS_RUN;
114	}
115	else {
116	pk_rtsk->tskstat = TTS_RDY;
117	}
118
119	/*
120	* »ÝDæxÆx[XDæxÌæoµ
121	*/
122	pk_rtsk->tskpri = EXT_TSKPRI(p_tcb->priority);
123	pk_rtsk->tskbpri = EXT_TSKPRI(p_tcb->bpriority);
124
125	if (TSTAT_WAITING(tstat)) {
126	/*
127	* Ò¿vöÆÒ¿ÎÛÌIuWFNgÌIDÌæoµ
128	*/
129	switch (tstat & TS_WAIT_MASK) {
130	case TS_WAIT_SLP:
131	pk_rtsk->tskwait = TTW_SLP;
132	break;
133	case TS_WAIT_DLY:
134	pk_rtsk->tskwait = TTW_DLY;
135	break;
136	case TS_WAIT_SEM:
137	pk_rtsk->tskwait = TTW_SEM;
138	pk_rtsk->wobjid = SEMID(((WINFO_SEM *)(p_tcb->p_winfo))
139	->p_semcb);
140	break;
141	case TS_WAIT_FLG:
142	pk_rtsk->tskwait = TTW_FLG;
143	pk_rtsk->wobjid = FLGID(((WINFO_FLG *)(p_tcb->p_winfo))
144	->p_flgcb);
145	break;
146	case TS_WAIT_SDTQ:
147	pk_rtsk->tskwait = TTW_SDTQ;
148	pk_rtsk->wobjid = DTQID(((WINFO_DTQ *)(p_tcb->p_winfo))
149	->p_dtqcb);
150	break;
151	case TS_WAIT_RDTQ:
152	pk_rtsk->tskwait = TTW_RDTQ;
153	pk_rtsk->wobjid = DTQID(((WINFO_DTQ *)(p_tcb->p_winfo))
154	->p_dtqcb);
155	break;
156	case TS_WAIT_SPDQ:
157	pk_rtsk->tskwait = TTW_SPDQ;
158	pk_rtsk->wobjid = PDQID(((WINFO_PDQ *)(p_tcb->p_winfo))
159	->p_pdqcb);
160	break;
161	case TS_WAIT_RPDQ:
162	pk_rtsk->tskwait = TTW_RPDQ;
163	pk_rtsk->wobjid = PDQID(((WINFO_PDQ *)(p_tcb->p_winfo))
164	->p_pdqcb);
165	break;
166	case TS_WAIT_MBX:
167	pk_rtsk->tskwait = TTW_MBX;
168	pk_rtsk->wobjid = MBXID(((WINFO_MBX *)(p_tcb->p_winfo))
169	->p_mbxcb);
170	break;
171	case TS_WAIT_MPF:
172	pk_rtsk->tskwait = TTW_MPF;
173	pk_rtsk->wobjid = MPFID(((WINFO_MPF *)(p_tcb->p_winfo))
174	->p_mpfcb);
175	break;
176	}
177
178	/*
179	* ^CAEg·éÜÅÌÔÌæoµ
180	*/
181	if (p_tcb->p_winfo->p_tmevtb != NULL) {
182	pk_rtsk->lefttmo
183	= (TMO) tmevt_lefttim(p_tcb->p_winfo->p_tmevtb);
184	}
185	else {
186	pk_rtsk->lefttmo = TMO_FEVR;
187	}
188	}
189
190	/*
191	* N°vL
192	[COÌæoµ
193	*/
194	pk_rtsk->wupcnt = p_tcb->wupque ? 1U : 0U;
195	}
196
197	/*
198	* N®vL
199	[COÌæoµ
200	*/
201	pk_rtsk->actcnt = p_tcb->actque ? 1U : 0U;
202	ercd = E_OK;
203	t_unlock_cpu();
204
205	error_exit:
206	LOG_REF_TSK_LEAVE(ercd, pk_rtsk);
207	return(ercd);
208	}
209
210	#endif /* TOPPERS_ref_tsk */

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

Context Navigation

source: asp_ewarm/asp-1.7.0/extension/mutex/kernel/task_refer.c@ 61

Download in other formats: