source: azure_iot_hub_f767zi/trunk/asp_baseplatform/kernel/task_refer.c@ 457

Last change on this file since 457 was 457, checked in by coas-nagasima, 4 years ago

ファイルを追加
  • Property svn:eol-style set to native
  • Property svn:mime-type set to text/x-csrc;charset=UTF-8
File size: 6.5 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-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 "mutex.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 if (p_tcb->p_tinib->tskatr == TA_NOEXS) {
88 ercd = E_NOEXS;
89 }
90 else {
91 tstat = p_tcb->tstat;
92 if (TSTAT_DORMANT(tstat)) {
93 /*
94 * 対象タスクが休止状態の場合
95 */
96 pk_rtsk->tskstat = TTS_DMT;
97 }
98 else {
99 /*
100 * タスク状態の取出し
101 */
102 if (TSTAT_SUSPENDED(tstat)) {
103 if (TSTAT_WAITING(tstat)) {
104 pk_rtsk->tskstat = TTS_WAS;
105 }
106 else {
107 pk_rtsk->tskstat = TTS_SUS;
108 }
109 }
110 else if (TSTAT_WAITING(tstat)) {
111 pk_rtsk->tskstat = TTS_WAI;
112 }
113 else if (p_tcb == p_runtsk) {
114 pk_rtsk->tskstat = TTS_RUN;
115 }
116 else {
117 pk_rtsk->tskstat = TTS_RDY;
118 }
119
120 /*
121 * 現在優先度とベース優先度の取出し
122 */
123 pk_rtsk->tskpri = EXT_TSKPRI(p_tcb->priority);
124 pk_rtsk->tskbpri = EXT_TSKPRI(p_tcb->bpriority);
125
126 if (TSTAT_WAITING(tstat)) {
127 /*
128 * 待ち要因と待ち対象のオブジェクトのIDの取出し
129 */
130 switch (tstat & TS_WAIT_MASK) {
131 case TS_WAIT_SLP:
132 pk_rtsk->tskwait = TTW_SLP;
133 break;
134 case TS_WAIT_DLY:
135 pk_rtsk->tskwait = TTW_DLY;
136 break;
137 case TS_WAIT_SEM:
138 pk_rtsk->tskwait = TTW_SEM;
139 pk_rtsk->wobjid = SEMID(((WINFO_SEM *)(p_tcb->p_winfo))
140 ->p_semcb);
141 break;
142 case TS_WAIT_FLG:
143 pk_rtsk->tskwait = TTW_FLG;
144 pk_rtsk->wobjid = FLGID(((WINFO_FLG *)(p_tcb->p_winfo))
145 ->p_flgcb);
146 break;
147 case TS_WAIT_SDTQ:
148 pk_rtsk->tskwait = TTW_SDTQ;
149 pk_rtsk->wobjid = DTQID(((WINFO_DTQ *)(p_tcb->p_winfo))
150 ->p_dtqcb);
151 break;
152 case TS_WAIT_RDTQ:
153 pk_rtsk->tskwait = TTW_RDTQ;
154 pk_rtsk->wobjid = DTQID(((WINFO_DTQ *)(p_tcb->p_winfo))
155 ->p_dtqcb);
156 break;
157 case TS_WAIT_SPDQ:
158 pk_rtsk->tskwait = TTW_SPDQ;
159 pk_rtsk->wobjid = PDQID(((WINFO_PDQ *)(p_tcb->p_winfo))
160 ->p_pdqcb);
161 break;
162 case TS_WAIT_RPDQ:
163 pk_rtsk->tskwait = TTW_RPDQ;
164 pk_rtsk->wobjid = PDQID(((WINFO_PDQ *)(p_tcb->p_winfo))
165 ->p_pdqcb);
166 break;
167 case TS_WAIT_MBX:
168 pk_rtsk->tskwait = TTW_MBX;
169 pk_rtsk->wobjid = MBXID(((WINFO_MBX *)(p_tcb->p_winfo))
170 ->p_mbxcb);
171 break;
172 case TS_WAIT_MTX:
173 pk_rtsk->tskwait = TTW_MTX;
174 pk_rtsk->wobjid = MTXID(((WINFO_MTX *)(p_tcb->p_winfo))
175 ->p_mtxcb);
176 break;
177 case TS_WAIT_MPF:
178 pk_rtsk->tskwait = TTW_MPF;
179 pk_rtsk->wobjid = MPFID(((WINFO_MPF *)(p_tcb->p_winfo))
180 ->p_mpfcb);
181 break;
182 }
183
184 /*
185 * タイムアウトするまでの時間の取出し
186 */
187 if (p_tcb->p_winfo->p_tmevtb != NULL) {
188 pk_rtsk->lefttmo
189 = (TMO) tmevt_lefttim(p_tcb->p_winfo->p_tmevtb);
190 }
191 else {
192 pk_rtsk->lefttmo = TMO_FEVR;
193 }
194 }
195
196 /*
197 * 起床要求キューイング数の取出し
198 */
199 pk_rtsk->wupcnt = p_tcb->wupque ? 1U : 0U;
200 }
201
202 /*
203 * 起動要求キューイング数の取出し
204 */
205 pk_rtsk->actcnt = p_tcb->actque ? 1U : 0U;
206 ercd = E_OK;
207 }
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 */
Note: See TracBrowser for help on using the repository browser.