source: extension/messagebuf/kernel/task_refer.c

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

TOPPERS/ASP 1.9.1
ファイルサイズ: 5.6 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 "messagebuf.h"
55#include "mempfix.h"
56#include "time_event.h"
57
58/*
59 *  ¥È¥ì¡Œ¥¹¥í¥°¥Þ¥¯¥í€Î¥Ç¥Õ¥©¥ë¥ÈÄêµÁ
60 */
61#ifndef LOG_REF_TSK_ENTER
62#define LOG_REF_TSK_ENTER(tskid, pk_rtsk)
63#endif /* LOG_REF_TSK_ENTER */
64
65#ifndef LOG_REF_TSK_LEAVE
66#define LOG_REF_TSK_LEAVE(ercd, pk_rtsk)
67#endif /* LOG_REF_TSK_LEAVE */
68
69/*
70 *  ¥¿¥¹¥¯€ÎŸõÂÖ»²ŸÈ
71 */
72#ifdef TOPPERS_ref_tsk
73
74ER
75ref_tsk(ID tskid, T_RTSK *pk_rtsk)
76{
77        TCB             *p_tcb;
78        uint_t  tstat;
79        ER              ercd;
80
81        LOG_REF_TSK_ENTER(tskid, pk_rtsk);
82        CHECK_TSKCTX_UNL();
83        CHECK_TSKID_SELF(tskid);
84        p_tcb = get_tcb_self(tskid);
85
86        t_lock_cpu();
87        tstat = p_tcb->tstat;
88        if (TSTAT_DORMANT(tstat)) {
89                /*
90                 *  ÂПݥ¿¥¹¥¯€¬µÙ»ßŸõÂրΟì¹ç
91                 */
92                pk_rtsk->tskstat = TTS_DMT;
93        }
94        else {
95                /*
96                 *  ¥¿¥¹¥¯ŸõÂրΌèœÐ€·
97                 */
98                if (TSTAT_SUSPENDED(tstat)) {
99                        if (TSTAT_WAITING(tstat)) {
100                                pk_rtsk->tskstat = TTS_WAS;
101                        }
102                        else {
103                                pk_rtsk->tskstat = TTS_SUS;
104                        }
105                }
106                else if (TSTAT_WAITING(tstat)) {
107                        pk_rtsk->tskstat = TTS_WAI;
108                }
109                else if (p_tcb == p_runtsk) {
110                        pk_rtsk->tskstat = TTS_RUN;
111                }
112                else {
113                        pk_rtsk->tskstat = TTS_RDY;
114                }
115
116                /*
117                 *  žœºßÍ¥ÀèÅـȥ١Œ¥¹Í¥ÀèÅـΌèœÐ€·
118                 */
119                pk_rtsk->tskpri = EXT_TSKPRI(p_tcb->priority);
120                pk_rtsk->tskbpri = EXT_TSKPRI(p_tcb->priority);
121
122                if (TSTAT_WAITING(tstat)) {
123                        /*
124                         *  ÂÔ€ÁÍ×°ø€ÈÂÔ€ÁÂП݀Υª¥Ö¥ž¥§¥¯¥È€ÎID€ÎŒèœÐ€·
125                         */
126                        switch (tstat & TS_WAIT_MASK) {
127                        case TS_WAIT_SLP:
128                                pk_rtsk->tskwait = TTW_SLP;
129                                break;
130                        case TS_WAIT_DLY:
131                                pk_rtsk->tskwait = TTW_DLY;
132                                break;
133                        case TS_WAIT_SEM:
134                                pk_rtsk->tskwait = TTW_SEM;
135                                pk_rtsk->wobjid = SEMID(((WINFO_SEM *)(p_tcb->p_winfo))
136                                                                                                                                ->p_semcb);
137                                break;
138                        case TS_WAIT_FLG:
139                                pk_rtsk->tskwait = TTW_FLG;
140                                pk_rtsk->wobjid = FLGID(((WINFO_FLG *)(p_tcb->p_winfo))
141                                                                                                                                ->p_flgcb);
142                                break;
143                        case TS_WAIT_SDTQ:
144                                pk_rtsk->tskwait = TTW_SDTQ;
145                                pk_rtsk->wobjid = DTQID(((WINFO_DTQ *)(p_tcb->p_winfo))
146                                                                                                                                ->p_dtqcb);
147                                break;
148                        case TS_WAIT_RDTQ:
149                                pk_rtsk->tskwait = TTW_RDTQ;
150                                pk_rtsk->wobjid = DTQID(((WINFO_DTQ *)(p_tcb->p_winfo))
151                                                                                                                                ->p_dtqcb);
152                                break;
153                        case TS_WAIT_SPDQ:
154                                pk_rtsk->tskwait = TTW_SPDQ;
155                                pk_rtsk->wobjid = PDQID(((WINFO_PDQ *)(p_tcb->p_winfo))
156                                                                                                                                ->p_pdqcb);
157                                break;
158                        case TS_WAIT_RPDQ:
159                                pk_rtsk->tskwait = TTW_RPDQ;
160                                pk_rtsk->wobjid = PDQID(((WINFO_PDQ *)(p_tcb->p_winfo))
161                                                                                                                                ->p_pdqcb);
162                                break;
163                        case TS_WAIT_MBX:
164                                pk_rtsk->tskwait = TTW_MBX;
165                                pk_rtsk->wobjid = MBXID(((WINFO_MBX *)(p_tcb->p_winfo))
166                                                                                                                                ->p_mbxcb);
167                                break;
168                        case TS_WAIT_SMBF:
169                                pk_rtsk->tskwait = TTW_SMBF;
170                                pk_rtsk->wobjid = MBFID(((WINFO_MBF *)(p_tcb->p_winfo))
171                                                                                                                                ->p_mbfcb);
172                                break;
173                        case TS_WAIT_RMBF:
174                                pk_rtsk->tskwait = TTW_RMBF;
175                                pk_rtsk->wobjid = MBFID(((WINFO_MBF *)(p_tcb->p_winfo))
176                                                                                                                                ->p_mbfcb);
177                                break;
178                        case TS_WAIT_MPF:
179                                pk_rtsk->tskwait = TTW_MPF;
180                                pk_rtsk->wobjid = MPFID(((WINFO_MPF *)(p_tcb->p_winfo))
181                                                                                                                                ->p_mpfcb);
182                                break;
183                        }
184
185                        /*
186                         *  ¥¿¥€¥à¥¢¥Š¥È€¹€ë€Þ€Ç€Î»þŽÖ€ÎŒèœÐ€·
187                         */
188                        if (p_tcb->p_winfo->p_tmevtb != NULL) {
189                                pk_rtsk->lefttmo
190                                                = (TMO) tmevt_lefttim(p_tcb->p_winfo->p_tmevtb);
191                        }
192                        else {
193                                pk_rtsk->lefttmo = TMO_FEVR;
194                        }
195                }
196
197                /*
198                 *  µ¯Ÿ²Í׵ᥭ¥å¡Œ¥€¥ó¥°¿ô€ÎŒèœÐ€·
199                 */
200                pk_rtsk->wupcnt = p_tcb->wupque ? 1U : 0U;
201        }
202
203        /*
204         *  µ¯Æ°Í׵ᥭ¥å¡Œ¥€¥ó¥°¿ô€ÎŒèœÐ€·
205         */
206        pk_rtsk->actcnt = p_tcb->actque ? 1U : 0U;
207        ercd = E_OK;
208        t_unlock_cpu();
209
210  error_exit:
211        LOG_REF_TSK_LEAVE(ercd, pk_rtsk);
212        return(ercd);
213}
214
215#endif /* TOPPERS_ref_tsk */
※ 詳しい使い方は TracBrowser を参照してください。