1 | /*
|
---|
2 | * TOPPERS/SSP Kernel
|
---|
3 | * Smallest Set Profile Kernel
|
---|
4 | *
|
---|
5 | * Copyright (C) 2008 by Embedded and Real-Time Systems Laboratory
|
---|
6 | * Graduate School of Information Science, Nagoya Univ., JAPAN
|
---|
7 | * Copyright (C) 2010 by Meika Sugimoto
|
---|
8 | *
|
---|
9 | * ãLì ÒÍCȺÌ(1)`(4)Ìðð½·êÉÀèC{\tgEF
|
---|
10 | * Ai{\tgEFAðüϵ½àÌðÜÞDȺ¯¶jðgpE¡»Eü
|
---|
11 | * ÏEÄzziȺCpÆÄÔj·é±Æð³Åø·éD
|
---|
12 | * (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
|
---|
13 | * \¦C±Ìpð¨æÑºLÌ³ÛØKèªC»ÌÜÜÌ`Å\[
|
---|
14 | * XR[hÉÜÜêĢ鱯D
|
---|
15 | * (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉg
|
---|
16 | * pÅ«é`ÅÄzz·éêÉÍCÄzzɺ¤hL
|
---|
17 | gip
|
---|
18 | * Ò}j
|
---|
19 | AÈÇjÉCãLÌì \¦C±Ìpð¨æÑºL
|
---|
20 | * Ì³ÛØKèðfÚ·é±ÆD
|
---|
21 | * (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉg
|
---|
22 | * pūȢ`ÅÄzz·éêÉÍCÌ¢¸ê©Ìðð½·±
|
---|
23 | * ÆD
|
---|
24 | * (a) Äzzɺ¤hL
|
---|
25 | gipÒ}j
|
---|
26 | AÈÇjÉCãLÌ
|
---|
27 | * ì \¦C±Ìpð¨æÑºLÌ³ÛØKèðfÚ·é±ÆD
|
---|
28 | * (b) ÄzzÌ`ÔðCÊÉèßéû@ÉæÁÄCTOPPERSvWFNgÉ
|
---|
29 | * ñ·é±ÆD
|
---|
30 | * (4) {\tgEFAÌpÉæè¼ÚIܽÍÔÚIɶ¶é¢©Èé¹
|
---|
31 | * Q©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
|
---|
32 | * ܽC{\tgEFAÌ[UܽÍGh[U©çÌ¢©Èé
|
---|
33 | * RÉîÿ©çàCãLì Ò¨æÑTOPPERSvWFNgð
|
---|
34 | * ÆÓ·é±ÆD
|
---|
35 | *
|
---|
36 | * {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨
|
---|
37 | * æÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄCÁèÌgpÚI
|
---|
38 | * ÉηéK«àÜßÄC¢©ÈéÛØàsíÈ¢DܽC{\tgEF
|
---|
39 | * AÌpÉæè¼ÚIܽÍÔÚIɶ¶½¢©Èé¹QÉÖµÄàC»
|
---|
40 | * ÌÓCðíÈ¢D
|
---|
41 | *
|
---|
42 | */
|
---|
43 |
|
---|
44 | /*
|
---|
45 | * vZbT˶W
|
---|
46 | [ AZu¾êiARM-Mpj
|
---|
47 | */
|
---|
48 |
|
---|
49 | #define TOPPERS_MACRO_ONLY
|
---|
50 | #define UINT_C(val) (val) /* uint_t^Ìèðìé}N */
|
---|
51 | #define ULONG_C(val) (val) /* ulong_t^Ìèðìé}N */
|
---|
52 | #define CAST(type, val) (val) /* ^LXgðs¤}N */
|
---|
53 |
|
---|
54 | #include "kernel_impl.h"
|
---|
55 | #include "arm_m.h"
|
---|
56 |
|
---|
57 |
|
---|
58 | .text
|
---|
59 |
|
---|
60 | /*
|
---|
61 | * OQÆ
|
---|
62 | */
|
---|
63 | .global intnest
|
---|
64 |
|
---|
65 | /*
|
---|
66 | * CPUáOGg
|
---|
67 | *
|
---|
68 | * ÝGgÆÌàeͯ¾ªCOÌíÞªÙÈé½ßC
|
---|
69 | * ª¯Ä¢éD
|
---|
70 | */
|
---|
71 | .align 2
|
---|
72 | .syntax unified
|
---|
73 | .code 16
|
---|
74 | .global exc_entry
|
---|
75 | .type exc_entry, function
|
---|
76 | exc_entry:
|
---|
77 | /*
|
---|
78 | * áO/ݪ¶·éÆC¶ÉANeBuÈX^bNÉXN
|
---|
79 | * b`WX^ªÛ¶³êéD
|
---|
80 | * ±ÌàeÉÁ¦ÄCCPUáOnhÖÌîñƵÄCbasepri ÌlÆC
|
---|
81 | * EXC_RETURNÌîñðÁ¦ÄÛ¶·éDbasepriÌlÍCCPUáO©çÌ
|
---|
82 | * ^[ÉÝDæx}XNÌlð³Éß·½ßÉàp¢çêéD
|
---|
83 | *
|
---|
84 | * -----------
|
---|
85 | * | EXC_RETURN|
|
---|
86 | * -----------
|
---|
87 | * | basepri |
|
---|
88 | * -----------
|
---|
89 | * | R0 |
|
---|
90 | * -----------
|
---|
91 | * | R1 |
|
---|
92 | * -----------
|
---|
93 | * | R2 |
|
---|
94 | * -----------
|
---|
95 | * | R3 |
|
---|
96 | * -----------
|
---|
97 | * | R12 |
|
---|
98 | * -----------
|
---|
99 | * | LR |
|
---|
100 | * -----------
|
---|
101 | * | PC |
|
---|
102 | * -----------
|
---|
103 | * | xPSR |
|
---|
104 | * -----------
|
---|
105 | *
|
---|
106 | */
|
---|
107 |
|
---|
108 | /*
|
---|
109 | * ݶÌÝDæx}XNðX^bNÉÛ¶·é½ßæ¾
|
---|
110 | */
|
---|
111 | mrs r2, basepri /* baepriÌlðæ¾ */
|
---|
112 | push {r2} /* ݶÌÝDæx}XNðÏÞ */
|
---|
113 | push {lr} /* EXC_RETURN ðÏÞ */
|
---|
114 | mov r0, sp /* CPUáOnhÖÌøÆÈé */
|
---|
115 |
|
---|
116 | ldr r1 , =lock_flag /* CPUbNtOðÛ¶ */
|
---|
117 | ldr r1 , [r1]
|
---|
118 | push {r1}
|
---|
119 |
|
---|
120 | /* ÝlXgÌÁZ */
|
---|
121 | ldr r1 , =intnest
|
---|
122 | ldr r3 , [r1]
|
---|
123 | add r3 , #1
|
---|
124 | str r3 , [r1]
|
---|
125 |
|
---|
126 | /*
|
---|
127 | * ¤Ê
|
---|
128 | */
|
---|
129 | exc_entry_2:
|
---|
130 | mrs r3, ipsr /* nhAhXðæ¾ */
|
---|
131 | ldr r1, =_kernel_exc_tbl
|
---|
132 | ldr r2, [r1, r3, lsl #2]
|
---|
133 |
|
---|
134 | #ifdef LOG_EXC_ENTER
|
---|
135 | push {r0, r2, r3}
|
---|
136 | mov r0, r3 /* áOÔðp[^É */
|
---|
137 | bl log_exc_enter /* log_exc_enterðÄÑo· */
|
---|
138 | pop {r0, r2, r3}
|
---|
139 | #endif /* LOG_EXC_ENTER */
|
---|
140 |
|
---|
141 | #ifdef LOG_EXC_LEAVE
|
---|
142 | push { r3 } /* áOÔðX^bNÖ */
|
---|
143 | #endif /* LOG_EXC_LEAVE */
|
---|
144 |
|
---|
145 | /*
|
---|
146 | * CPUáOnhÌÄÑoµ
|
---|
147 | */
|
---|
148 | blx r2
|
---|
149 |
|
---|
150 | /* CPUbNtOð³Éß· */
|
---|
151 | pop {r0}
|
---|
152 | ldr r1 , =lock_flag
|
---|
153 | str r0 , [r1]
|
---|
154 |
|
---|
155 | #ifdef LOG_EXC_LEAVE
|
---|
156 | pop { r0 } /* áOÔðøÉ */
|
---|
157 | bl log_exc_leave /* log_exc_leaveðÄÑo· */
|
---|
158 | #endif /* LOG_EXC_LEAVE */
|
---|
159 |
|
---|
160 | b ret_exc
|
---|
161 |
|
---|
162 |
|
---|
163 | /*
|
---|
164 | * ÝGg
|
---|
165 | */
|
---|
166 | .align 2
|
---|
167 | .syntax unified
|
---|
168 | .code 16
|
---|
169 | .global int_entry
|
---|
170 | .type int_entry, function
|
---|
171 | int_entry:
|
---|
172 | /*
|
---|
173 | * ݶÌÝDæx}XNðX^bNÉÛ¶·é½ßæ¾
|
---|
174 | */
|
---|
175 | mrs r2, basepri /* baepriÌlðæ¾ */
|
---|
176 | push {r2} /* ݶÌÝDæx}XNðÏÞ */
|
---|
177 | push {lr} /* EXC_RETURN ðÏÞ */
|
---|
178 | mov r0, sp /* ¢è`Ìݪ¶µ½êÌîñÆ·é */
|
---|
179 |
|
---|
180 | /*
|
---|
181 | * ¤Ê
|
---|
182 | */
|
---|
183 | int_entry_2:
|
---|
184 | /* ÝlXgÌÁZ */
|
---|
185 | ldr r1 , =intnest
|
---|
186 | ldr r3 , [r1]
|
---|
187 | add r3 , #1
|
---|
188 | str r3 , [r1]
|
---|
189 |
|
---|
190 | mrs r3, ipsr /* nhAhXðæ¾ */
|
---|
191 | ldr r1, =_kernel_exc_tbl
|
---|
192 | ldr r2, [r1, r3, lsl #2]
|
---|
193 |
|
---|
194 | #ifdef LOG_INH_ENTER
|
---|
195 | push {r0,r2,r3}
|
---|
196 | mov r0, r3 /* ÝÔðp[^É */
|
---|
197 | bl log_inh_enter /* log_inh_enterðÄÑo· */
|
---|
198 | pop { r0,r2,r3 }
|
---|
199 | #endif /* LOG_INH_ENTER */
|
---|
200 |
|
---|
201 | #ifdef LOG_INH_LEAVE
|
---|
202 | push { r3 } /* ÝÔðX^bNÖ */
|
---|
203 | #endif /* LOG_INH_LEAVE */
|
---|
204 |
|
---|
205 | /*
|
---|
206 | * CPUáOnhÌÄÑoµ
|
---|
207 | */
|
---|
208 | blx r2
|
---|
209 |
|
---|
210 | #ifdef LOG_INH_LEAVE
|
---|
211 | pop { r0 } /* ÝÔðøÉ */
|
---|
212 | bl log_inh_leave /* log_inh_leaveðÄÑo· */
|
---|
213 | #endif /* LOG_INH_LEAVE */
|
---|
214 |
|
---|
215 | /*
|
---|
216 | * Ý/áOoû
|
---|
217 | *
|
---|
218 | * ret_exc/ret_intÍCCPUáO/Ýnh©çßÁ½¼ãÉÀs·é
|
---|
219 | * [`Å éD
|
---|
220 | */
|
---|
221 | ret_exc:
|
---|
222 | ret_int:
|
---|
223 | /*
|
---|
224 | * ÝbNóÔÆ·éD±Ì_ÅÍCCPUbNóÔÉÍÈçÈ¢
|
---|
225 | * ibasepriÆlock_flagÆsaved_iipmÍXVµÈ¢jD
|
---|
226 | *
|
---|
227 | * ÝbNóÔÆ·éÌÍCßèæÌReLXgÌ`FbNÆC
|
---|
228 | * ßèæªñ^XNReLXgÅ Á½êÌ^[ðAg~bN
|
---|
229 | * És¤½ßÅ éDbsepriðCPUbNÌlɷ鱯ÅàAg~b
|
---|
230 | * NÈ`FbNÆAÍÂ\Å éªCÝ©ç^[µÄàC
|
---|
231 | * basepri ÌÝèàeͳÉßçÈ¢½ßCgp·é±ÆªÅ«È¢D
|
---|
232 | * êûCFAULTMASKÍCÝ©çÌ^[ÉæÁÄC'0'ÉN
|
---|
233 | * A³êéD
|
---|
234 | */
|
---|
235 | cpsid f
|
---|
236 |
|
---|
237 | /*
|
---|
238 | * ßèæÌReLXgÌ»è
|
---|
239 | *
|
---|
240 | * intnestª0©Ç¤©Å»f·é
|
---|
241 | *
|
---|
242 | */
|
---|
243 | /* ÝlXg̸Z */
|
---|
244 | ldr r1 , =intnest
|
---|
245 | ldr r3 , [r1]
|
---|
246 | add r3 , #-1
|
---|
247 | str r3 , [r1]
|
---|
248 |
|
---|
249 | cmp r3 , #0
|
---|
250 | beq ret_int_2
|
---|
251 |
|
---|
252 | /*
|
---|
253 | * êiÚÌÝÌoû
|
---|
254 | */
|
---|
255 | ret_int_1:
|
---|
256 | /*
|
---|
257 | * ±±ÉÍÝbNóÔiFAULTMASKªZbgj³ê½óÔÅéD
|
---|
258 | * Thread[h©çÌ^[Éæè©®IÉÝbNðóÔÉÈéD
|
---|
259 | * ÝDæx}XNÍÝOÉóÔÉß·D
|
---|
260 | */
|
---|
261 | pop { r2 }
|
---|
262 | pop { r1 }
|
---|
263 | msr basepri, r1 /* ÝDæx}XNðÝOÉóÔÖ */
|
---|
264 | bx r2 /* ^[ */
|
---|
265 |
|
---|
266 | ret_int_2:
|
---|
267 | ldr r0, =reqflg /* reqflgªfalseÈç»ÌÜÜßé */
|
---|
268 | ldr r1, [r0]
|
---|
269 | cmp r1 , #0
|
---|
270 | beq ret_int_1 /* falseÈçret_int_1Ö */
|
---|
271 | ret_int_3:
|
---|
272 | mov r1, #0 /* reqflgðfalseÉ */
|
---|
273 | str r1, [r0]
|
---|
274 |
|
---|
275 | /*
|
---|
276 | * CPUbNóÔÉÚs·éD
|
---|
277 | *
|
---|
278 | * J[lÌÇàÌÝðÖ~·éæ¤ÉbasepriðÝèµC
|
---|
279 | * lock_flagðXV·éD
|
---|
280 | * ±Ì_ÅCPUbNóÔÆ·éÌÍCdispatcherÖªò·éÉ
|
---|
281 | * CPUbNóÔÉÈÁÄ¢éKvª é½ßÅ éD
|
---|
282 | * ȨC±ÌÌãCThread[hÖÌÚsðsȤ½ßCÝ
|
---|
283 | * bNóÔ(FAULTMASKð"1")ÍÛ·éD
|
---|
284 | */
|
---|
285 | ldr r1, =IIPM_LOCK /* CPUbNóÔ */
|
---|
286 | msr basepri, r1
|
---|
287 | mov r1, #0x01 /* lock_flag ð trueÉ */
|
---|
288 | ldr r0, =lock_flag
|
---|
289 | str r1, [r0]
|
---|
290 |
|
---|
291 | /*
|
---|
292 | * lrðæèo·D½¾µxfBXpb`ÌÛÉàg¤½ßC
|
---|
293 | * X^bN|C^ÍìµÈ¢D
|
---|
294 | */
|
---|
295 |
|
---|
296 | ldr r2 , [sp]
|
---|
297 |
|
---|
298 | /*
|
---|
299 | * Thread[hÖÚs·éD
|
---|
300 | *
|
---|
301 | * dispatcherâcall_texrnðÄÑo·êÍCThread[hÅ éK
|
---|
302 | * vª é½ßCPSPX^bNãÉ_~[ÌáOt[ðu¢ÄC
|
---|
303 | * [IÉÝnh©ç^[·éD
|
---|
304 | * ^[ƯÉFAULTMASKª©®IÉNA³êCJ[lÇOÌ
|
---|
305 | * ݪ³êéD
|
---|
306 | */
|
---|
307 | ldr r0, =ret_int_4 /* PC */
|
---|
308 | ldr r1, =EPSR_T /* xPSR(Trbgª'1'Å éKvª é) */
|
---|
309 | stmfd sp!, {r0-r1} /* _~[t[ðX^bNãÉÏÞ */
|
---|
310 | sub sp, #(EXC_FRAME_SIZE - (4*2)) /* r0-r3,r12,lrÌàeÍÝè·éKvªÈ¢ */
|
---|
311 | bx r2 /* Thread[hÖÚs */
|
---|
312 |
|
---|
313 | ret_int_4:
|
---|
314 | bl search_schedtsk /* ÝÅN®³ê½^XNðÀs */
|
---|
315 | bl run_task
|
---|
316 | ret_int_r:
|
---|
317 | svc 0 /* SVCÌÄÑoµ */
|
---|
318 |
|
---|
319 | /*
|
---|
320 | * xfBXpb`©çÌAÉêIÉÝ
|
---|
321 | * ReLXgÉÚs·é½ßÌSVCR[nh
|
---|
322 | */
|
---|
323 |
|
---|
324 | .align 2
|
---|
325 | .thumb
|
---|
326 | .thumb_func
|
---|
327 | .globl kernel_svc_handler
|
---|
328 | kernel_svc_handler:
|
---|
329 | /*
|
---|
330 | * Ý©çÌ^[ÉæèCCPUbNðóÔÉÚs·éæ
|
---|
331 | * ¤õ·éD
|
---|
332 | */
|
---|
333 | cpsid f /* ÝbNóÔÖ */
|
---|
334 | ldr r2 , [ sp , #(EXC_FRAME_SIZE) ] /* lrðX^bN©çæ¾ */
|
---|
335 | add sp, #EXC_FRAME_SIZE + 8 /* X^bNðÌÄé */
|
---|
336 | mov r0, #0
|
---|
337 | ldr r1, =lock_flag /* CPUbNðóÔÖ */
|
---|
338 | str r0, [r1]
|
---|
339 | msr basepri , r0
|
---|
340 | bx r2 /* ^[ */
|
---|
341 |
|
---|
342 | /*
|
---|
343 | * fBXpb`Ì®ìJn
|
---|
344 | */
|
---|
345 | .align 2
|
---|
346 | .thumb
|
---|
347 | .thumb_func
|
---|
348 | .globl start_dispatch
|
---|
349 | start_dispatch:
|
---|
350 | /*
|
---|
351 | * ±Ì[`ÍCJ[lN®ÉC·×ÄÌÝðÖ~µ½óÔ
|
---|
352 | * iÝbNóÔÆ¯jÅÄÑo³êéDܽCÝ[hiñ
|
---|
353 | * ^XNReLXgƯjÅÄÑo³ê鱯ðzèµÄ¢éD
|
---|
354 | *
|
---|
355 | * prc_initializeÅClock_flagðtrueÉCsaved_iipmðIIPM_ENAALLÉ
|
---|
356 | * ú»µÄ¢é½ßCJ[lÇOÌÝðÂ·é±ÆÅC
|
---|
357 | * CPUbNóÔEifãÌjÝDæx}XNSðóÔÉÈéD
|
---|
358 | * ܽCtask_initializeÅdisdspðfalseÉú»µÄ¢é½ßCfB
|
---|
359 | * Xpb`ÂóÔÉÈÁÄ¢éD
|
---|
360 | */
|
---|
361 | ldr r0,=istkpt /* MSPðú» */
|
---|
362 | ldr r1,[r0] /* start_dispatchÄÑoµÉÄÑoµpÉ */
|
---|
363 | msr msp, r1 /* gpµÄ¢é½ßú»·é */
|
---|
364 | ldr r1, =IIPM_LOCK /* J[lÇàÌÝðÖ~ */
|
---|
365 | msr basepri, r1
|
---|
366 | cpsie f /* J[lÇOÌÝð */
|
---|
367 | b dispatcher
|
---|
368 |
|
---|
369 | /*
|
---|
370 | * J[lÌI¹ÌÄoµ
|
---|
371 | *
|
---|
372 | * X^bNðñ^XNReLXgpÉØèÖ¦D
|
---|
373 | *
|
---|
374 | */
|
---|
375 | .text
|
---|
376 | .syntax unified
|
---|
377 | .code 16
|
---|
378 | .globl call_exit_kernel
|
---|
379 | .type call_exit_kernel, function
|
---|
380 | call_exit_kernel:
|
---|
381 | b exit_kernel /* J[lÌI¹ðÄÔ */
|
---|
382 |
|
---|
383 |
|
---|
384 | /*
|
---|
385 | * ÷ÔÒ¿
|
---|
386 | */
|
---|
387 | .text
|
---|
388 | .syntax unified
|
---|
389 | .code 16
|
---|
390 | .globl sil_dly_nse
|
---|
391 | .type sil_dly_nse, function
|
---|
392 | sil_dly_nse:
|
---|
393 | sub r0, r0, #SIL_DLY_TIM1
|
---|
394 | cmp r0, #0
|
---|
395 | bgt sil_dly_nse1
|
---|
396 | mov pc, lr
|
---|
397 | sil_dly_nse1:
|
---|
398 | sub r0, r0, #SIL_DLY_TIM2
|
---|
399 | cmp r0, #0
|
---|
400 | bgt sil_dly_nse1
|
---|
401 | mov pc, lr
|
---|