source: mypx/extension/dcre/kernel/task_refer.c @ 7

このファイルの 7 以降における最終更新内容は 7 で kominami が 2015/09/12 9:22:12 に更新しました

TOPPERS/ASP 1.9.1
ファイルサイズ: 5.5 KB
行 
1/*
2 *  TOPPERS/ASP Kernel
3 *      Toyohashi Open Platform for Embedded Real-Time Systems/
4 *      Advanced Standard Profile Kernel
5 *
6 *  Copyright (C) 2005-2014 by Embedded and Real-Time Systems Laboratory
7 *              Graduate School of Information Science, Nagoya Univ., JAPAN
8 *
9 *  Ÿåµ­Ãøºîž¢ŒÔ€Ï¡€°Ê²Œ€Î(1)¡Á(4)€ÎŸò·ï€òËþ€¿€¹Ÿì¹ç€ËžÂ€ê¡€ËÜ¥œ¥Õ¥È¥Š¥§
10 *  ¥¢¡ÊËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò²þÊÑ€·€¿€â€Î€òŽÞ€à¡¥°Ê²ŒÆ±€ž¡Ë€ò»ÈÍÑ¡ŠÊ£Àœ¡Š²þ
11 *  ÊÑ¡ŠºÆÇÛÉۡʰʲŒ¡€ÍøÍрȞƀ֡ˀ¹€ë€³€È€ò̵œþ€ÇµöÂú€¹€ë¡¥
12 *  (1) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¥œ¡Œ¥¹¥³¡Œ¥É€Î·Á€ÇÍøÍÑ€¹€ëŸì¹ç€Ë€Ï¡€Ÿåµ­€ÎÃøºî
13 *      ž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­€Î̵ÊÝŸÚµ¬Äꀬ¡€€œ€Î€Þ€Þ€Î·Á€Ç¥œ¡Œ
14 *      ¥¹¥³¡Œ¥ÉÃæ€ËŽÞ€Þ€ì€Æ€€€ë€³€È¡¥
15 *  (2) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¡€¥é¥€¥Ö¥é¥ê·ÁŒ°€Ê€É¡€ÂŸ€Î¥œ¥Õ¥È¥Š¥§¥¢³«È¯€Ë»È
16 *      Íрǀ­€ë·Á€ÇºÆÇÛÉÛ€¹€ëŸì¹ç€Ë€Ï¡€ºÆÇÛÉÛ€ËÈŒ€Š¥É¥­¥å¥á¥ó¥È¡ÊÍøÍÑ
17 *      ŒÔ¥Þ¥Ë¥å¥¢¥ë€Ê€É¡Ë€Ë¡€Ÿåµ­€ÎÃøºîž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­
18 *      €Î̵ÊÝŸÚµ¬Äê€ò·ÇºÜ€¹€ë€³€È¡¥
19 *  (3) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¡€µ¡Žï€ËÁȀ߹þ€à€Ê€É¡€ÂŸ€Î¥œ¥Õ¥È¥Š¥§¥¢³«È¯€Ë»È
20 *      Íрǀ­€Ê€€·Á€ÇºÆÇÛÉÛ€¹€ëŸì¹ç€Ë€Ï¡€Œ¡€Î€€€º€ì€«€ÎŸò·ï€òËþ€¿€¹€³
21 *      €È¡¥
22 *    (a) ºÆÇÛÉÛ€ËÈŒ€Š¥É¥­¥å¥á¥ó¥È¡ÊÍøÍьԥޥ˥奢¥ë€Ê€É¡Ë€Ë¡€Ÿåµ­€ÎÃø
23 *        ºîž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­€Î̵ÊÝŸÚµ¬Äê€ò·ÇºÜ€¹€ë€³€È¡¥
24 *    (b) ºÆÇÛÉۀηÁÂÖ€ò¡€ÊÌ€ËÄê€á€ëÊýË¡€Ë€è€Ã€Æ¡€TOPPERS¥×¥í¥ž¥§¥¯¥È€Ë
25 *        Êó¹ð€¹€ë€³€È¡¥
26 *  (4) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ÎÍøÍрˀè€êÄŸÀÜŪ€Þ€¿€ÏŽÖÀÜŪ€ËÀž€ž€ë€€€«€Ê€ë»
27 *      ³²€«€é€â¡€Ÿåµ­Ãøºîž¢ŒÔ€ª€è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€òÌÈÀÕ€¹€ë€³€È¡¥
28 *      €Þ€¿¡€ËÜ¥œ¥Õ¥È¥Š¥§¥¢€Î¥æ¡Œ¥¶€Þ€¿€Ï¥š¥ó¥É¥æ¡Œ¥¶€«€é€Î€€€«€Ê€ëÍý
29 *      ͳ€ËŽð€Å€¯ÀÁµá€«€é€â¡€Ÿåµ­Ãøºîž¢ŒÔ€ª€è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€ò
30 *      ÌÈÀÕ€¹€ë€³€È¡¥
31 *
32 *  ËÜ¥œ¥Õ¥È¥Š¥§¥¢€Ï¡€ÌµÊÝŸÚ€ÇÄ󶡀µ€ì€Æ€€€ë€â€Î€Ç€¢€ë¡¥Ÿåµ­Ãøºîž¢ŒÔ€ª
33 *  €è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€Ï¡€ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ËŽØ€·€Æ¡€ÆÃÄê€Î»ÈÍÑÌÜŪ
34 *  €ËÂЀ¹€ëŬ¹çÀ­€âŽÞ€á€Æ¡€€€€«€Ê€ëÊÝŸÚ€â¹Ô€ï€Ê€€¡¥€Þ€¿¡€ËÜ¥œ¥Õ¥È¥Š¥§
35 *  ¥¢€ÎÍøÍрˀè€êÄŸÀÜŪ€Þ€¿€ÏŽÖÀÜŪ€ËÀž€ž€¿€€€«€Ê€ë»³²€ËŽØ€·€Æ€â¡€€œ
36 *  €ÎÀÕÇ€€òÉé€ï€Ê€€¡¥
37 *
38 *  $Id$
39 */
40
41/*
42 *              ¥¿¥¹¥¯€ÎŸõÂÖ»²ŸÈµ¡Çœ
43 */
44
45#include "kernel_impl.h"
46#include "check.h"
47#include "task.h"
48#include "wait.h"
49#include "semaphore.h"
50#include "eventflag.h"
51#include "dataqueue.h"
52#include "pridataq.h"
53#include "mailbox.h"
54#include "mempfix.h"
55#include "time_event.h"
56
57/*
58 *  ¥È¥ì¡Œ¥¹¥í¥°¥Þ¥¯¥í€Î¥Ç¥Õ¥©¥ë¥ÈÄêµÁ
59 */
60#ifndef LOG_REF_TSK_ENTER
61#define LOG_REF_TSK_ENTER(tskid, pk_rtsk)
62#endif /* LOG_REF_TSK_ENTER */
63
64#ifndef LOG_REF_TSK_LEAVE
65#define LOG_REF_TSK_LEAVE(ercd, pk_rtsk)
66#endif /* LOG_REF_TSK_LEAVE */
67
68/*
69 *  ¥¿¥¹¥¯€ÎŸõÂÖ»²ŸÈ
70 */
71#ifdef TOPPERS_ref_tsk
72
73ER
74ref_tsk(ID tskid, T_RTSK *pk_rtsk)
75{
76        TCB             *p_tcb;
77        uint_t  tstat;
78        ER              ercd;
79
80        LOG_REF_TSK_ENTER(tskid, pk_rtsk);
81        CHECK_TSKCTX_UNL();
82        CHECK_TSKID_SELF(tskid);
83        p_tcb = get_tcb_self(tskid);
84
85        t_lock_cpu();
86        if (p_tcb->p_tinib->tskatr == TA_NOEXS) {
87                ercd = E_NOEXS;
88        }
89        else {
90                tstat = p_tcb->tstat;
91                if (TSTAT_DORMANT(tstat)) {
92                        /*
93                         *  ÂПݥ¿¥¹¥¯€¬µÙ»ßŸõÂրΟì¹ç
94                         */
95                        pk_rtsk->tskstat = TTS_DMT;
96                }
97                else {
98                        /*
99                         *  ¥¿¥¹¥¯ŸõÂրΌèœÐ€·
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                         *  žœºßÍ¥ÀèÅـȥ١Œ¥¹Í¥ÀèÅـΌèœÐ€·
121                         */
122                        pk_rtsk->tskpri = EXT_TSKPRI(p_tcb->priority);
123                        pk_rtsk->tskbpri = EXT_TSKPRI(p_tcb->priority);
124
125                        if (TSTAT_WAITING(tstat)) {
126                                /*
127                                 *  ÂÔ€ÁÍ×°ø€ÈÂÔ€ÁÂП݀Υª¥Ö¥ž¥§¥¯¥È€ÎID€ÎŒèœÐ€·
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                                 *  ¥¿¥€¥à¥¢¥Š¥È€¹€ë€Þ€Ç€Î»þŽÖ€ÎŒèœÐ€·
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                         *  µ¯Ÿ²Í׵ᥭ¥å¡Œ¥€¥ó¥°¿ô€ÎŒèœÐ€·
192                         */
193                        pk_rtsk->wupcnt = p_tcb->wupque ? 1U : 0U;
194                }
195
196                /*
197                 *  µ¯Æ°Í׵ᥭ¥å¡Œ¥€¥ó¥°¿ô€ÎŒèœÐ€·
198                 */
199                pk_rtsk->actcnt = p_tcb->actque ? 1U : 0U;
200                ercd = E_OK;
201        }
202        t_unlock_cpu();
203
204  error_exit:
205        LOG_REF_TSK_LEAVE(ercd, pk_rtsk);
206        return(ercd);
207}
208
209#endif /* TOPPERS_ref_tsk */
※ 詳しい使い方は TracBrowser を参照してください。