source: mypx/extension/ovrhdr/kernel/kernel.tf

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

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