source: mypx/extension/messagebuf/kernel/kernel.tf @ 7

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

TOPPERS/ASP 1.9.1
ファイルサイズ: 37.5 KB
Rev行 
[7]1$ ======================================================================
2$
3$   TOPPERS/ASP Kernel
4$       Toyohashi Open Platform for Embedded Real-Time Systems/
5$       Advanced Standard Profile Kernel
6$
7$   Copyright (C) 2007 by TAKAGI Nobuhisa
8$   Copyright (C) 2007-2015 by Embedded and Real-Time Systems Laboratory
9$               Graduate School of Information Science, Nagoya Univ., JAPAN
10$ 
11$   Ÿåµ­Ãøºîž¢ŒÔ€Ï¡€°Ê²Œ€Î(1)¡Á(4)€ÎŸò·ï€òËþ€¿€¹Ÿì¹ç€ËžÂ€ê¡€ËÜ¥œ¥Õ¥È¥Š¥§
12$   ¥¢¡ÊËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò²þÊÑ€·€¿€â€Î€òŽÞ€à¡¥°Ê²ŒÆ±€ž¡Ë€ò»ÈÍÑ¡ŠÊ£Àœ¡Š²þ
13$   ÊÑ¡ŠºÆÇÛÉۡʰʲŒ¡€ÍøÍрȞƀ֡ˀ¹€ë€³€È€ò̵œþ€ÇµöÂú€¹€ë¡¥
14$   (1) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¥œ¡Œ¥¹¥³¡Œ¥É€Î·Á€ÇÍøÍÑ€¹€ëŸì¹ç€Ë€Ï¡€Ÿåµ­€ÎÃøºî
15$       ž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­€Î̵ÊÝŸÚµ¬Äꀬ¡€€œ€Î€Þ€Þ€Î·Á€Ç¥œ¡Œ
16$       ¥¹¥³¡Œ¥ÉÃæ€ËŽÞ€Þ€ì€Æ€€€ë€³€È¡¥
17$   (2) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¡€¥é¥€¥Ö¥é¥ê·ÁŒ°€Ê€É¡€ÂŸ€Î¥œ¥Õ¥È¥Š¥§¥¢³«È¯€Ë»È
18$       Íрǀ­€ë·Á€ÇºÆÇÛÉÛ€¹€ëŸì¹ç€Ë€Ï¡€ºÆÇÛÉÛ€ËÈŒ€Š¥É¥­¥å¥á¥ó¥È¡ÊÍøÍÑ
19$       ŒÔ¥Þ¥Ë¥å¥¢¥ë€Ê€É¡Ë€Ë¡€Ÿåµ­€ÎÃøºîž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­
20$       €Î̵ÊÝŸÚµ¬Äê€ò·ÇºÜ€¹€ë€³€È¡¥
21$   (3) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¡€µ¡Žï€ËÁȀ߹þ€à€Ê€É¡€ÂŸ€Î¥œ¥Õ¥È¥Š¥§¥¢³«È¯€Ë»È
22$       Íрǀ­€Ê€€·Á€ÇºÆÇÛÉÛ€¹€ëŸì¹ç€Ë€Ï¡€Œ¡€Î€€€º€ì€«€ÎŸò·ï€òËþ€¿€¹€³
23$       €È¡¥
24$     (a) ºÆÇÛÉÛ€ËÈŒ€Š¥É¥­¥å¥á¥ó¥È¡ÊÍøÍьԥޥ˥奢¥ë€Ê€É¡Ë€Ë¡€Ÿåµ­€ÎÃø
25$         ºîž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­€Î̵ÊÝŸÚµ¬Äê€ò·ÇºÜ€¹€ë€³€È¡¥
26$     (b) ºÆÇÛÉۀηÁÂÖ€ò¡€ÊÌ€ËÄê€á€ëÊýË¡€Ë€è€Ã€Æ¡€TOPPERS¥×¥í¥ž¥§¥¯¥È€Ë
27$         Êó¹ð€¹€ë€³€È¡¥
28$   (4) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ÎÍøÍрˀè€êÄŸÀÜŪ€Þ€¿€ÏŽÖÀÜŪ€ËÀž€ž€ë€€€«€Ê€ë»
29$       ³²€«€é€â¡€Ÿåµ­Ãøºîž¢ŒÔ€ª€è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€òÌÈÀÕ€¹€ë€³€È¡¥
30$       €Þ€¿¡€ËÜ¥œ¥Õ¥È¥Š¥§¥¢€Î¥æ¡Œ¥¶€Þ€¿€Ï¥š¥ó¥É¥æ¡Œ¥¶€«€é€Î€€€«€Ê€ëÍý
31$       Í³€ËŽð€Å€¯ÀÁµá€«€é€â¡€Ÿåµ­Ãøºîž¢ŒÔ€ª€è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€ò
32$       ÌÈÀÕ€¹€ë€³€È¡¥
33$ 
34$   ËÜ¥œ¥Õ¥È¥Š¥§¥¢€Ï¡€ÌµÊÝŸÚ€ÇÄ󶡀µ€ì€Æ€€€ë€â€Î€Ç€¢€ë¡¥Ÿåµ­Ãøºîž¢ŒÔ€ª
35$   €è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€Ï¡€ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ËŽØ€·€Æ¡€ÆÃÄê€Î»ÈÍÑÌÜŪ
36$   €ËÂЀ¹€ëŬ¹çÀ­€âŽÞ€á€Æ¡€€€€«€Ê€ëÊÝŸÚ€â¹Ô€ï€Ê€€¡¥€Þ€¿¡€ËÜ¥œ¥Õ¥È¥Š¥§
37$   ¥¢€ÎÍøÍрˀè€êÄŸÀÜŪ€Þ€¿€ÏŽÖÀÜŪ€ËÀž€ž€¿€€€«€Ê€ë»³²€ËŽØ€·€Æ€â¡€€œ
38$   €ÎÀÕÇ€€òÉé€ï€Ê€€¡¥
39$
40$   $Id$
41$ 
42$ =====================================================================
43
44$ =====================================================================
45$ kernel_cfg.h€ÎÀžÀ®
46$ =====================================================================
47
48$FILE "kernel_cfg.h"$
49/* kernel_cfg.h */$NL$
50#ifndef TOPPERS_KERNEL_CFG_H$NL$
51#define TOPPERS_KERNEL_CFG_H$NL$
52$NL$
53#define TNUM_TSKID      $LENGTH(TSK.ID_LIST)$$NL$
54#define TNUM_SEMID      $LENGTH(SEM.ID_LIST)$$NL$
55#define TNUM_FLGID      $LENGTH(FLG.ID_LIST)$$NL$
56#define TNUM_DTQID      $LENGTH(DTQ.ID_LIST)$$NL$
57#define TNUM_PDQID      $LENGTH(PDQ.ID_LIST)$$NL$
58#define TNUM_MBXID      $LENGTH(MBX.ID_LIST)$$NL$
59#define TNUM_MBFID      $LENGTH(MBF.ID_LIST)$$NL$
60#define TNUM_MPFID      $LENGTH(MPF.ID_LIST)$$NL$
61#define TNUM_CYCID      $LENGTH(CYC.ID_LIST)$$NL$
62#define TNUM_ALMID      $LENGTH(ALM.ID_LIST)$$NL$
63$NL$
64$FOREACH id TSK.ID_LIST$
65        #define $id$    $+id$$NL$
66$END$
67$FOREACH id SEM.ID_LIST$
68        #define $id$    $+id$$NL$
69$END$
70$FOREACH id FLG.ID_LIST$
71        #define $id$    $+id$$NL$
72$END$
73$FOREACH id DTQ.ID_LIST$
74        #define $id$    $+id$$NL$
75$END$
76$FOREACH id PDQ.ID_LIST$
77        #define $id$    $+id$$NL$
78$END$
79$FOREACH id MBX.ID_LIST$
80        #define $id$    $+id$$NL$
81$END$
82$FOREACH id MBF.ID_LIST$
83        #define $id$    $+id$$NL$
84$END$
85$FOREACH id MPF.ID_LIST$
86        #define $id$    $+id$$NL$
87$END$
88$FOREACH id CYC.ID_LIST$
89        #define $id$    $+id$$NL$
90$END$
91$FOREACH id ALM.ID_LIST$
92        #define $id$    $+id$$NL$
93$END$
94$NL$
95#endif /* TOPPERS_KERNEL_CFG_H */$NL$
96
97$ =====================================================================
98$ kernel_cfg.c€ÎÀžÀ®
99$ =====================================================================
100
101$FILE "kernel_cfg.c"$
102/* kernel_cfg.c */$NL$
103#include "kernel/kernel_int.h"$NL$
104#include "kernel_cfg.h"$NL$
105$NL$
106#if TKERNEL_PRID != 0x07u$NL$
107#error The kernel does not match this configuration file.$NL$
108#endif$NL$
109$NL$
110
111$
112$  ¥€¥ó¥¯¥ë¡Œ¥É¥Ç¥£¥ì¥¯¥Æ¥£¥Ö¡Ê#include¡Ë
113$
114/*$NL$
115$SPC$*  Include Directives (#include)$NL$
116$SPC$*/$NL$
117$NL$
118$INCLUDES$
119$NL$
120
121$
122$  ¥ª¥Ö¥ž¥§¥¯¥È€ÎIDÈÖ¹æ€òÊÝ»ý€¹€ëÊÑ¿ô
123$
124$IF USE_EXTERNAL_ID$
125        /*$NL$
126        $SPC$*  Variables for Object ID$NL$
127        $SPC$*/$NL$
128        $NL$
129        $FOREACH id TSK.ID_LIST$
130                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
131        $END$
132        $FOREACH id SEM.ID_LIST$
133                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
134        $END$
135        $FOREACH id FLG.ID_LIST$
136                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
137        $END$
138        $FOREACH id DTQ.ID_LIST$
139                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
140        $END$
141        $FOREACH id PDQ.ID_LIST$
142                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
143        $END$
144        $FOREACH id MBX.ID_LIST$
145                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
146        $END$
147        $FOREACH id MBF.ID_LIST$
148                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
149        $END$
150        $FOREACH id MPF.ID_LIST$
151                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
152        $END$
153        $FOREACH id CYC.ID_LIST$
154                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
155        $END$
156        $FOREACH id ALM.ID_LIST$
157                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
158        $END$
159$END$
160
161$
162$  ¥¹¥¿¥Ã¥¯Îΰè€Î³ÎÊÝŽØ¿ô
163$
164$IF !ISFUNCTION("ALLOC_STACK")$
165$FUNCTION ALLOC_STACK$
166$       // Â瀭€€Êý€ËŽÝ€á€¿¥µ¥€¥º€Ç³ÎÊÝ€¹€ë
167        static STK_T $ARGV[1]$[COUNT_STK_T($ARGV[2]$)];$NL$
168        $RESULT = FORMAT("ROUND_STK_T(%1%)", ARGV[2])$
169$END$
170$END$
171
172$
173$  ¥È¥ì¡Œ¥¹¥í¥°¥Þ¥¯¥í€Î¥Ç¥Õ¥©¥ë¥ÈÄêµÁ
174$
175/*$NL$
176$SPC$*  Default Definitions of Trace Log Macros$NL$
177$SPC$*/$NL$
178$NL$
179#ifndef LOG_ISR_ENTER$NL$
180#define LOG_ISR_ENTER(intno)$NL$
181#endif /* LOG_ISR_ENTER */$NL$
182$NL$
183#ifndef LOG_ISR_LEAVE$NL$
184#define LOG_ISR_LEAVE(intno)$NL$
185#endif /* LOG_ISR_LEAVE */$NL$
186$NL$
187
188$
189$  ¥¿¥¹¥¯
190$
191/*$NL$
192$SPC$*  Task Management Functions$NL$
193$SPC$*/$NL$
194$NL$
195
196$ ¥¿¥¹¥¯€¬1žÄ°ÊŸåžºß€¹€ë€³€È€Î¥Á¥§¥Ã¥¯
197$IF !LENGTH(TSK.ID_LIST)$
198        $ERROR$$FORMAT(_("no task is registered"))$$END$
199$END$
200
201$ ¥¿¥¹¥¯IDÈÖ¹æ€ÎºÇÂçÃÍ
202const ID _kernel_tmax_tskid = (TMIN_TSKID + TNUM_TSKID - 1);$NL$
203$NL$
204
205$ ¥š¥é¡Œ¥Á¥§¥Ã¥¯
206$FOREACH tskid TSK.ID_LIST$
207$       // tskatr€¬¡Ê¡ÎTA_ACT¡Ï¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
208        $IF (TSK.TSKATR[tskid] & ~(TA_ACT|TARGET_TSKATR)) != 0$
209                $ERROR TSK.TEXT_LINE[tskid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "tskatr", TSK.TSKATR[tskid], tskid, "CRE_TSK")$$END$
210        $END$
211
212$       // (TMIN_TPRI <= itskpri && itskpri <= TMAX_TPRI)€Ç€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
213        $IF !(TMIN_TPRI <= TSK.ITSKPRI[tskid] && TSK.ITSKPRI[tskid] <= TMAX_TPRI)$
214                $ERROR TSK.TEXT_LINE[tskid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "itskpri", TSK.ITSKPRI[tskid], tskid, "CRE_TSK")$$END$
215        $END$
216
217$       // texatr€¬¡ÊTA_NULL¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
218        $IF LENGTH(TSK.TEXATR[tskid]) && TSK.TEXATR[tskid] != 0$
219                $ERROR DEF_TEX.TEXT_LINE[tskid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "texatr", TSK.TEXATR[tskid], tskid, "DEF_TEX")$$END$
220        $END$
221$END$
222
223$ ¥¹¥¿¥Ã¥¯Îΰè€ÎÀžÀ®€È€œ€ì€ËŽØ€¹€ë¥š¥é¡Œ¥Á¥§¥Ã¥¯
224$FOREACH tskid TSK.ID_LIST$
225$       // stksz€¬0°Ê²Œ€«¡€¥¿¡Œ¥²¥Ã¥ÈÄêµÁ€ÎºÇŸ®ÃÍ¡ÊTARGET_MIN_STKSZ¡Ë€è€ê€â
226$       // Ÿ®€µ€€Ÿì¹ç¡ÊE_PAR¡Ë
227        $IF TSK.STKSZ[tskid] <= 0 || (TARGET_MIN_STKSZ
228                                                                        && TSK.STKSZ[tskid] < TARGET_MIN_STKSZ)$
229                $ERROR TSK.TEXT_LINE[tskid]$E_PAR: $FORMAT(_("too small %1% `%2%\' of `%3%\' in %4%"), "stksz", TSK.STKSZ[tskid], tskid, "CRE_TSK")$$END$
230        $END$
231
232$       // stksz€¬¥¹¥¿¥Ã¥¯Îΰè€Î¥µ¥€¥º€È€·€ÆÀµ€·€¯€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
233        $IF !EQ(TSK.STK[tskid], "NULL") && CHECK_STKSZ_ALIGN
234                                                        && (TSK.STKSZ[tskid] & (CHECK_STKSZ_ALIGN - 1))$
235                $ERROR TSK.TEXT_LINE[tskid]$E_PAR: $FORMAT(_("%1% `%2%\' of `%3%\' in %4% is not aligned"), "stksz", TSK.STKSZ[tskid], tskid, "CRE_TSK")$$END$
236        $END$
237
238        $IF EQ(TSK.STK[tskid],"NULL")$
239                $TSK.TINIB_STKSZ[tskid] = ALLOC_STACK(CONCAT("_kernel_stack_",
240                                                                                                tskid), TSK.STKSZ[tskid])$
241                $TSK.TINIB_STK[tskid] = CONCAT("_kernel_stack_", tskid)$
242        $ELSE$
243                $TSK.TINIB_STKSZ[tskid] = FORMAT("(%1%)", TSK.STKSZ[tskid])$
244                $TSK.TINIB_STK[tskid] = FORMAT("(void *)(%1%)", TSK.STK[tskid])$
245        $END$
246$END$
247$NL$
248
249$ ¥¿¥¹¥¯œéŽü²œ¥Ö¥í¥Ã¥¯€ÎÀžÀ®¡Ê¥¿¥¹¥¯€Ï1žÄ°ÊŸåžºß€¹€ë¡Ë
250const TINIB _kernel_tinib_table[TNUM_TSKID] = {$NL$
251$JOINEACH tskid TSK.ID_LIST ",\n"$
252$       // ¥¿¥¹¥¯Â°À­¡€³ÈÄ¥ŸðÊó¡€µ¯Æ°ÈÖÃÏ¡€µ¯Æ°»þÍ¥ÀèÅÙ
253        $TAB${
254        $SPC$($TSK.TSKATR[tskid]$), (intptr_t)($TSK.EXINF[tskid]$),
255        $SPC$((TASK)($TSK.TASK[tskid]$)), INT_PRIORITY($TSK.ITSKPRI[tskid]$),
256
257$       // ¥¿¥¹¥¯œéŽü²œ¥³¥ó¥Æ¥­¥¹¥È¥Ö¥í¥Ã¥¯¡€¥¹¥¿¥Ã¥¯Îΰè
258        $IF USE_TSKINICTXB$
259                $GENERATE_TSKINICTXB(tskid)$
260        $ELSE$
261                $SPC$$TSK.TINIB_STKSZ[tskid]$, $TSK.TINIB_STK[tskid]$,
262        $END$
263
264$       // ¥¿¥¹¥¯Îã³°œèÍý¥ë¡Œ¥Á¥ó€Î°À­€Èµ¯Æ°ÈÖÃÏ
265        $SPC$($ALT(TSK.TEXATR[tskid],"TA_NULL")$), ($ALT(TSK.TEXRTN[tskid],"NULL")$) }
266$END$$NL$
267};$NL$
268$NL$
269
270$ ¥¿¥¹¥¯ŽÉÍý¥Ö¥í¥Ã¥¯€ÎÀžÀ®
271TCB _kernel_tcb_table[TNUM_TSKID];$NL$
272$NL$
273
274$ ¥¿¥¹¥¯ÀžÀ®œçœø¥Æ¡Œ¥Ö¥ë€ÎÀžÀ®
275const ID _kernel_torder_table[TNUM_TSKID] = {$NL$
276$TAB$$JOINEACH tskid TSK.ORDER_LIST ", "$$tskid$$END$$NL$
277};$NL$
278$NL$
279
280$
281$  ¥»¥Þ¥Õ¥©
282$
283/*$NL$
284$SPC$*  Semaphore Functions$NL$
285$SPC$*/$NL$
286$NL$
287
288$ ¥»¥Þ¥Õ¥©IDÈÖ¹æ€ÎºÇÂçÃÍ
289const ID _kernel_tmax_semid = (TMIN_SEMID + TNUM_SEMID - 1);$NL$
290$NL$
291
292$ ¥»¥Þ¥Õ¥©œéŽü²œ¥Ö¥í¥Ã¥¯€ÎÀžÀ®
293$IF LENGTH(SEM.ID_LIST)$
294        const SEMINIB _kernel_seminib_table[TNUM_SEMID] = {$NL$
295        $JOINEACH semid SEM.ID_LIST ",\n"$
296$               // sematr€¬¡Ê¡ÎTA_TPRI¡Ï¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
297                $IF (SEM.SEMATR[semid] & ~TA_TPRI) != 0$
298                        $ERROR SEM.TEXT_LINE[semid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "sematr", SEM.SEMATR[semid], semid, "CRE_SEM")$$END$
299                $END$
300
301$               // (0 <= isemcnt && isemcnt <= maxsem)€Ç€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
302                $IF !(0 <= SEM.ISEMCNT[semid] && SEM.ISEMCNT[semid] <= SEM.MAXSEM[semid])$
303                        $ERROR SEM.TEXT_LINE[semid]$E_PAR: $FORMAT(_("too large %1% `%2%\' of `%3%\' in %4%"), "isemcnt", SEM.ISEMCNT[semid], semid, "CRE_SEM")$$END$
304                $END$
305
306$               // (1 <= maxsem && maxsem <= TMAX_MAXSEM)€Ç€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
307                $IF !(1 <= SEM.MAXSEM[semid] && SEM.MAXSEM[semid] <= TMAX_MAXSEM)$
308                        $ERROR SEM.TEXT_LINE[semid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "maxsem", SEM.MAXSEM[semid], semid, "CRE_SEM")$$END$
309                $END$
310
311$               // ¥»¥Þ¥Õ¥©œéŽü²œ¥Ö¥í¥Ã¥¯
312                $TAB${ ($SEM.SEMATR[semid]$), ($SEM.ISEMCNT[semid]$), ($SEM.MAXSEM[semid]$) }
313        $END$$NL$
314        };$NL$
315        $NL$
316
317$       // ¥»¥Þ¥Õ¥©ŽÉÍý¥Ö¥í¥Ã¥¯
318        SEMCB _kernel_semcb_table[TNUM_SEMID];$NL$
319$ELSE$
320        TOPPERS_EMPTY_LABEL(const SEMINIB, _kernel_seminib_table);$NL$
321        TOPPERS_EMPTY_LABEL(SEMCB, _kernel_semcb_table);$NL$
322$END$$NL$
323
324$
325$  ¥€¥Ù¥ó¥È¥Õ¥é¥°
326$
327/*$NL$
328$SPC$*  Eventflag Functions$NL$
329$SPC$*/$NL$
330$NL$
331
332$ ¥€¥Ù¥ó¥È¥Õ¥é¥°IDÈÖ¹æ€ÎºÇÂçÃÍ
333const ID _kernel_tmax_flgid = (TMIN_FLGID + TNUM_FLGID - 1);$NL$
334$NL$
335
336$ ¥€¥Ù¥ó¥È¥Õ¥é¥°œéŽü²œ¥Ö¥í¥Ã¥¯€ÎÀžÀ®
337$IF LENGTH(FLG.ID_LIST)$
338        const FLGINIB _kernel_flginib_table[TNUM_FLGID] = {$NL$
339        $JOINEACH flgid FLG.ID_LIST ",\n"$
340$               // flgatr€¬¡Ê¡ÎTA_TPRI¡Ï¡Ã¡ÎTA_WMUL¡Ï¡Ã¡ÎTA_CLR¡Ï¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
341                $IF (FLG.FLGATR[flgid] & ~(TA_TPRI|TA_WMUL|TA_CLR)) != 0$
342                        $ERROR FLG.TEXT_LINE[flgid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "flgatr", FLG.FLGATR[flgid], flgid, "CRE_FLG")$$END$
343                $END$
344
345$               // iflgptn€¬FLGPTN€Ë³ÊÇŒ€Ç€­€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
346                $IF (FLG.IFLGPTN[flgid] & ~((1 << TBIT_FLGPTN) - 1)) != 0$
347                        $ERROR FLG.TEXT_LINE[flgid]$E_PAR: $FORMAT(_("too large %1% `%2%\' of `%3%\' in %4%"), "iflgptn", FLG.IFLGPTN[flgid], flgid, "CRE_FLG")$$END$
348                $END$
349
350$               // ¥€¥Ù¥ó¥È¥Õ¥é¥°œéŽü²œ¥Ö¥í¥Ã¥¯
351                $TAB${ ($FLG.FLGATR[flgid]$), ($FLG.IFLGPTN[flgid]$) }
352        $END$$NL$
353        };$NL$
354        $NL$
355
356$       // ¥€¥Ù¥ó¥È¥Õ¥é¥°ŽÉÍý¥Ö¥í¥Ã¥¯
357        FLGCB _kernel_flgcb_table[TNUM_FLGID];$NL$
358$ELSE$
359        TOPPERS_EMPTY_LABEL(const FLGINIB, _kernel_flginib_table);$NL$
360        TOPPERS_EMPTY_LABEL(FLGCB, _kernel_flgcb_table);$NL$
361$END$$NL$
362
363$
364$  ¥Ç¡Œ¥¿¥­¥å¡Œ
365$
366/*$NL$
367$SPC$*  Dataqueue Functions$NL$
368$SPC$*/$NL$
369$NL$
370
371$ ¥Ç¡Œ¥¿¥­¥å¡ŒIDÈÖ¹æ€ÎºÇÂçÃÍ
372const ID _kernel_tmax_dtqid = (TMIN_DTQID + TNUM_DTQID - 1);$NL$
373$NL$
374
375$IF LENGTH(DTQ.ID_LIST)$
376        $FOREACH dtqid DTQ.ID_LIST$
377$               // dtqatr€¬¡Ê¡ÎTA_TPRI¡Ï¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
378                $IF (DTQ.DTQATR[dtqid] & ~TA_TPRI) != 0$
379                        $ERROR DTQ.TEXT_LINE[dtqid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "dtqatr", DTQ.DTQATR[dtqid], dtqid, "CRE_DTQ")$$END$
380                $END$
381
382$               // dtqcnt€¬Éé€ÎŸì¹ç¡ÊE_PAR¡Ë
383                $IF DTQ.DTQCNT[dtqid] < 0$
384                        $ERROR DTQ.TEXT_LINE[dtqid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "dtqcnt", DTQ.DTQCNT[dtqid], dtqid, "CRE_DTQ")$$END$
385                $END$
386
387$               // dtqmb€¬NULL€Ç€Ê€€Ÿì¹ç¡ÊE_NOSPT¡Ë
388                $IF !EQ(DTQ.DTQMB[dtqid], "NULL")$
389                        $ERROR DTQ.TEXT_LINE[dtqid]$E_NOSPT: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "dtqmb", DTQ.DTQMB[dtqid], dtqid, "CRE_DTQ")$$END$
390                $END$
391
392$               // ¥Ç¡Œ¥¿¥­¥å¡ŒŽÉÍýÎΰè
393                $IF DTQ.DTQCNT[dtqid]$
394                        static DTQMB _kernel_dtqmb_$dtqid$[$DTQ.DTQCNT[dtqid]$];$NL$
395                $END$
396        $END$
397
398$       // ¥Ç¡Œ¥¿¥­¥å¡ŒœéŽü²œ¥Ö¥í¥Ã¥¯€ÎÀžÀ®
399        const DTQINIB _kernel_dtqinib_table[TNUM_DTQID] = {$NL$
400        $JOINEACH dtqid DTQ.ID_LIST ",\n"$
401                $TAB${ ($DTQ.DTQATR[dtqid]$), ($DTQ.DTQCNT[dtqid]$), $IF DTQ.DTQCNT[dtqid]$(_kernel_dtqmb_$dtqid$)$ELSE$NULL$END$ }
402        $END$$NL$
403        };$NL$
404        $NL$
405
406$       // ¥Ç¡Œ¥¿¥­¥å¡ŒŽÉÍý¥Ö¥í¥Ã¥¯
407        DTQCB _kernel_dtqcb_table[TNUM_DTQID];$NL$
408$ELSE$
409        TOPPERS_EMPTY_LABEL(const DTQINIB, _kernel_dtqinib_table);$NL$
410        TOPPERS_EMPTY_LABEL(DTQCB, _kernel_dtqcb_table);$NL$
411$END$$NL$
412
413$
414$  Í¥ÀèÅ٥ǡŒ¥¿¥­¥å¡Œ
415$
416/*$NL$
417$SPC$*  Priority Dataqueue Functions$NL$
418$SPC$*/$NL$
419$NL$
420
421$ Í¥ÀèÅ٥ǡŒ¥¿¥­¥å¡ŒIDÈÖ¹æ€ÎºÇÂçÃÍ
422const ID _kernel_tmax_pdqid = (TMIN_PDQID + TNUM_PDQID - 1);$NL$
423$NL$
424
425$IF LENGTH(PDQ.ID_LIST)$
426        $FOREACH pdqid PDQ.ID_LIST$
427$               // pdqatr€¬¡Ê¡ÎTA_TPRI¡Ï¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
428                $IF (PDQ.PDQATR[pdqid] & ~TA_TPRI) != 0$
429                        $ERROR PDQ.TEXT_LINE[pdqid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "pdqatr", PDQ.PDQATR[pdqid], pdqid, "CRE_PDQ")$$END$
430                $END$
431
432$               // pdqcnt€¬Éé€ÎŸì¹ç¡ÊE_PAR¡Ë
433                $IF PDQ.PDQCNT[pdqid] < 0$
434                        $ERROR PDQ.TEXT_LINE[pdqid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "pdqcnt", PDQ.PDQCNT[pdqid], pdqid, "CRE_PDQ")$$END$
435                $END$
436
437$               // (TMIN_DPRI <= maxdpri && maxdpri <= TMAX_DPRI)€Ç€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
438                $IF !(TMIN_DPRI <= PDQ.MAXDPRI[pdqid] && PDQ.MAXDPRI[pdqid] <= TMAX_DPRI)$
439                        $ERROR PDQ.TEXT_LINE[pdqid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "maxdpri", PDQ.MAXDPRI[pdqid], pdqid, "CRE_PDQ")$$END$
440                $END$
441
442$               // pdqmb€¬NULL€Ç€Ê€€Ÿì¹ç¡ÊE_NOSPT¡Ë
443                $IF !EQ(PDQ.PDQMB[pdqid], "NULL")$
444                        $ERROR PDQ.TEXT_LINE[pdqid]$E_NOSPT: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "pdqmb", PDQ.PDQMB[pdqid], pdqid, "CRE_PDQ")$$END$
445                $END$
446
447$               // Í¥ÀèÅ٥ǡŒ¥¿¥­¥å¡ŒŽÉÍýÎΰè
448                $IF PDQ.PDQCNT[pdqid]$
449                        static PDQMB _kernel_pdqmb_$pdqid$[$PDQ.PDQCNT[pdqid]$];$NL$
450                $END$
451        $END$
452
453$       // Í¥ÀèÅ٥ǡŒ¥¿¥­¥å¡ŒœéŽü²œ¥Ö¥í¥Ã¥¯€ÎÀžÀ®
454        const PDQINIB _kernel_pdqinib_table[TNUM_PDQID] = {$NL$
455        $JOINEACH pdqid PDQ.ID_LIST ",\n"$
456                $TAB${ ($PDQ.PDQATR[pdqid]$), ($PDQ.PDQCNT[pdqid]$), ($PDQ.MAXDPRI[pdqid]$), $IF PDQ.PDQCNT[pdqid]$(_kernel_pdqmb_$pdqid$)$ELSE$NULL$END$ }
457        $END$$NL$
458        };$NL$
459        $NL$
460
461$       // Í¥ÀèÅ٥ǡŒ¥¿¥­¥å¡ŒŽÉÍý¥Ö¥í¥Ã¥¯
462        PDQCB _kernel_pdqcb_table[TNUM_PDQID];$NL$
463$ELSE$
464        TOPPERS_EMPTY_LABEL(const PDQINIB, _kernel_pdqinib_table);$NL$
465        TOPPERS_EMPTY_LABEL(PDQCB, _kernel_pdqcb_table);$NL$
466$END$$NL$
467
468$
469$  ¥á¡Œ¥ë¥Ü¥Ã¥¯¥¹
470$
471/*$NL$
472$SPC$*  Mailbox Functions$NL$
473$SPC$*/$NL$
474$NL$
475
476$ ¥á¡Œ¥ë¥Ü¥Ã¥¯¥¹IDÈÖ¹æ€ÎºÇÂçÃÍ
477const ID _kernel_tmax_mbxid = (TMIN_MBXID + TNUM_MBXID - 1);$NL$
478$NL$
479
480$ ¥á¡Œ¥ë¥Ü¥Ã¥¯¥¹œéŽü²œ¥Ö¥í¥Ã¥¯€ÎÀžÀ®
481$IF LENGTH(MBX.ID_LIST)$
482        const MBXINIB _kernel_mbxinib_table[TNUM_MBXID] = {$NL$
483        $JOINEACH mbxid MBX.ID_LIST ",\n"$
484$               // mbxatr€¬¡Ê¡ÎTA_TPRI¡Ï¡Ã¡ÎTA_MPRI¡Ï¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
485                $IF (MBX.MBXATR[mbxid] & ~(TA_TPRI|TA_MPRI)) != 0$
486                        $ERROR MBX.TEXT_LINE[mbxid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "mbxatr", MBX.MBXATR[mbxid], mbxid, "CRE_MBX")$$END$
487                $END$
488
489$               // (TMIN_MPRI <= maxmpri && maxmpri <= TMAX_MPRI)€Ç€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
490                $IF !(TMIN_MPRI <= MBX.MAXMPRI[mbxid] && MBX.MAXMPRI[mbxid] <= TMAX_MPRI)$
491                        $ERROR MBX.TEXT_LINE[mbxid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "maxmpri", MBX.MAXMPRI[mbxid], mbxid, "CRE_MBX")$$END$
492                $END$
493
494$               // mprihd€¬NULL€Ç€Ê€€Ÿì¹ç¡ÊE_NOSPT¡Ë
495                $IF !EQ(MBX.MPRIHD[mbxid], "NULL")$
496                        $ERROR MBX.TEXT_LINE[mbxid]$E_NOSPT: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "mprihd", MBX.MPRIHD[mbxid], mbxid, "CRE_MBX")$$END$
497                $END$
498
499$               // ¥á¡Œ¥ë¥Ü¥Ã¥¯¥¹œéŽü²œ¥Ö¥í¥Ã¥¯
500                $TAB${ ($MBX.MBXATR[mbxid]$), ($MBX.MAXMPRI[mbxid]$) }
501        $END$$NL$
502        };$NL$
503        $NL$
504
505$       // ¥á¡Œ¥ë¥Ü¥Ã¥¯¥¹ŽÉÍý¥Ö¥í¥Ã¥¯
506        MBXCB _kernel_mbxcb_table[TNUM_MBXID];$NL$
507$ELSE$
508        TOPPERS_EMPTY_LABEL(const MBXINIB, _kernel_mbxinib_table);$NL$
509        TOPPERS_EMPTY_LABEL(MBXCB, _kernel_mbxcb_table);$NL$
510$END$$NL$
511
512$
513$  ¥á¥Ã¥»¡Œ¥ž¥Ð¥Ã¥Õ¥¡
514$
515/*$NL$
516$SPC$*  Message Buffer Functions$NL$
517$SPC$*/$NL$
518$NL$
519
520$ ¥á¥Ã¥»¡Œ¥ž¥Ð¥Ã¥Õ¥¡IDÈÖ¹æ€ÎºÇÂçÃÍ
521const ID _kernel_tmax_mbfid = (TMIN_MBFID + TNUM_MBFID - 1);$NL$
522$NL$
523
524$IF LENGTH(MBF.ID_LIST)$
525        $FOREACH mbfid MBF.ID_LIST$
526$               // mbfatr€¬¡Ê¡ÎTA_TPRI¡Ï¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
527                $IF (MBF.MBFATR[mbfid] & ~TA_TPRI) != 0$
528                        $ERROR MBF.TEXT_LINE[mbfid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "mbfatr", MBF.MBFATR[mbfid], mbfid, "CRE_MBF")$$END$
529                $END$
530
531$               // maxmsz€¬0°Ê²Œ€ÎŸì¹ç¡ÊE_PAR¡Ë
532                $IF MBF.MAXMSZ[mbfid] <= 0$
533                        $ERROR MBF.TEXT_LINE[mbfid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "maxmsz", MBF.MAXMSZ[mbfid], mbfid, "CRE_MBF")$$END$
534                $END$
535
536$               // mbfsz€¬Éé€ÎŸì¹ç¡ÊE_PAR¡Ë
537                $IF MBF.MBFSZ[mbfid] < 0$
538                        $ERROR MBF.TEXT_LINE[mbfid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "mbfsz", MBF.MBFSZ[mbfid], mbfid, "CRE_MBF")$$END$
539                $END$
540
541$               // mbfmb€¬NULL€Ç€Ê€€Ÿì¹ç¡ÊE_NOSPT¡Ë
542                $IF !EQ(MBF.MBFMB[mbfid], "NULL")$
543                        $ERROR MBF.TEXT_LINE[mbfid]$E_NOSPT: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "mbfmb", MBF.MBFMB[mbfid], mbfid, "CRE_MBF")$$END$
544                $END$
545
546$               // ¥á¥Ã¥»¡Œ¥ž¥Ð¥Ã¥Õ¥¡ŽÉÍýÎΰè
547                $IF MBF.MBFSZ[mbfid]$
548                        static uint_t _kernel_mbfmb_$mbfid$[TOPPERS_COUNT_SZ($MBF.MBFSZ[mbfid]$, sizeof(uint_t))];$NL$
549                $END$
550        $END$
551
552$       // ¥á¥Ã¥»¡Œ¥ž¥Ð¥Ã¥Õ¥¡œéŽü²œ¥Ö¥í¥Ã¥¯€ÎÀžÀ®
553        const MBFINIB _kernel_mbfinib_table[TNUM_MBFID] = {$NL$
554        $JOINEACH mbfid MBF.ID_LIST ",\n"$
555                $TAB${ ($MBF.MBFATR[mbfid]$), ($MBF.MAXMSZ[mbfid]$), TOPPERS_ROUND_SZ($MBF.MBFSZ[mbfid]$, sizeof(uint_t)), $IF MBF.MBFSZ[mbfid]$(_kernel_mbfmb_$mbfid$)$ELSE$NULL$END$ }
556        $END$$NL$
557        };$NL$
558        $NL$
559
560$       // ¥á¥Ã¥»¡Œ¥ž¥Ð¥Ã¥Õ¥¡ŽÉÍý¥Ö¥í¥Ã¥¯
561        MBFCB _kernel_mbfcb_table[TNUM_MBFID];$NL$
562$ELSE$
563        TOPPERS_EMPTY_LABEL(const MBFINIB, _kernel_mbfinib_table);$NL$
564        TOPPERS_EMPTY_LABEL(MBFCB, _kernel_mbfcb_table);$NL$
565$END$$NL$
566
567$
568$  žÇÄêĹ¥á¥â¥ê¥×¡Œ¥ë
569$
570/*$NL$
571$SPC$*  Fixed-sized Memorypool Functions$NL$
572$SPC$*/$NL$
573$NL$
574
575$ žÇÄêĹ¥á¥â¥ê¥×¡Œ¥ëIDÈÖ¹æ€ÎºÇÂçÃÍ
576const ID _kernel_tmax_mpfid = (TMIN_MPFID + TNUM_MPFID - 1);$NL$
577$NL$
578
579$IF LENGTH(MPF.ID_LIST)$
580        $FOREACH mpfid MPF.ID_LIST$
581$               // mpfatr€¬¡Ê¡ÎTA_TPRI¡Ï¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
582                $IF (MPF.MPFATR[mpfid] & ~TA_TPRI) != 0$
583                        $ERROR MPF.TEXT_LINE[mpfid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "mpfatr", MPF.MPFATR[mpfid], mpfid, "CRE_MPF")$$END$
584                $END$
585
586$               // blkcnt€¬0°Ê²Œ€ÎŸì¹ç¡ÊE_PAR¡Ë
587                $IF MPF.BLKCNT[mpfid] <= 0$
588                        $ERROR MPF.TEXT_LINE[mpfid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "blkcnt", MPF.BLKCNT[mpfid], mpfid, "CRE_MPF")$$END$
589                $END$
590
591$               // blksz€¬0°Ê²Œ€ÎŸì¹ç¡ÊE_PAR¡Ë
592                $IF MPF.BLKSZ[mpfid] <= 0$
593                        $ERROR MPF.TEXT_LINE[mpfid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "blksz", MPF.BLKSZ[mpfid], mpfid, "CRE_MPF")$$END$
594                $END$
595
596$               // žÇÄêĹ¥á¥â¥ê¥×¡Œ¥ëÎΰè
597                $IF EQ(MPF.MPF[mpfid], "NULL")$
598                        static MPF_T _kernel_mpf_$mpfid$[($MPF.BLKCNT[mpfid]$) * COUNT_MPF_T($MPF.BLKSZ[mpfid]$)];$NL$
599                $END$
600
601$               // mpfmb€¬NULL€Ç€Ê€€Ÿì¹ç¡ÊE_NOSPT¡Ë
602                $IF !EQ(MPF.MPFMB[mpfid], "NULL")$
603                        $ERROR MPF.TEXT_LINE[mpfid]$E_NOSPT: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "mpfmb", MPF.MPFMB[mpfid], mpfid, "CRE_MPF")$$END$
604                $END$
605
606$               // žÇÄêĹ¥á¥â¥ê¥×¡Œ¥ëŽÉÍýÎΰè
607                static MPFMB _kernel_mpfmb_$mpfid$[$MPF.BLKCNT[mpfid]$];$NL$
608        $END$
609
610$       // žÇÄêĹ¥á¥â¥ê¥×¡Œ¥ëœéŽü²œ¥Ö¥í¥Ã¥¯€ÎÀžÀ®
611        const MPFINIB _kernel_mpfinib_table[TNUM_MPFID] = {$NL$
612        $JOINEACH mpfid MPF.ID_LIST ",\n"$
613                $TAB${ ($MPF.MPFATR[mpfid]$), ($MPF.BLKCNT[mpfid]$), ROUND_MPF_T($MPF.BLKSZ[mpfid]$), $IF EQ(MPF.MPF[mpfid],"NULL")$(_kernel_mpf_$mpfid$)$ELSE$(void *)($MPF.MPF[mpfid]$)$END$, (_kernel_mpfmb_$mpfid$) }
614        $END$$NL$
615        };$NL$
616        $NL$
617
618$       // žÇÄêĹ¥á¥â¥ê¥×¡Œ¥ëŽÉÍý¥Ö¥í¥Ã¥¯
619        MPFCB _kernel_mpfcb_table[TNUM_MPFID];$NL$
620$ELSE$
621        TOPPERS_EMPTY_LABEL(const MPFINIB, _kernel_mpfinib_table);$NL$
622        TOPPERS_EMPTY_LABEL(MPFCB, _kernel_mpfcb_table);$NL$
623$END$$NL$
624
625$
626$  ŒþŽü¥Ï¥ó¥É¥é
627$
628/*$NL$
629$SPC$*  Cyclic Handler Functions$NL$
630$SPC$*/$NL$
631$NL$
632
633$ ŒþŽü¥Ï¥ó¥É¥éIDÈÖ¹æ€ÎºÇÂçÃÍ
634const ID _kernel_tmax_cycid = (TMIN_CYCID + TNUM_CYCID - 1);$NL$
635$NL$
636
637$ ŒþŽü¥Ï¥ó¥É¥éœéŽü²œ¥Ö¥í¥Ã¥¯€ÎÀžÀ®
638$IF LENGTH(CYC.ID_LIST)$
639        const CYCINIB _kernel_cycinib_table[TNUM_CYCID] = {$NL$
640        $JOINEACH cycid CYC.ID_LIST ",\n"$
641$               // cycatr€¬¡Ê¡ÎTA_STA¡Ï¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
642                $IF (CYC.CYCATR[cycid] & ~TA_STA) != 0$
643                        $ERROR CYC.TEXT_LINE[cycid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "cycatr", CYC.CYCATR[cycid], cycid, "CRE_CYC")$$END$
644                $END$
645
646$               // (0 < cyctim && cyctim <= TMAX_RELTIM)€Ç€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
647                $IF !(0 < CYC.CYCTIM[cycid] && CYC.CYCTIM[cycid] <= TMAX_RELTIM)$
648                        $ERROR CYC.TEXT_LINE[cycid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "cyctim", CYC.CYCTIM[cycid], cycid, "CRE_CYC")$$END$
649                $END$
650
651$               // (0 <= cycphs && cycphs <= TMAX_RELTIM)€Ç€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
652                $IF !(0 <= CYC.CYCPHS[cycid] && CYC.CYCPHS[cycid] <= TMAX_RELTIM)$
653                        $ERROR CYC.TEXT_LINE[cycid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "cycphs", CYC.CYCPHS[cycid], cycid, "CRE_CYC")$$END$
654                $END$
655
656$               // ·Ù¹ð¡§cycatr€ËTA_STA€¬ÀßÄꀵ€ì€Æ€€€Æ¡€(cycphs == 0)€ÎŸì¹ç
657                $IF (CYC.CYCATR[cycid] & TA_STA) != 0 && CYC.CYCPHS[cycid] == 0$
658                        $WARNING CYC.TEXT_LINE[cycid]$$FORMAT(_("%1% is not recommended when %2% is set to %3% in %4%"), "cycphs==0", "TA_STA", "cycatr", "CRE_CYC")$$END$
659                $END$
660
661$               // ŒþŽü¥Ï¥ó¥É¥éœéŽü²œ¥Ö¥í¥Ã¥¯
662                $TAB${ ($CYC.CYCATR[cycid]$), (intptr_t)($CYC.EXINF[cycid]$), ($CYC.CYCHDR[cycid]$), ($CYC.CYCTIM[cycid]$), ($CYC.CYCPHS[cycid]$) }
663        $END$$NL$
664        };$NL$
665        $NL$
666
667$       // ŒþŽü¥Ï¥ó¥É¥éŽÉÍý¥Ö¥í¥Ã¥¯
668        CYCCB _kernel_cyccb_table[TNUM_CYCID];$NL$
669$ELSE$
670        TOPPERS_EMPTY_LABEL(const CYCINIB, _kernel_cycinib_table);$NL$
671        TOPPERS_EMPTY_LABEL(CYCCB, _kernel_cyccb_table);$NL$
672$END$$NL$
673
674$
675$  ¥¢¥é¡Œ¥à¥Ï¥ó¥É¥é
676$
677/*$NL$
678$SPC$*  Alarm Handler Functions$NL$
679$SPC$*/$NL$
680$NL$
681
682$ ¥¢¥é¡Œ¥à¥Ï¥ó¥É¥éIDÈÖ¹æ€ÎºÇÂçÃÍ
683const ID _kernel_tmax_almid = (TMIN_ALMID + TNUM_ALMID - 1);$NL$
684$NL$
685
686$ ¥¢¥é¡Œ¥à¥Ï¥ó¥É¥éœéŽü²œ¥Ö¥í¥Ã¥¯€ÎÀžÀ®
687$IF LENGTH(ALM.ID_LIST)$
688        const ALMINIB _kernel_alminib_table[TNUM_ALMID] = {$NL$
689        $JOINEACH almid ALM.ID_LIST ",\n"$
690$               // almatr€¬¡ÊTA_NULL¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
691                $IF ALM.ALMATR[almid] != 0$
692                        $ERROR ALM.TEXT_LINE[almid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "almatr", ALM.ALMATR[almid], almid, "CRE_ALM")$$END$
693                $END$
694
695$               // ¥¢¥é¡Œ¥à¥Ï¥ó¥É¥éœéŽü²œ¥Ö¥í¥Ã¥¯
696                $TAB${ ($ALM.ALMATR[almid]$), (intptr_t)($ALM.EXINF[almid]$), ($ALM.ALMHDR[almid]$) }
697        $END$$NL$
698        };$NL$
699        $NL$
700
701$       // ¥¢¥é¡Œ¥à¥Ï¥ó¥É¥éŽÉÍý¥Ö¥í¥Ã¥¯
702        ALMCB _kernel_almcb_table[TNUM_ALMID];$NL$
703$ELSE$
704        TOPPERS_EMPTY_LABEL(const ALMINIB, _kernel_alminib_table);$NL$
705        TOPPERS_EMPTY_LABEL(ALMCB, _kernel_almcb_table);$NL$
706$END$$NL$
707
708$
709$  ³ä¹þ€ßŽÉÍýµ¡Çœ
710$
711/*$NL$
712$SPC$*  Interrupt Management Functions$NL$
713$SPC$*/$NL$
714$NL$
715
716$ ³ä¹þ€ßÈÖ¹æ€È³ä¹þ€ß¥Ï¥ó¥É¥éÈÖ¹æ€ÎÊÑŽ¹¥Æ¡Œ¥Ö¥ë€ÎºîÀ®
717$IF LENGTH(INTNO_ATTISR_VALID) != LENGTH(INHNO_ATTISR_VALID)$
718        $ERROR$length of `INTNO_ATTISR_VALID' is different from length of `INHNO_ATTISR_VALID'$END$
719$END$
720$i = 0$
721$FOREACH intno INTNO_ATTISR_VALID$
722        $inhno = AT(INHNO_ATTISR_VALID, i)$
723        $INHNO[intno] = inhno$
724        $INTNO[inhno] = intno$
725        $i = i + 1$
726$END$
727
728$ ³ä¹þ€ßÍ×µá¥é¥€¥ó€ËŽØ€¹€ë¥š¥é¡Œ¥Á¥§¥Ã¥¯
729$i = 0$
730$FOREACH intno INT.ORDER_LIST$
731$       // intno€¬CFG_INT€ËÂЀ¹€ë³ä¹þ€ßÈÖ¹æ€È€·€ÆÀµ€·€¯€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
732        $IF !LENGTH(FIND(INTNO_CFGINT_VALID, INT.INTNO[intno]))$
733                $ERROR INT.TEXT_LINE[intno]$E_PAR: $FORMAT(_("illegal %1% `%2%\' in %3%"), "intno", INT.INTNO[intno], "CFG_INT")$$END$
734        $END$
735
736$       // intno€¬CFG_INT€Ë€è€Ã€ÆÀßÄêºÑ€ß€ÎŸì¹ç¡ÊE_OBJ¡Ë
737        $j = 0$
738        $FOREACH intno2 INT.ORDER_LIST$
739                $IF j < i && INT.INTNO[intno] == INT.INTNO[intno2]$
740                        $ERROR INT.TEXT_LINE[intno]$E_OBJ: $FORMAT(_("%1% `%2%\' in %3% is duplicated"), "intno", INT.INTNO[intno], "CFG_INT")$$END$
741                $END$
742                $j = j + 1$
743        $END$
744
745$       // intatr€¬¡Ê¡ÎTA_ENAINT¡Ï¡Ã¡ÎTA_EDGE¡Ï¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
746        $IF (INT.INTATR[intno] & ~(TA_ENAINT|TA_EDGE|TARGET_INTATR)) != 0$
747                $ERROR INT.TEXT_LINE[intno]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of %3% `%4%\' in %5%"), "intatr", INT.INTATR[intno], "intno", INT.INTNO[intno], "CFG_INT")$$END$
748        $END$
749
750$       // intpri€¬CFG_INT€ËÂЀ¹€ë³ä¹þ€ßÍ¥ÀèÅـȀ·€ÆÀµ€·€¯€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
751        $IF !LENGTH(FIND(INTPRI_CFGINT_VALID, INT.INTPRI[intno]))$
752                $ERROR INT.TEXT_LINE[intno]$E_PAR: $FORMAT(_("illegal %1% `%2%\' in %3%"), "intpri", INT.INTPRI[intno], "CFG_INT")$$END$
753        $END$
754
755$       // ¥«¡Œ¥Í¥ëŽÉÍý€ËžÇÄꀵ€ì€Æ€€€ëintno€ËÂЀ·€Æ¡€intpri€ËTMIN_INTPRI
756$       // €è€ê€âŸ®€µ€€ÃÍ€¬»ØÄꀵ€ì€¿Ÿì¹ç¡ÊE_OBJ¡Ë
757        $IF LENGTH(FIND(INTNO_FIX_KERNEL, intno))$
758                $IF INT.INTPRI[intno] < TMIN_INTPRI$
759                        $ERROR INT.TEXT_LINE[intno]$E_OBJ: $FORMAT(_("%1% `%2%\' must not have higher priority than %3%"), "intno", INT.INTNO[intno], "TMIN_INTPRI")$$END$
760                $END$
761        $END$
762
763$       // ¥«¡Œ¥Í¥ëŽÉÍý³°€ËžÇÄꀵ€ì€Æ€€€ëintno€ËÂЀ·€Æ¡€intpri€ËTMIN_INTPRI
764$       // €è€ê€âŸ®€µ€€ÃÍ€¬»ØÄꀵ€ì€Ê€«€Ã€¿Ÿì¹ç¡ÊE_OBJ¡Ë
765        $IF LENGTH(FIND(INTNO_FIX_NONKERNEL, intno))$
766                $IF INT.INTPRI[intno] >= TMIN_INTPRI$
767                        $ERROR INT.TEXT_LINE[intno]$E_OBJ: $FORMAT(_("%1% `%2%\' must have higher priority than %3%"), "intno", INT.INTNO[intno], "TMIN_INTPRI")$$END$
768                $END$
769        $END$
770        $i = i + 1$
771$END$
772
773$ ³ä¹þ€ß¥Ï¥ó¥É¥é€ËŽØ€¹€ë¥š¥é¡Œ¥Á¥§¥Ã¥¯
774$i = 0$
775$FOREACH inhno INH.ORDER_LIST$
776$       // inhno€¬DEF_INH€ËÂЀ¹€ë³ä¹þ€ß¥Ï¥ó¥É¥éÈÖ¹æ€È€·€ÆÀµ€·€¯€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
777        $IF !LENGTH(FIND(INHNO_DEFINH_VALID, INH.INHNO[inhno]))$
778                $ERROR INH.TEXT_LINE[inhno]$E_PAR: $FORMAT(_("illegal %1% `%2%\' in %3%"), "inhno", INH.INHNO[inhno], "DEF_INH")$$END$
779        $END$
780
781$       // inhno€¬DEF_INH€Ë€è€Ã€ÆÀßÄêºÑ€ß€ÎŸì¹ç¡ÊE_OBJ¡Ë
782        $j = 0$
783        $FOREACH inhno2 INH.ORDER_LIST$
784                $IF j < i && INH.INHNO[inhno] == INH.INHNO[inhno2]$
785                        $ERROR INH.TEXT_LINE[inhno]$E_OBJ: $FORMAT(_("%1% `%2%\' in %3% is duplicated"), "inhno", INH.INHNO[inhno], "DEF_INH")$$END$
786                $END$
787                $j = j + 1$
788        $END$
789
790$       // inhatr€¬¡ÊTA_NULL¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
791        $IF (INH.INHATR[inhno] & ~TARGET_INHATR) != 0$
792                $ERROR INH.TEXT_LINE[inhno]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of %3% `%4%\' in %5%"), "inhatr", INH.INHATR[inhno], "inhno", INH.INHNO[inhno], "DEF_INH")$$END$
793        $END$
794
795$       // ¥«¡Œ¥Í¥ëŽÉÍý€ËžÇÄꀵ€ì€Æ€€€ëinhno€ËÂЀ·€Æ¡€inhatr€ËTA_NONKERNEL
796$       //¡¡€¬»ØÄꀵ€ì€Æ€€€ëŸì¹ç¡ÊE_RSATR¡Ë
797        $IF LENGTH(FIND(INHNO_FIX_KERNEL, inhno))$
798                $IF (INH.INHATR[inhno] & TA_NONKERNEL) != 0$
799                        $ERROR INH.TEXT_LINE[inhno]$E_RSATR: $FORMAT(_("%1% `%2%\' must not be non-kernel interrupt"), "inhno", INH.INHNO[inhno])$$END$
800                $END$
801        $END$
802
803$       // ¥«¡Œ¥Í¥ëŽÉÍý³°€ËžÇÄꀵ€ì€Æ€€€ëinhno€ËÂЀ·€Æ¡€inhatr€ËTA_NONKERNEL
804$       // €¬»ØÄꀵ€ì€Æ€€€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
805        $IF LENGTH(FIND(INHNO_FIX_NONKERNEL, inhno))$
806                $IF (INH.INHATR[inhno] & TA_NONKERNEL) == 0$
807                        $ERROR INH.TEXT_LINE[inhno]$E_RSATR: $FORMAT(_("%1% `%2%\' must be non-kernel interrupt"), "inhno", INH.INHNO[inhno])$$END$
808                $END$
809        $END$
810
811        $IF LENGTH(INTNO[INH.INHNO[inhno]])$
812                $intno = INTNO[INH.INHNO[inhno]]$
813$               // inhno€ËÂбþ€¹€ëintno€ËÂЀ¹€ëCFG_INT€¬€Ê€€Ÿì¹ç¡ÊE_OBJ¡Ë
814                $IF !LENGTH(INT.INTNO[intno])$
815                        $ERROR INH.TEXT_LINE[inhno]$E_OBJ: $FORMAT(_("%1% `%2%\' corresponding to %3% `%4%\' is not configured with %5%"), "intno", intno, "inhno", INH.INHNO[inhno], "CFG_INT")$$END$
816                $ELSE$
817                        $IF (INH.INHATR[inhno] & TA_NONKERNEL) == 0$
818$                               // inhatr€ËTA_NONKERNEL€¬»ØÄꀵ€ì€Æ€ª€é€º¡€inhno€ËÂбþ
819$                               // €¹€ëintno€ËÂЀ·€ÆCFG_INT€ÇÀßÄꀵ€ì€¿³ä¹þ€ßÍ¥ÀèÅÙ€¬
820$                               // TMIN_INTPRI€è€ê€âŸ®€µ€€Ÿì¹ç¡ÊE_OBJ¡Ë
821                                $IF INT.INTPRI[intno] < TMIN_INTPRI$
822                                        $ERROR INT.TEXT_LINE[intno]$E_OBJ: $FORMAT(_("%1% `%2%\' configured for %3% `%4%\' is higher than %5%"), "intpri", INT.INTPRI[intno], "inhno", INH.INHNO[inhno], "TMIN_INTPRI")$$END$
823                                $END$
824                        $ELSE$
825$                               // inhatr€ËTA_NONKERNEL€¬»ØÄꀵ€ì€Æ€ª€ê¡€inhno€ËÂбþ
826$                               // €¹€ëintno€ËÂЀ·€ÆCFG_INT€ÇÀßÄꀵ€ì€¿³ä¹þ€ßÍ¥ÀèÅÙ€¬
827$                               // TMIN_INTPRI°ÊŸå€Ç€¢€ëŸì¹ç¡ÊE_OBJ¡Ë
828                                $IF INT.INTPRI[intno] >= TMIN_INTPRI$
829                                        $ERROR INT.TEXT_LINE[intno]$E_OBJ: $FORMAT(_("%1% `%2%\' configured for %3% `%4%\' is lower than or equal to %5%"), "intpri", INT.INTPRI[intno], "inhno", INH.INHNO[inhno], "TMIN_INTPRI")$$END$
830                                $END$
831                        $END$
832                $END$
833        $END$
834        $i = i + 1$
835$END$
836
837$ ³ä¹þ€ß¥µ¡Œ¥Ó¥¹¥ë¡Œ¥Á¥ó¡ÊISR¡Ë€ËŽØ€¹€ë¥š¥é¡Œ¥Á¥§¥Ã¥¯€È³ä¹þ€ß¥Ï¥ó¥É¥é€ÎÀžÀ®
838$FOREACH order ISR.ORDER_LIST$
839$       // isratr€¬¡ÊTA_NULL¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
840        $IF (ISR.ISRATR[order] & ~TARGET_ISRATR) != 0$
841                $ERROR ISR.TEXT_LINE[order]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' in %3%"), "isratr", ISR.ISRATR[order], "ATT_ISR")$$END$
842        $END$
843
844$       // intno€¬ATT_ISR€ËÂЀ¹€ë³ä¹þ€ßÈÖ¹æ€È€·€ÆÀµ€·€¯€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
845        $IF !LENGTH(FIND(INTNO_ATTISR_VALID, ISR.INTNO[order]))$
846                $ERROR ISR.TEXT_LINE[order]$E_PAR: $FORMAT(_("illegal %1% `%2%\' in %3%"), "intno", ISR.INTNO[order], "ATT_ISR")$$END$
847        $END$
848
849$       // (TMIN_ISRPRI <= isrpri && isrpri <= TMAX_ISRPRI)€Ç€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
850        $IF !(TMIN_ISRPRI <= ISR.ISRPRI[order] && ISR.ISRPRI[order] <= TMAX_ISRPRI)$
851                $ERROR ISR.TEXT_LINE[order]$E_PAR: $FORMAT(_("illegal %1% `%2%\' in %3%"), "isrpri", ISR.ISRPRI[order], "ATT_ISR")$$END$
852        $END$
853$END$
854
855$FOREACH intno INTNO_ATTISR_VALID$
856        $inhno = INHNO[intno]$
857
858$       // ³ä¹þ€ßÈÖ¹æintno€ËÂЀ·€ÆÅÐÏ¿€µ€ì€¿ISR€Î¥ê¥¹¥È€ÎºîÀ®
859        $isr_order_list = {}$
860        $FOREACH order ISR.ORDER_LIST$
861                $IF ISR.INTNO[order] == intno$
862                        $isr_order_list = APPEND(isr_order_list, order)$
863                        $order_for_error = order$
864                $END$
865        $END$
866
867$       // ³ä¹þ€ßÈÖ¹æintno€ËÂЀ·€ÆÅÐÏ¿€µ€ì€¿ISR€¬Âžºß€¹€ëŸì¹ç
868        $IF LENGTH(isr_order_list) > 0$
869$               // intno€ËÂбþ€¹€ëinhno€ËÂЀ·€ÆDEF_INH€¬€¢€ëŸì¹ç¡ÊE_OBJ¡Ë
870                $IF LENGTH(INH.INHNO[inhno])$
871                        $ERROR ISR.TEXT_LINE[order_for_error]$E_OBJ: $FORMAT(_("%1% `%2%\' in %3% is duplicated with %4% `%5%\'"), "intno", ISR.INTNO[order_for_error], "ATT_ISR", "inhno", INH.INHNO[inhno])$$END$
872                $END$
873
874$               // intno€ËÂЀ¹€ëCFG_INT€¬€Ê€€Ÿì¹ç¡ÊE_OBJ¡Ë
875                $IF !LENGTH(INT.INTNO[intno])$
876                        $ERROR ISR.TEXT_LINE[order_for_error]$E_OBJ: $FORMAT(_("%1% `%2%\' is not configured with %3%"), "intno", ISR.INTNO[order_for_error], "CFG_INT")$$END$
877                $ELSE$
878$                       // intno€ËÂЀ·€ÆCFG_INT€ÇÀßÄꀵ€ì€¿³ä¹þ€ßÍ¥ÀèÅÙ€¬TMIN_INTPRI
879$                       // €è€ê€âŸ®€µ€€Ÿì¹ç¡ÊE_OBJ¡Ë
880                        $IF INT.INTPRI[intno] < TMIN_INTPRI$
881                                $ERROR INT.TEXT_LINE[intno]$E_OBJ: $FORMAT(_("%1% `%2%\' configured for %3% `%4%\' is higher than %5%"), "intpri", INT.INTPRI[intno], "intno", ISR.INTNO[order_for_error], "TMIN_INTPRI")$$END$
882                        $END$
883                $END$
884
885$               // DEF_INH(inhno, { TA_NULL, _kernel_inthdr_<intno> } );
886                $INH.INHNO[inhno] = inhno$
887                $INH.INHATR[inhno] = VALUE("TA_NULL", 0)$
888                $INH.INTHDR[inhno] = CONCAT("_kernel_inthdr_", intno)$
889                $INH.ORDER_LIST = APPEND(INH.ORDER_LIST, inhno)$
890
891$               // ISRÍрγä¹þ€ß¥Ï¥ó¥É¥é
892                void$NL$
893                _kernel_inthdr_$intno$(void)$NL$
894                {$NL$
895                $IF LENGTH(isr_order_list) > 1$
896                        $TAB$PRI        saved_ipm;$NL$
897                        $NL$
898                        $TAB$i_begin_int($intno$);$NL$
899                        $TAB$saved_ipm = i_get_ipm();$NL$
900                $ELSE$
901                        $TAB$i_begin_int($intno$);$NL$
902                $END$
903$               // ISR€òÍ¥ÀèÅÙœç€ËžÆ€ÓœÐ€¹
904                $JOINEACH order SORT(isr_order_list, "ISR.ISRPRI") "\tif (i_sense_lock()) {\n\t\ti_unlock_cpu();\n\t}\n\ti_set_ipm(saved_ipm);\n"$
905                        $TAB$LOG_ISR_ENTER($intno$);$NL$
906                        $TAB$((ISR)($ISR.ISR[order]$))((intptr_t)($ISR.EXINF[order]$));$NL$
907                        $TAB$LOG_ISR_LEAVE($intno$);$NL$
908                $END$
909                $TAB$i_end_int($intno$);$NL$
910                }$NL$
911        $END$
912$END$
913$NL$
914
915$
916$  ³ä¹þ€ßŽÉÍýµ¡Çœ€Î€¿€á€ÎÉžœàŪ€ÊœéŽü²œŸðÊó€ÎÀžÀ®
917$
918$ ³ä¹þ€ß¥Ï¥ó¥É¥é€ÎœéŽü²œ€ËɬÍ׀ʟðÊó
919$IF !OMIT_INITIALIZE_INTERRUPT || ALT(USE_INHINIB_TABLE,0)$
920
921$ ³ä¹þ€ß¥Ï¥ó¥É¥é¿ô
922#define TNUM_INHNO      $LENGTH(INH.ORDER_LIST)$$NL$
923const uint_t _kernel_tnum_inhno = TNUM_INHNO;$NL$
924$NL$
925$FOREACH inhno INH.ORDER_LIST$
926        $IF (INH.INHATR[inhno] & TA_NONKERNEL) == 0$
927                INTHDR_ENTRY($INH.INHNO[inhno]$, $+INH.INHNO[inhno]$, $INH.INTHDR[inhno]$)$NL$
928        $END$
929$END$
930$NL$
931
932$ ³ä¹þ€ß¥Ï¥ó¥É¥éœéŽü²œ¥Ö¥í¥Ã¥¯
933$IF LENGTH(INH.ORDER_LIST)$
934        const INHINIB _kernel_inhinib_table[TNUM_INHNO] = {$NL$
935        $JOINEACH inhno INH.ORDER_LIST ",\n"$
936                $IF (INH.INHATR[inhno] & TA_NONKERNEL) == 0$
937                        $TAB${ ($INH.INHNO[inhno]$), ($INH.INHATR[inhno]$), (FP)(INT_ENTRY($INH.INHNO[inhno]$, $INH.INTHDR[inhno]$)) }
938                $ELSE$
939                        $TAB${ ($INH.INHNO[inhno]$), ($INH.INHATR[inhno]$), (FP)($INH.INTHDR[inhno]$) }
940                $END$
941        $END$$NL$
942        };$NL$
943$ELSE$
944        TOPPERS_EMPTY_LABEL(const INHINIB, _kernel_inhinib_table);$NL$
945$END$$NL$
946$END$
947
948$ ³ä¹þ€ßÍ×µá¥é¥€¥ó€ÎœéŽü²œ€ËɬÍ׀ʟðÊó
949$IF !OMIT_INITIALIZE_INTERRUPT || ALT(USE_INTINIB_TABLE,0)$
950
951$ ³ä¹þ€ßÍ×µá¥é¥€¥ó¿ô
952#define TNUM_INTNO      $LENGTH(INT.ORDER_LIST)$$NL$
953const uint_t _kernel_tnum_intno = TNUM_INTNO;$NL$
954$NL$
955
956$ ³ä¹þ€ßÍ×µá¥é¥€¥óœéŽü²œ¥Ö¥í¥Ã¥¯
957$IF LENGTH(INT.ORDER_LIST)$
958        const INTINIB _kernel_intinib_table[TNUM_INTNO] = {$NL$
959        $JOINEACH intno INT.ORDER_LIST ",\n"$
960                $TAB${ ($INT.INTNO[intno]$), ($INT.INTATR[intno]$), ($INT.INTPRI[intno]$) }
961        $END$$NL$
962        };$NL$
963$ELSE$
964        TOPPERS_EMPTY_LABEL(const INTINIB, _kernel_intinib_table);$NL$
965$END$$NL$
966$END$
967
968$
969$  CPUÎã³°ŽÉÍýµ¡Çœ
970$
971/*$NL$
972$SPC$*  CPU Exception Management Functions$NL$
973$SPC$*/$NL$
974$NL$
975
976$ CPUÎã³°¥Ï¥ó¥É¥é€ËŽØ€¹€ë¥š¥é¡Œ¥Á¥§¥Ã¥¯
977$i = 0$
978$FOREACH excno EXC.ORDER_LIST$
979$       // excno€¬DEF_EXC€ËÂЀ¹€ëCPUÎã³°¥Ï¥ó¥É¥éÈÖ¹æ€È€·€ÆÀµ€·€¯€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
980        $IF !LENGTH(FIND(EXCNO_DEFEXC_VALID, EXC.EXCNO[excno]))$
981                $ERROR EXC.TEXT_LINE[excno]$E_PAR: $FORMAT(_("illegal %1% `%2%\' in %3%"), "excno", EXC.EXCNO[excno], "DEF_EXC")$$END$
982        $END$
983
984$       // excno€¬DEF_EXC€Ë€è€Ã€ÆÀßÄêºÑ€ß€ÎŸì¹ç¡ÊE_OBJ¡Ë
985        $j = 0$
986        $FOREACH excno2 EXC.ORDER_LIST$
987                $IF j < i && EXC.EXCNO[excno] == EXC.EXCNO[excno2]$
988                        $ERROR EXC.TEXT_LINE[excno]$E_OBJ: $FORMAT(_("%1% `%2%\' in %3% is duplicated"), "excno", EXC.EXCNO[excno], "DEF_EXC")$$END$
989                $END$
990                $j = j + 1$
991        $END$
992
993$       // excatr€¬¡ÊTA_NULL¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
994        $IF (EXC.EXCATR[excno] & ~TARGET_EXCATR) != 0$
995                $ERROR EXC.TEXT_LINE[excno]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of %3% `%4%\' in %5%"), "excatr", EXC.EXCATR[excno], "excno", EXC.EXCNO[excno], "DEF_EXC")$$END$
996        $END$
997        $i = i + 1$
998$END$
999
1000$ CPUÎã³°¥Ï¥ó¥É¥é€Î€¿€á€ÎÉžœàŪ€ÊœéŽü²œŸðÊó€ÎÀžÀ®
1001$IF !OMIT_INITIALIZE_EXCEPTION$
1002
1003$ CPUÎã³°¥Ï¥ó¥É¥é¿ô
1004#define TNUM_EXCNO      $LENGTH(EXC.ORDER_LIST)$$NL$
1005const uint_t _kernel_tnum_excno = TNUM_EXCNO;$NL$
1006$NL$
1007$FOREACH excno EXC.ORDER_LIST$
1008        EXCHDR_ENTRY($EXC.EXCNO[excno]$, $+EXC.EXCNO[excno]$, $EXC.EXCHDR[excno]$)$NL$
1009$END$
1010$NL$
1011
1012$ CPUÎã³°¥Ï¥ó¥É¥éœéŽü²œ¥Ö¥í¥Ã¥¯
1013$IF LENGTH(EXC.ORDER_LIST)$
1014        const EXCINIB _kernel_excinib_table[TNUM_EXCNO] = {$NL$
1015        $JOINEACH excno EXC.ORDER_LIST ",\n"$
1016                $TAB${ ($EXC.EXCNO[excno]$), ($EXC.EXCATR[excno]$), (FP)(EXC_ENTRY($EXC.EXCNO[excno]$, $EXC.EXCHDR[excno]$)) }
1017        $END$$NL$
1018        };$NL$
1019$ELSE$
1020        TOPPERS_EMPTY_LABEL(const EXCINIB, _kernel_excinib_table);$NL$
1021$END$$NL$
1022$END$
1023
1024$
1025$  È󥿥¹¥¯¥³¥ó¥Æ¥­¥¹¥ÈÍрΥ¹¥¿¥Ã¥¯Îΰè
1026$
1027/*$NL$
1028$SPC$*  Stack Area for Non-task Context$NL$
1029$SPC$*/$NL$
1030$NL$
1031
1032$IF !LENGTH(ICS.ORDER_LIST)$
1033$       // DEF_ICS€¬€Ê€€Ÿì¹ç€Î¥Ç¥Õ¥©¥ë¥ÈÃÍ€ÎÀßÄê
1034        #ifdef DEFAULT_ISTK$NL$
1035        $NL$
1036        #define TOPPERS_ISTKSZ          DEFAULT_ISTKSZ$NL$
1037        #define TOPPERS_ISTK            DEFAULT_ISTK$NL$
1038        $NL$
1039        #else /* DEAULT_ISTK */$NL$
1040        $NL$
1041        $istksz = ALLOC_STACK("_kernel_istack", "DEFAULT_ISTKSZ")$$NL$
1042        #define TOPPERS_ISTKSZ          $istksz$$NL$
1043        #define TOPPERS_ISTK            _kernel_istack$NL$
1044        $NL$
1045        #endif /* DEAULT_ISTK */$NL$
1046$ELSE$
1047
1048$       // ÀÅŪAPI¡ÖDEF_ICS¡×€¬Ê£¿ô€¢€ë¡ÊE_OBJ¡Ë
1049        $IF LENGTH(ICS.ORDER_LIST) > 1$
1050                $ERROR$E_OBJ: $FORMAT(_("too many %1%"), "DEF_ICS")$$END$
1051        $END$
1052
1053$       // istksz€¬0°Ê²Œ€«¡€¥¿¡Œ¥²¥Ã¥ÈÄêµÁ€ÎºÇŸ®ÃÍ¡ÊTARGET_MIN_ISTKSZ¡Ë€è€ê€â
1054$       // Ÿ®€µ€€Ÿì¹ç¡ÊE_PAR¡Ë
1055        $IF ICS.ISTKSZ[1] <= 0 || (TARGET_MIN_ISTKSZ
1056                                                                        && ICS.ISTKSZ[1] < TARGET_MIN_ISTKSZ)$
1057                $ERROR ICS.TEXT_LINE[1]$E_PAR: $FORMAT(_("too small %1% `%2%\' in %3%"), "istksz", ICS.ISTKSZ[1], "DEF_ICS")$$END$
1058        $END$
1059
1060$       // istksz€¬¥¹¥¿¥Ã¥¯Îΰè€Î¥µ¥€¥º€È€·€ÆÀµ€·€¯€Ê€€Ÿì¹ç¡ÊE_PAR¡Ë
1061        $IF !EQ(ICS.ISTK[1], "NULL") && CHECK_STKSZ_ALIGN
1062                                                        && (ICS.ISTKSZ[1] & (CHECK_STKSZ_ALIGN - 1))$
1063                $ERROR ICS.TEXT_LINE[1]$E_PAR: $FORMAT(_("%1% `%2%\' in %3% is not aligned"), "istksz", ICS.ISTKSZ[1], "DEF_ICS")$$END$
1064        $END$
1065
1066        $IF EQ(ICS.ISTK[1], "NULL")$
1067$               // ¥¹¥¿¥Ã¥¯Îΰè€ÎŒ«Æ°³äÉÕ€±
1068                $istksz = ALLOC_STACK("_kernel_istack", ICS.ISTKSZ[1])$$NL$
1069                #define TOPPERS_ISTKSZ          $istksz$$NL$
1070                #define TOPPERS_ISTK            _kernel_istack$NL$
1071        $ELSE$
1072                #define TOPPERS_ISTKSZ          ($ICS.ISTKSZ[1]$)$NL$
1073                #define TOPPERS_ISTK            (void *)($ICS.ISTK[1]$)$NL$
1074        $END$
1075$END$
1076$NL$
1077
1078$ È󥿥¹¥¯¥³¥ó¥Æ¥­¥¹¥ÈÍрΥ¹¥¿¥Ã¥¯Îΰè
1079const SIZE              _kernel_istksz = TOPPERS_ISTKSZ;$NL$
1080STK_T *const    _kernel_istk = TOPPERS_ISTK;$NL$
1081$NL$
1082#ifdef TOPPERS_ISTKPT$NL$
1083STK_T *const    _kernel_istkpt = TOPPERS_ISTKPT(TOPPERS_ISTK, TOPPERS_ISTKSZ);$NL$
1084#endif /* TOPPERS_ISTKPT */$NL$
1085$NL$
1086
1087$
1088$  ¥¿¥€¥à¥€¥Ù¥ó¥ÈŽÉÍý
1089$
1090/*$NL$
1091$SPC$*  Time Event Management$NL$
1092$SPC$*/$NL$
1093$NL$
1094TMEVTN   _kernel_tmevt_heap[TNUM_TSKID + TNUM_CYCID + TNUM_ALMID];$NL$
1095$NL$
1096
1097$
1098$  ³Æ¥â¥ž¥å¡Œ¥ë€ÎœéŽü²œŽØ¿ô
1099$
1100/*$NL$
1101$SPC$*  Module Initialization Function$NL$
1102$SPC$*/$NL$
1103$NL$
1104void$NL$
1105_kernel_initialize_object(void)$NL$
1106{$NL$
1107$TAB$_kernel_initialize_task();$NL$
1108$IF LENGTH(SEM.ID_LIST)$$TAB$_kernel_initialize_semaphore();$NL$$END$
1109$IF LENGTH(FLG.ID_LIST)$$TAB$_kernel_initialize_eventflag();$NL$$END$
1110$IF LENGTH(DTQ.ID_LIST)$$TAB$_kernel_initialize_dataqueue();$NL$$END$
1111$IF LENGTH(PDQ.ID_LIST)$$TAB$_kernel_initialize_pridataq();$NL$$END$
1112$IF LENGTH(MBX.ID_LIST)$$TAB$_kernel_initialize_mailbox();$NL$$END$
1113$IF LENGTH(MBF.ID_LIST)$$TAB$_kernel_initialize_messagebuf();$NL$$END$
1114$IF LENGTH(MPF.ID_LIST)$$TAB$_kernel_initialize_mempfix();$NL$$END$
1115$IF LENGTH(CYC.ID_LIST)$$TAB$_kernel_initialize_cyclic();$NL$$END$
1116$IF LENGTH(ALM.ID_LIST)$$TAB$_kernel_initialize_alarm();$NL$$END$
1117$TAB$_kernel_initialize_interrupt();$NL$
1118$TAB$_kernel_initialize_exception();$NL$
1119}$NL$
1120$NL$
1121
1122$
1123$  œéŽü²œ¥ë¡Œ¥Á¥ó€ÎŒÂ¹ÔŽØ¿ô
1124$
1125/*$NL$
1126$SPC$*  Initialization Routine$NL$
1127$SPC$*/$NL$
1128$NL$
1129void$NL$
1130_kernel_call_inirtn(void)$NL$
1131{$NL$
1132$FOREACH order INI.ORDER_LIST$
1133$       // iniatr€¬¡ÊTA_NULL¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
1134        $IF INI.INIATR[order] != 0$
1135                $ERROR INI.TEXT_LINE[order]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of %3% `%4%\' in %5%"), "iniatr", INI.INIATR[order], "inirtn", INI.INIRTN[order], "ATT_INI")$$END$
1136        $END$
1137        $TAB$((INIRTN)($INI.INIRTN[order]$))((intptr_t)($INI.EXINF[order]$));$NL$
1138$END$
1139}$NL$
1140$NL$
1141
1142$
1143$  œªÎ»œèÍý¥ë¡Œ¥Á¥ó€ÎŒÂ¹ÔŽØ¿ô
1144$
1145/*$NL$
1146$SPC$*  Termination Routine$NL$
1147$SPC$*/$NL$
1148$NL$
1149void$NL$
1150_kernel_call_terrtn(void)$NL$
1151{$NL$
1152$FOREACH rorder TER.RORDER_LIST$
1153$       // teratr€¬¡ÊTA_NULL¡Ë€Ç€Ê€€Ÿì¹ç¡ÊE_RSATR¡Ë
1154        $IF TER.TERATR[rorder] != 0$
1155                $ERROR TER.TEXT_LINE[rorder]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of %3% `%4%\' in %5%"), "teratr", TER.TERATR[rorder], "terrtn", TER.TERRTN[rorder], "ATT_TER")$$END$
1156        $END$
1157        $TAB$((TERRTN)($TER.TERRTN[rorder]$))((intptr_t)($TER.EXINF[rorder]$));$NL$
1158$END$
1159}$NL$
1160$NL$
※ 詳しい使い方は TracBrowser を参照してください。