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