/* * Copyright (c) 2006-2018, RT-Thread Development Team * * SPDX-License-Identifier: Apache-2.0 * * Change Logs: * Date Author Notes * 2009-10-11 Bernard first version * 2012-01-01 aozima support context switch load/store FPU register. * 2013-06-18 aozima add restore MSP feature. * 2013-06-23 aozima support lazy stack optimized. * 2018-07-24 aozima enhancement hard fault exception handler. */ /** * @addtogroup cortex-m4 */ /*@{*/ .cpu cortex-m4 .syntax unified .thumb .text .equ SCB_VTOR, 0xE000ED08 /* Vector Table Offset Register */ .equ NVIC_INT_CTRL, 0xE000ED04 /* interrupt control state register */ .equ NVIC_SYSPRI2, 0xE000ED20 /* system priority register (2) */ .equ NVIC_PENDSV_PRI, 0x00FF0000 /* PendSV priority value (lowest) */ .equ NVIC_PENDSVSET, 0x10000000 /* value to trigger PendSV exception */ /* * rt_base_t rt_hw_interrupt_disable(); */ .global rt_hw_interrupt_disable .type rt_hw_interrupt_disable, %function rt_hw_interrupt_disable: MRS r0, PRIMASK CPSID I BX LR /* * void rt_hw_interrupt_enable(rt_base_t level); */ .global rt_hw_interrupt_enable .type rt_hw_interrupt_enable, %function rt_hw_interrupt_enable: MSR PRIMASK, r0 BX LR /* * void rt_hw_context_switch(rt_uint32 from, rt_uint32 to); * r0 --> from * r1 --> to */ .global rt_hw_context_switch_interrupt .type rt_hw_context_switch_interrupt, %function .global rt_hw_context_switch .type rt_hw_context_switch, %function rt_hw_context_switch_interrupt: rt_hw_context_switch: /* set rt_thread_switch_interrupt_flag to 1 */ LDR r2, =rt_thread_switch_interrupt_flag LDR r3, [r2] CMP r3, #1 BEQ _reswitch MOV r3, #1 STR r3, [r2] LDR r2, =rt_interrupt_from_thread /* set rt_interrupt_from_thread */ STR r0, [r2] _reswitch: LDR r2, =rt_interrupt_to_thread /* set rt_interrupt_to_thread */ STR r1, [r2] LDR r0, =NVIC_INT_CTRL /* trigger the PendSV exception (causes context switch) */ LDR r1, =NVIC_PENDSVSET STR r1, [r0] BX LR /* r0 --> switch from thread stack * r1 --> switch to thread stack * psr, pc, lr, r12, r3, r2, r1, r0 are pushed into [from] stack */ .global PendSV_Handler .type PendSV_Handler, %function PendSV_Handler: /* disable interrupt to protect context switch */ MRS r2, PRIMASK CPSID I /* get rt_thread_switch_interrupt_flag */ LDR r0, =rt_thread_switch_interrupt_flag /* r0 = &rt_thread_switch_interrupt_flag */ LDR r1, [r0] /* r1 = *r1 */ CMP r1, #0x00 /* compare r1 == 0x00 */ BNE schedule MSR PRIMASK, r2 /* if r1 == 0x00, do msr PRIMASK, r2 */ BX lr /* if r1 == 0x00, do bx lr */ schedule PUSH {r2} /* store interrupt state */ /* clear rt_thread_switch_interrupt_flag to 0 */ MOV r1, #0x00 /* r1 = 0x00 */ STR r1, [r0] /* *r0 = r1 */ /* skip register save at the first time */ LDR r0, =rt_interrupt_from_thread /* r0 = &rt_interrupt_from_thread */ LDR r1, [r0] /* r1 = *r0 */ CBZ r1, switch_to_thread /* if r1 == 0, goto switch_to_thread */ /* Whether TrustZone thread stack exists */ LDR r1, =rt_trustzone_current_context /* r1 = &rt_secure_current_context */ LDR r1, [r1] /* r1 = *r1 */ CBZ r1, contex_ns_store /* if r1 == 0, goto contex_ns_store */ /*call TrustZone fun, Save TrustZone stack */ STMFD sp!, {r0-r1, lr} /* push register */ MOV r0, r1 /* r0 = rt_secure_current_context */ BL rt_trustzone_context_store /* call TrustZone store fun */ LDMFD sp!, {r0-r1, lr} /* pop register */ /* check break from TrustZone */ MOV r2, lr /* r2 = lr */ TST r2, #0x40 /* if EXC_RETURN[6] is 1, TrustZone stack was used */ BEQ contex_ns_store /* if r2 & 0x40 == 0, goto contex_ns_store */ /* push PSPLIM CONTROL PSP LR current_context to stack */ MRS r3, psplim /* r3 = psplim */ MRS r4, control /* r4 = control */ MRS r5, psp /* r5 = psp */ STMFD r5!, {r1-r4} /* push to thread stack */ /* update from thread stack pointer */ LDR r0, [r0] /* r0 = rt_thread_switch_interrupt_flag */ STR r5, [r0] /* *r0 = r5 */ b switch_to_thread /* goto switch_to_thread */ contex_ns_store: MRS r1, psp /* get from thread stack pointer */ #if defined (__VFP_FP__) && !defined(__SOFTFP__) TST lr, #0x10 /* if(!EXC_RETURN[4]) */ VSTMDBEQ r1!, {d8 - d15} /* push FPU register s16~s31 */ #endif STMFD r1!, {r4 - r11} /* push r4 - r11 register */ LDR r2, =rt_trustzone_current_context /* r2 = &rt_secure_current_context */ LDR r2, [r2] /* r2 = *r2 */ MOV r3, lr /* r3 = lr */ MRS r4, psplim /* r4 = psplim */ MRS r5, control /* r5 = control */ STMFD r1!, {r2-r5} /* push to thread stack */ LDR r0, [r0] STR r1, [r0] /* update from thread stack pointer */ switch_to_thread: LDR r1, =rt_interrupt_to_thread LDR r1, [r1] LDR r1, [r1] /* load thread stack pointer */ /* update current TrustZone context */ LDMFD r1!, {r2-r5} /* pop thread stack */ MSR psplim, r4 /* psplim = r4 */ MSR control, r5 /* control = r5 */ MOV lr, r3 /* lr = r3 */ LDR r6, =rt_trustzone_current_context /* r6 = &rt_secure_current_context */ STR r2, [r6] /* *r6 = r2 */ MOV r0, r2 /* r0 = r2 */ /* Whether TrustZone thread stack exists */ CBZ r0, contex_ns_load /* if r0 == 0, goto contex_ns_load */ PUSH {r1, r3} /* push lr, thread_stack */ BL rt_trustzone_context_load /* call TrustZone load fun */ POP {r1, r3} /* pop lr, thread_stack */ MOV lr, r3 /* lr = r1 */ TST r3, #0x40 /* if EXC_RETURN[6] is 1, TrustZone stack was used */ BEQ contex_ns_load /* if r1 & 0x40 == 0, goto contex_ns_load */ B pendsv_exit contex_ns_load: LDMFD r1!, {r4 - r11} /* pop r4 - r11 register */ #if defined (__VFP_FP__) && !defined(__SOFTFP__) TST lr, #0x10 /* if(!EXC_RETURN[4]) */ VLDMIAEQ r1!, {d8 - d15} /* pop FPU register s16~s31 */ #endif pendsv_exit: MSR psp, r1 /* update stack pointer */ /* restore interrupt */ POP {r2} MSR PRIMASK, r2 BX lr /* * void rt_hw_context_switch_to(rt_uint32 to); * r0 --> to */ .global rt_hw_context_switch_to .type rt_hw_context_switch_to, %function rt_hw_context_switch_to: LDR r1, =rt_interrupt_to_thread STR r0, [r1] #if defined (__VFP_FP__) && !defined(__SOFTFP__) /* CLEAR CONTROL.FPCA */ MRS r2, CONTROL /* read */ BIC r2, #0x04 /* modify */ MSR CONTROL, r2 /* write-back */ #endif /* set from thread to 0 */ LDR r1, =rt_interrupt_from_thread MOV r0, #0x0 STR r0, [r1] /* set interrupt flag to 1 */ LDR r1, =rt_thread_switch_interrupt_flag MOV r0, #1 STR r0, [r1] /* set the PendSV exception priority */ LDR r0, =NVIC_SYSPRI2 LDR r1, =NVIC_PENDSV_PRI LDR.W r2, [r0,#0x00] /* read */ ORR r1,r1,r2 /* modify */ STR r1, [r0] /* write-back */ LDR r0, =NVIC_INT_CTRL /* trigger the PendSV exception (causes context switch) */ LDR r1, =NVIC_PENDSVSET STR r1, [r0] /* restore MSP */ LDR r0, =SCB_VTOR LDR r0, [r0] LDR r0, [r0] NOP MSR msp, r0 /* enable interrupts at processor level */ CPSIE F CPSIE I /* never reach here! */ /* compatible with old version */ .global rt_hw_interrupt_thread_switch .type rt_hw_interrupt_thread_switch, %function rt_hw_interrupt_thread_switch: BX lr NOP .global HardFault_Handler .type HardFault_Handler, %function HardFault_Handler: /* get current context */ MRS r0, msp /* get fault context from handler. */ TST lr, #0x04 /* if(!EXC_RETURN[2]) */ BEQ get_sp_done MRS r0, psp /* get fault context from thread. */ get_sp_done: STMFD r0!, {r4 - r11} /* push r4 - r11 register */ LDR r2, =rt_trustzone_current_context /* r2 = &rt_secure_current_context */ LDR r2, [r2] /* r2 = *r2 */ MOV r3, lr /* r3 = lr */ MRS r4, psplim /* r4 = psplim */ MRS r5, control /* r5 = control */ STMFD r0!, {r2-r5} /* push to thread stack */ STMFD r0!, {lr} /* push exec_return register */ TST lr, #0x04 /* if(!EXC_RETURN[2]) */ BEQ update_msp MSR psp, r0 /* update stack pointer to PSP. */ B update_done update_msp: MSR msp, r0 /* update stack pointer to MSP. */ update_done: PUSH {LR} BL rt_hw_hard_fault_exception POP {LR} ORR lr, lr, #0x04 BX lr