![](/media/cache/profiles/debfdc81854eac26ec993b55a659c6e1.jpg.50x50_q85.jpg)
mbed client lightswitch demo
Dependencies: mbed Socket lwip-eth lwip-sys lwip
Fork of mbed-client-classic-example-lwip by
mbed-rtos/rtx/TARGET_CORTEX_A/TOOLCHAIN_ARM/HAL_CA9.c@11:cada08fc8a70, 2016-06-09 (annotated)
- Committer:
- mbedAustin
- Date:
- Thu Jun 09 17:08:36 2016 +0000
- Revision:
- 11:cada08fc8a70
Commit for public Consumption
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
mbedAustin | 11:cada08fc8a70 | 1 | /*---------------------------------------------------------------------------- |
mbedAustin | 11:cada08fc8a70 | 2 | * RL-ARM - RTX |
mbedAustin | 11:cada08fc8a70 | 3 | *---------------------------------------------------------------------------- |
mbedAustin | 11:cada08fc8a70 | 4 | * Name: HAL_CA9.c |
mbedAustin | 11:cada08fc8a70 | 5 | * Purpose: Hardware Abstraction Layer for Cortex-A9 |
mbedAustin | 11:cada08fc8a70 | 6 | * Rev.: 8 April 2015 |
mbedAustin | 11:cada08fc8a70 | 7 | *---------------------------------------------------------------------------- |
mbedAustin | 11:cada08fc8a70 | 8 | * |
mbedAustin | 11:cada08fc8a70 | 9 | * Copyright (c) 2012 - 2015 ARM Limited |
mbedAustin | 11:cada08fc8a70 | 10 | * All rights reserved. |
mbedAustin | 11:cada08fc8a70 | 11 | * Redistribution and use in source and binary forms, with or without |
mbedAustin | 11:cada08fc8a70 | 12 | * modification, are permitted provided that the following conditions are met: |
mbedAustin | 11:cada08fc8a70 | 13 | * - Redistributions of source code must retain the above copyright |
mbedAustin | 11:cada08fc8a70 | 14 | * notice, this list of conditions and the following disclaimer. |
mbedAustin | 11:cada08fc8a70 | 15 | * - Redistributions in binary form must reproduce the above copyright |
mbedAustin | 11:cada08fc8a70 | 16 | * notice, this list of conditions and the following disclaimer in the |
mbedAustin | 11:cada08fc8a70 | 17 | * documentation and/or other materials provided with the distribution. |
mbedAustin | 11:cada08fc8a70 | 18 | * - Neither the name of ARM nor the names of its contributors may be used |
mbedAustin | 11:cada08fc8a70 | 19 | * to endorse or promote products derived from this software without |
mbedAustin | 11:cada08fc8a70 | 20 | * specific prior written permission. |
mbedAustin | 11:cada08fc8a70 | 21 | * |
mbedAustin | 11:cada08fc8a70 | 22 | * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" |
mbedAustin | 11:cada08fc8a70 | 23 | * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
mbedAustin | 11:cada08fc8a70 | 24 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
mbedAustin | 11:cada08fc8a70 | 25 | * ARE DISCLAIMED. IN NO EVENT SHALL COPYRIGHT HOLDERS AND CONTRIBUTORS BE |
mbedAustin | 11:cada08fc8a70 | 26 | * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR |
mbedAustin | 11:cada08fc8a70 | 27 | * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF |
mbedAustin | 11:cada08fc8a70 | 28 | * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS |
mbedAustin | 11:cada08fc8a70 | 29 | * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN |
mbedAustin | 11:cada08fc8a70 | 30 | * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) |
mbedAustin | 11:cada08fc8a70 | 31 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
mbedAustin | 11:cada08fc8a70 | 32 | * POSSIBILITY OF SUCH DAMAGE. |
mbedAustin | 11:cada08fc8a70 | 33 | *---------------------------------------------------------------------------*/ |
mbedAustin | 11:cada08fc8a70 | 34 | |
mbedAustin | 11:cada08fc8a70 | 35 | #include "rt_TypeDef.h" |
mbedAustin | 11:cada08fc8a70 | 36 | #include "RTX_Config.h" |
mbedAustin | 11:cada08fc8a70 | 37 | #include "rt_System.h" |
mbedAustin | 11:cada08fc8a70 | 38 | #include "rt_Task.h" |
mbedAustin | 11:cada08fc8a70 | 39 | #include "rt_List.h" |
mbedAustin | 11:cada08fc8a70 | 40 | #include "rt_MemBox.h" |
mbedAustin | 11:cada08fc8a70 | 41 | #include "rt_HAL_CA.h" |
mbedAustin | 11:cada08fc8a70 | 42 | |
mbedAustin | 11:cada08fc8a70 | 43 | |
mbedAustin | 11:cada08fc8a70 | 44 | /*---------------------------------------------------------------------------- |
mbedAustin | 11:cada08fc8a70 | 45 | * Functions |
mbedAustin | 11:cada08fc8a70 | 46 | *---------------------------------------------------------------------------*/ |
mbedAustin | 11:cada08fc8a70 | 47 | |
mbedAustin | 11:cada08fc8a70 | 48 | //For A-class, set USR/SYS stack |
mbedAustin | 11:cada08fc8a70 | 49 | __asm void rt_set_PSP (U32 stack) { |
mbedAustin | 11:cada08fc8a70 | 50 | ARM |
mbedAustin | 11:cada08fc8a70 | 51 | |
mbedAustin | 11:cada08fc8a70 | 52 | MRS R1, CPSR |
mbedAustin | 11:cada08fc8a70 | 53 | CPS #MODE_SYS ;no effect in USR mode |
mbedAustin | 11:cada08fc8a70 | 54 | ISB |
mbedAustin | 11:cada08fc8a70 | 55 | MOV SP, R0 |
mbedAustin | 11:cada08fc8a70 | 56 | MSR CPSR_c, R1 ;no effect in USR mode |
mbedAustin | 11:cada08fc8a70 | 57 | ISB |
mbedAustin | 11:cada08fc8a70 | 58 | BX LR |
mbedAustin | 11:cada08fc8a70 | 59 | |
mbedAustin | 11:cada08fc8a70 | 60 | } |
mbedAustin | 11:cada08fc8a70 | 61 | |
mbedAustin | 11:cada08fc8a70 | 62 | //For A-class, get USR/SYS stack |
mbedAustin | 11:cada08fc8a70 | 63 | __asm U32 rt_get_PSP (void) { |
mbedAustin | 11:cada08fc8a70 | 64 | ARM |
mbedAustin | 11:cada08fc8a70 | 65 | |
mbedAustin | 11:cada08fc8a70 | 66 | MRS R1, CPSR |
mbedAustin | 11:cada08fc8a70 | 67 | CPS #MODE_SYS ;no effect in USR mode |
mbedAustin | 11:cada08fc8a70 | 68 | ISB |
mbedAustin | 11:cada08fc8a70 | 69 | MOV R0, SP |
mbedAustin | 11:cada08fc8a70 | 70 | MSR CPSR_c, R1 ;no effect in USR mode |
mbedAustin | 11:cada08fc8a70 | 71 | ISB |
mbedAustin | 11:cada08fc8a70 | 72 | BX LR |
mbedAustin | 11:cada08fc8a70 | 73 | } |
mbedAustin | 11:cada08fc8a70 | 74 | |
mbedAustin | 11:cada08fc8a70 | 75 | /*--------------------------- _alloc_box ------------------------------------*/ |
mbedAustin | 11:cada08fc8a70 | 76 | __asm void *_alloc_box (void *box_mem) { |
mbedAustin | 11:cada08fc8a70 | 77 | /* Function wrapper for Unprivileged/Privileged mode. */ |
mbedAustin | 11:cada08fc8a70 | 78 | ARM |
mbedAustin | 11:cada08fc8a70 | 79 | |
mbedAustin | 11:cada08fc8a70 | 80 | LDR R12,=__cpp(rt_alloc_box) |
mbedAustin | 11:cada08fc8a70 | 81 | MRS R2, CPSR |
mbedAustin | 11:cada08fc8a70 | 82 | LSLS R2, #28 |
mbedAustin | 11:cada08fc8a70 | 83 | BXNE R12 |
mbedAustin | 11:cada08fc8a70 | 84 | SVC 0 |
mbedAustin | 11:cada08fc8a70 | 85 | BX LR |
mbedAustin | 11:cada08fc8a70 | 86 | } |
mbedAustin | 11:cada08fc8a70 | 87 | |
mbedAustin | 11:cada08fc8a70 | 88 | |
mbedAustin | 11:cada08fc8a70 | 89 | /*--------------------------- _free_box -------------------------------------*/ |
mbedAustin | 11:cada08fc8a70 | 90 | __asm int _free_box (void *box_mem, void *box) { |
mbedAustin | 11:cada08fc8a70 | 91 | /* Function wrapper for Unprivileged/Privileged mode. */ |
mbedAustin | 11:cada08fc8a70 | 92 | ARM |
mbedAustin | 11:cada08fc8a70 | 93 | |
mbedAustin | 11:cada08fc8a70 | 94 | LDR R12,=__cpp(rt_free_box) |
mbedAustin | 11:cada08fc8a70 | 95 | MRS R2, CPSR |
mbedAustin | 11:cada08fc8a70 | 96 | LSLS R2, #28 |
mbedAustin | 11:cada08fc8a70 | 97 | BXNE R12 |
mbedAustin | 11:cada08fc8a70 | 98 | SVC 0 |
mbedAustin | 11:cada08fc8a70 | 99 | BX LR |
mbedAustin | 11:cada08fc8a70 | 100 | |
mbedAustin | 11:cada08fc8a70 | 101 | } |
mbedAustin | 11:cada08fc8a70 | 102 | |
mbedAustin | 11:cada08fc8a70 | 103 | /*-------------------------- SVC_Handler -----------------------------------*/ |
mbedAustin | 11:cada08fc8a70 | 104 | |
mbedAustin | 11:cada08fc8a70 | 105 | #pragma push |
mbedAustin | 11:cada08fc8a70 | 106 | #pragma arm |
mbedAustin | 11:cada08fc8a70 | 107 | __asm void SVC_Handler (void) { |
mbedAustin | 11:cada08fc8a70 | 108 | PRESERVE8 |
mbedAustin | 11:cada08fc8a70 | 109 | ARM |
mbedAustin | 11:cada08fc8a70 | 110 | |
mbedAustin | 11:cada08fc8a70 | 111 | IMPORT rt_tsk_lock |
mbedAustin | 11:cada08fc8a70 | 112 | IMPORT rt_tsk_unlock |
mbedAustin | 11:cada08fc8a70 | 113 | IMPORT SVC_Count |
mbedAustin | 11:cada08fc8a70 | 114 | IMPORT SVC_Table |
mbedAustin | 11:cada08fc8a70 | 115 | IMPORT rt_stk_check |
mbedAustin | 11:cada08fc8a70 | 116 | IMPORT FPUEnable |
mbedAustin | 11:cada08fc8a70 | 117 | IMPORT scheduler_suspended ; flag set by rt_suspend, cleared by rt_resume, read by SVC_Handler |
mbedAustin | 11:cada08fc8a70 | 118 | |
mbedAustin | 11:cada08fc8a70 | 119 | Mode_SVC EQU 0x13 |
mbedAustin | 11:cada08fc8a70 | 120 | |
mbedAustin | 11:cada08fc8a70 | 121 | SRSFD SP!, #Mode_SVC ; Push LR_SVC and SPRS_SVC onto SVC mode stack |
mbedAustin | 11:cada08fc8a70 | 122 | PUSH {R4} ; Push R4 so we can use it as a temp |
mbedAustin | 11:cada08fc8a70 | 123 | |
mbedAustin | 11:cada08fc8a70 | 124 | MRS R4,SPSR ; Get SPSR |
mbedAustin | 11:cada08fc8a70 | 125 | TST R4,#CPSR_T_BIT ; Check Thumb Bit |
mbedAustin | 11:cada08fc8a70 | 126 | LDRNEH R4,[LR,#-2] ; Thumb: Load Halfword |
mbedAustin | 11:cada08fc8a70 | 127 | BICNE R4,R4,#0xFF00 ; Extract SVC Number |
mbedAustin | 11:cada08fc8a70 | 128 | LDREQ R4,[LR,#-4] ; ARM: Load Word |
mbedAustin | 11:cada08fc8a70 | 129 | BICEQ R4,R4,#0xFF000000 ; Extract SVC Number |
mbedAustin | 11:cada08fc8a70 | 130 | |
mbedAustin | 11:cada08fc8a70 | 131 | /* Lock out systick and re-enable interrupts */ |
mbedAustin | 11:cada08fc8a70 | 132 | PUSH {R0-R3,R12,LR} |
mbedAustin | 11:cada08fc8a70 | 133 | |
mbedAustin | 11:cada08fc8a70 | 134 | AND R12, SP, #4 ; Ensure stack is 8-byte aligned |
mbedAustin | 11:cada08fc8a70 | 135 | SUB SP, SP, R12 ; Adjust stack |
mbedAustin | 11:cada08fc8a70 | 136 | PUSH {R12, LR} ; Store stack adjustment and dummy LR to SVC stack |
mbedAustin | 11:cada08fc8a70 | 137 | |
mbedAustin | 11:cada08fc8a70 | 138 | BLX rt_tsk_lock |
mbedAustin | 11:cada08fc8a70 | 139 | CPSIE i |
mbedAustin | 11:cada08fc8a70 | 140 | |
mbedAustin | 11:cada08fc8a70 | 141 | POP {R12, LR} ; Get stack adjustment & discard dummy LR |
mbedAustin | 11:cada08fc8a70 | 142 | ADD SP, SP, R12 ; Unadjust stack |
mbedAustin | 11:cada08fc8a70 | 143 | |
mbedAustin | 11:cada08fc8a70 | 144 | POP {R0-R3,R12,LR} |
mbedAustin | 11:cada08fc8a70 | 145 | |
mbedAustin | 11:cada08fc8a70 | 146 | CMP R4,#0 |
mbedAustin | 11:cada08fc8a70 | 147 | BNE SVC_User |
mbedAustin | 11:cada08fc8a70 | 148 | |
mbedAustin | 11:cada08fc8a70 | 149 | MRS R4,SPSR |
mbedAustin | 11:cada08fc8a70 | 150 | PUSH {R4} ; Push R4 so we can use it as a temp |
mbedAustin | 11:cada08fc8a70 | 151 | AND R4, SP, #4 ; Ensure stack is 8-byte aligned |
mbedAustin | 11:cada08fc8a70 | 152 | SUB SP, SP, R4 ; Adjust stack |
mbedAustin | 11:cada08fc8a70 | 153 | PUSH {R4, LR} ; Store stack adjustment and dummy LR |
mbedAustin | 11:cada08fc8a70 | 154 | BLX R12 |
mbedAustin | 11:cada08fc8a70 | 155 | POP {R4, LR} ; Get stack adjustment & discard dummy LR |
mbedAustin | 11:cada08fc8a70 | 156 | ADD SP, SP, R4 ; Unadjust stack |
mbedAustin | 11:cada08fc8a70 | 157 | POP {R4} ; Restore R4 |
mbedAustin | 11:cada08fc8a70 | 158 | MSR SPSR_CXSF,R4 |
mbedAustin | 11:cada08fc8a70 | 159 | |
mbedAustin | 11:cada08fc8a70 | 160 | /* Here we will be in SVC mode (even if coming in from PendSV_Handler or OS_Tick_Handler) */ |
mbedAustin | 11:cada08fc8a70 | 161 | Sys_Switch |
mbedAustin | 11:cada08fc8a70 | 162 | LDR LR,=__cpp(&os_tsk) |
mbedAustin | 11:cada08fc8a70 | 163 | LDM LR,{R4,LR} ; os_tsk.run, os_tsk.new_tsk |
mbedAustin | 11:cada08fc8a70 | 164 | CMP R4,LR |
mbedAustin | 11:cada08fc8a70 | 165 | BNE switching |
mbedAustin | 11:cada08fc8a70 | 166 | |
mbedAustin | 11:cada08fc8a70 | 167 | PUSH {R0-R3,R12,LR} |
mbedAustin | 11:cada08fc8a70 | 168 | |
mbedAustin | 11:cada08fc8a70 | 169 | AND R12, SP, #4 ; Ensure stack is 8-byte aligned |
mbedAustin | 11:cada08fc8a70 | 170 | SUB SP, SP, R12 ; Adjust stack |
mbedAustin | 11:cada08fc8a70 | 171 | PUSH {R12, LR} ; Store stack adjustment and dummy LR to SVC stack |
mbedAustin | 11:cada08fc8a70 | 172 | |
mbedAustin | 11:cada08fc8a70 | 173 | CPSID i |
mbedAustin | 11:cada08fc8a70 | 174 | ; Do not unlock scheduler if it has just been suspended by rt_suspend() |
mbedAustin | 11:cada08fc8a70 | 175 | LDR R1,=scheduler_suspended |
mbedAustin | 11:cada08fc8a70 | 176 | LDRB R0, [R1] |
mbedAustin | 11:cada08fc8a70 | 177 | CMP R0, #1 |
mbedAustin | 11:cada08fc8a70 | 178 | BEQ dont_unlock |
mbedAustin | 11:cada08fc8a70 | 179 | BLX rt_tsk_unlock |
mbedAustin | 11:cada08fc8a70 | 180 | dont_unlock |
mbedAustin | 11:cada08fc8a70 | 181 | |
mbedAustin | 11:cada08fc8a70 | 182 | POP {R12, LR} ; Get stack adjustment & discard dummy LR |
mbedAustin | 11:cada08fc8a70 | 183 | ADD SP, SP, R12 ; Unadjust stack |
mbedAustin | 11:cada08fc8a70 | 184 | |
mbedAustin | 11:cada08fc8a70 | 185 | POP {R0-R3,R12,LR} |
mbedAustin | 11:cada08fc8a70 | 186 | POP {R4} |
mbedAustin | 11:cada08fc8a70 | 187 | RFEFD SP! ; Return from exception, no task switch |
mbedAustin | 11:cada08fc8a70 | 188 | |
mbedAustin | 11:cada08fc8a70 | 189 | switching |
mbedAustin | 11:cada08fc8a70 | 190 | CLREX |
mbedAustin | 11:cada08fc8a70 | 191 | CMP R4,#0 |
mbedAustin | 11:cada08fc8a70 | 192 | ADDEQ SP,SP,#12 ; Original R4, LR & SPSR do not need to be popped when we are paging in a different task |
mbedAustin | 11:cada08fc8a70 | 193 | BEQ SVC_Next ; Runtask deleted? |
mbedAustin | 11:cada08fc8a70 | 194 | |
mbedAustin | 11:cada08fc8a70 | 195 | |
mbedAustin | 11:cada08fc8a70 | 196 | PUSH {R8-R11} //R4 and LR already stacked |
mbedAustin | 11:cada08fc8a70 | 197 | MOV R10,R4 ; Preserve os_tsk.run |
mbedAustin | 11:cada08fc8a70 | 198 | MOV R11,LR ; Preserve os_tsk.new_tsk |
mbedAustin | 11:cada08fc8a70 | 199 | |
mbedAustin | 11:cada08fc8a70 | 200 | ADD R8,SP,#16 ; Unstack R4,LR |
mbedAustin | 11:cada08fc8a70 | 201 | LDMIA R8,{R4,LR} |
mbedAustin | 11:cada08fc8a70 | 202 | |
mbedAustin | 11:cada08fc8a70 | 203 | SUB SP,SP,#4 ; Make space on the stack for the next instn |
mbedAustin | 11:cada08fc8a70 | 204 | STMIA SP,{SP}^ ; Put User SP onto stack |
mbedAustin | 11:cada08fc8a70 | 205 | POP {R8} ; Pop User SP into R8 |
mbedAustin | 11:cada08fc8a70 | 206 | |
mbedAustin | 11:cada08fc8a70 | 207 | MRS R9,SPSR |
mbedAustin | 11:cada08fc8a70 | 208 | STMDB R8!,{R9} ; User CPSR |
mbedAustin | 11:cada08fc8a70 | 209 | STMDB R8!,{LR} ; User PC |
mbedAustin | 11:cada08fc8a70 | 210 | STMDB R8,{LR}^ ; User LR |
mbedAustin | 11:cada08fc8a70 | 211 | SUB R8,R8,#4 ; No writeback for store of User LR |
mbedAustin | 11:cada08fc8a70 | 212 | STMDB R8!,{R0-R3,R12} ; User R0-R3,R12 |
mbedAustin | 11:cada08fc8a70 | 213 | MOV R3,R10 ; os_tsk.run |
mbedAustin | 11:cada08fc8a70 | 214 | MOV LR,R11 ; os_tsk.new_tsk |
mbedAustin | 11:cada08fc8a70 | 215 | POP {R9-R12} |
mbedAustin | 11:cada08fc8a70 | 216 | ADD SP,SP,#12 ; Fix up SP for unstack of R4, LR & SPSR |
mbedAustin | 11:cada08fc8a70 | 217 | STMDB R8!,{R4-R7,R9-R12} ; User R4-R11 |
mbedAustin | 11:cada08fc8a70 | 218 | |
mbedAustin | 11:cada08fc8a70 | 219 | //If applicable, stack VFP/NEON state |
mbedAustin | 11:cada08fc8a70 | 220 | MRC p15,0,R1,c1,c0,2 ; VFP/NEON access enabled? (CPACR) |
mbedAustin | 11:cada08fc8a70 | 221 | AND R2,R1,#0x00F00000 |
mbedAustin | 11:cada08fc8a70 | 222 | CMP R2,#0x00F00000 |
mbedAustin | 11:cada08fc8a70 | 223 | BNE no_outgoing_vfp |
mbedAustin | 11:cada08fc8a70 | 224 | VMRS R2,FPSCR |
mbedAustin | 11:cada08fc8a70 | 225 | STMDB R8!,{R2,R4} ; Push FPSCR, maintain 8-byte alignment |
mbedAustin | 11:cada08fc8a70 | 226 | VSTMDB R8!,{D0-D15} |
mbedAustin | 11:cada08fc8a70 | 227 | VSTMDB R8!,{D16-D31} |
mbedAustin | 11:cada08fc8a70 | 228 | LDRB R2,[R3,#TCB_STACKF] ; Record in TCB that NEON/D32 state is stacked |
mbedAustin | 11:cada08fc8a70 | 229 | ORR R2,#4 |
mbedAustin | 11:cada08fc8a70 | 230 | STRB R2,[R3,#TCB_STACKF] |
mbedAustin | 11:cada08fc8a70 | 231 | |
mbedAustin | 11:cada08fc8a70 | 232 | no_outgoing_vfp |
mbedAustin | 11:cada08fc8a70 | 233 | STR R8,[R3,#TCB_TSTACK] |
mbedAustin | 11:cada08fc8a70 | 234 | MOV R4,LR |
mbedAustin | 11:cada08fc8a70 | 235 | |
mbedAustin | 11:cada08fc8a70 | 236 | PUSH {R4} ; Push R4 so we can use it as a temp |
mbedAustin | 11:cada08fc8a70 | 237 | AND R4, SP, #4 ; Ensure stack is 8-byte aligned |
mbedAustin | 11:cada08fc8a70 | 238 | SUB SP, SP, R4 ; Adjust stack |
mbedAustin | 11:cada08fc8a70 | 239 | PUSH {R4, LR} ; Store stack adjustment and dummy LR to SVC stack |
mbedAustin | 11:cada08fc8a70 | 240 | |
mbedAustin | 11:cada08fc8a70 | 241 | BLX rt_stk_check |
mbedAustin | 11:cada08fc8a70 | 242 | |
mbedAustin | 11:cada08fc8a70 | 243 | POP {R4, LR} ; Get stack adjustment & discard dummy LR |
mbedAustin | 11:cada08fc8a70 | 244 | ADD SP, SP, R4 ; Unadjust stack |
mbedAustin | 11:cada08fc8a70 | 245 | POP {R4} ; Restore R4 |
mbedAustin | 11:cada08fc8a70 | 246 | |
mbedAustin | 11:cada08fc8a70 | 247 | MOV LR,R4 |
mbedAustin | 11:cada08fc8a70 | 248 | |
mbedAustin | 11:cada08fc8a70 | 249 | SVC_Next //R4 == os_tsk.run, LR == os_tsk.new_tsk, R0-R3, R5-R12 corruptible |
mbedAustin | 11:cada08fc8a70 | 250 | LDR R1,=__cpp(&os_tsk) ; os_tsk.run = os_tsk.new_tsk |
mbedAustin | 11:cada08fc8a70 | 251 | STR LR,[R1] |
mbedAustin | 11:cada08fc8a70 | 252 | LDRB R1,[LR,#TCB_TID] ; os_tsk.run->task_id |
mbedAustin | 11:cada08fc8a70 | 253 | LSL R1,#8 ; Store PROCID |
mbedAustin | 11:cada08fc8a70 | 254 | MCR p15,0,R1,c13,c0,1 ; Write CONTEXTIDR |
mbedAustin | 11:cada08fc8a70 | 255 | |
mbedAustin | 11:cada08fc8a70 | 256 | LDR R0,[LR,#TCB_TSTACK] ; os_tsk.run->tsk_stack |
mbedAustin | 11:cada08fc8a70 | 257 | |
mbedAustin | 11:cada08fc8a70 | 258 | //Does incoming task have VFP/NEON state in stack? |
mbedAustin | 11:cada08fc8a70 | 259 | LDRB R3,[LR,#TCB_STACKF] |
mbedAustin | 11:cada08fc8a70 | 260 | ANDS R3, R3, #0x6 |
mbedAustin | 11:cada08fc8a70 | 261 | MRC p15,0,R1,c1,c0,2 ; Read CPACR |
mbedAustin | 11:cada08fc8a70 | 262 | ANDEQ R1,R1,#0xFF0FFFFF ; Disable VFP/NEON access if incoming task does not have stacked VFP/NEON state |
mbedAustin | 11:cada08fc8a70 | 263 | ORRNE R1,R1,#0x00F00000 ; Enable VFP/NEON access if incoming task does have stacked VFP/NEON state |
mbedAustin | 11:cada08fc8a70 | 264 | MCR p15,0,R1,c1,c0,2 ; Write CPACR |
mbedAustin | 11:cada08fc8a70 | 265 | BEQ no_incoming_vfp |
mbedAustin | 11:cada08fc8a70 | 266 | ISB ; We only need the sync if we enabled, otherwise we will context switch before next VFP/NEON instruction anyway |
mbedAustin | 11:cada08fc8a70 | 267 | VLDMIA R0!,{D16-D31} |
mbedAustin | 11:cada08fc8a70 | 268 | VLDMIA R0!,{D0-D15} |
mbedAustin | 11:cada08fc8a70 | 269 | LDR R2,[R0] |
mbedAustin | 11:cada08fc8a70 | 270 | VMSR FPSCR,R2 |
mbedAustin | 11:cada08fc8a70 | 271 | ADD R0,R0,#8 |
mbedAustin | 11:cada08fc8a70 | 272 | |
mbedAustin | 11:cada08fc8a70 | 273 | no_incoming_vfp |
mbedAustin | 11:cada08fc8a70 | 274 | LDR R1,[R0,#60] ; Restore User CPSR |
mbedAustin | 11:cada08fc8a70 | 275 | MSR SPSR_CXSF,R1 |
mbedAustin | 11:cada08fc8a70 | 276 | LDMIA R0!,{R4-R11} ; Restore User R4-R11 |
mbedAustin | 11:cada08fc8a70 | 277 | ADD R0,R0,#4 ; Restore User R1-R3,R12 |
mbedAustin | 11:cada08fc8a70 | 278 | LDMIA R0!,{R1-R3,R12} |
mbedAustin | 11:cada08fc8a70 | 279 | LDMIA R0,{LR}^ ; Restore User LR |
mbedAustin | 11:cada08fc8a70 | 280 | ADD R0,R0,#4 ; No writeback for load to user LR |
mbedAustin | 11:cada08fc8a70 | 281 | LDMIA R0!,{LR} ; Restore User PC |
mbedAustin | 11:cada08fc8a70 | 282 | ADD R0,R0,#4 ; Correct User SP for unstacked user CPSR |
mbedAustin | 11:cada08fc8a70 | 283 | |
mbedAustin | 11:cada08fc8a70 | 284 | PUSH {R0} ; Push R0 onto stack |
mbedAustin | 11:cada08fc8a70 | 285 | LDMIA SP,{SP}^ ; Get R0 off stack into User SP |
mbedAustin | 11:cada08fc8a70 | 286 | ADD SP,SP,#4 ; Put SP back |
mbedAustin | 11:cada08fc8a70 | 287 | |
mbedAustin | 11:cada08fc8a70 | 288 | LDR R0,[R0,#-32] ; Restore R0 |
mbedAustin | 11:cada08fc8a70 | 289 | |
mbedAustin | 11:cada08fc8a70 | 290 | PUSH {R0-R3,R12,LR} |
mbedAustin | 11:cada08fc8a70 | 291 | |
mbedAustin | 11:cada08fc8a70 | 292 | AND R12, SP, #4 ; Ensure stack is 8-byte aligned |
mbedAustin | 11:cada08fc8a70 | 293 | SUB SP, SP, R12 ; Adjust stack |
mbedAustin | 11:cada08fc8a70 | 294 | PUSH {R12, LR} ; Store stack adjustment and dummy LR to SVC stack |
mbedAustin | 11:cada08fc8a70 | 295 | |
mbedAustin | 11:cada08fc8a70 | 296 | CPSID i |
mbedAustin | 11:cada08fc8a70 | 297 | BLX rt_tsk_unlock |
mbedAustin | 11:cada08fc8a70 | 298 | |
mbedAustin | 11:cada08fc8a70 | 299 | POP {R12, LR} ; Get stack adjustment & discard dummy LR |
mbedAustin | 11:cada08fc8a70 | 300 | ADD SP, SP, R12 ; Unadjust stack |
mbedAustin | 11:cada08fc8a70 | 301 | |
mbedAustin | 11:cada08fc8a70 | 302 | POP {R0-R3,R12,LR} |
mbedAustin | 11:cada08fc8a70 | 303 | |
mbedAustin | 11:cada08fc8a70 | 304 | MOVS PC,LR ; Return from exception |
mbedAustin | 11:cada08fc8a70 | 305 | |
mbedAustin | 11:cada08fc8a70 | 306 | |
mbedAustin | 11:cada08fc8a70 | 307 | /*------------------- User SVC -------------------------------*/ |
mbedAustin | 11:cada08fc8a70 | 308 | |
mbedAustin | 11:cada08fc8a70 | 309 | SVC_User |
mbedAustin | 11:cada08fc8a70 | 310 | LDR R12,=SVC_Count |
mbedAustin | 11:cada08fc8a70 | 311 | LDR R12,[R12] |
mbedAustin | 11:cada08fc8a70 | 312 | CMP R4,R12 ; Check for overflow |
mbedAustin | 11:cada08fc8a70 | 313 | BHI SVC_Done |
mbedAustin | 11:cada08fc8a70 | 314 | |
mbedAustin | 11:cada08fc8a70 | 315 | LDR R12,=SVC_Table-4 |
mbedAustin | 11:cada08fc8a70 | 316 | LDR R12,[R12,R4,LSL #2] ; Load SVC Function Address |
mbedAustin | 11:cada08fc8a70 | 317 | MRS R4,SPSR ; Save SPSR |
mbedAustin | 11:cada08fc8a70 | 318 | PUSH {R4} ; Push R4 so we can use it as a temp |
mbedAustin | 11:cada08fc8a70 | 319 | AND R4, SP, #4 ; Ensure stack is 8-byte aligned |
mbedAustin | 11:cada08fc8a70 | 320 | SUB SP, SP, R4 ; Adjust stack |
mbedAustin | 11:cada08fc8a70 | 321 | PUSH {R4, LR} ; Store stack adjustment and dummy LR |
mbedAustin | 11:cada08fc8a70 | 322 | BLX R12 ; Call SVC Function |
mbedAustin | 11:cada08fc8a70 | 323 | POP {R4, LR} ; Get stack adjustment & discard dummy LR |
mbedAustin | 11:cada08fc8a70 | 324 | ADD SP, SP, R4 ; Unadjust stack |
mbedAustin | 11:cada08fc8a70 | 325 | POP {R4} ; Restore R4 |
mbedAustin | 11:cada08fc8a70 | 326 | MSR SPSR_CXSF,R4 ; Restore SPSR |
mbedAustin | 11:cada08fc8a70 | 327 | |
mbedAustin | 11:cada08fc8a70 | 328 | SVC_Done |
mbedAustin | 11:cada08fc8a70 | 329 | PUSH {R0-R3,R12,LR} |
mbedAustin | 11:cada08fc8a70 | 330 | |
mbedAustin | 11:cada08fc8a70 | 331 | PUSH {R4} ; Push R4 so we can use it as a temp |
mbedAustin | 11:cada08fc8a70 | 332 | AND R4, SP, #4 ; Ensure stack is 8-byte aligned |
mbedAustin | 11:cada08fc8a70 | 333 | SUB SP, SP, R4 ; Adjust stack |
mbedAustin | 11:cada08fc8a70 | 334 | PUSH {R4, LR} ; Store stack adjustment and dummy LR |
mbedAustin | 11:cada08fc8a70 | 335 | |
mbedAustin | 11:cada08fc8a70 | 336 | CPSID i |
mbedAustin | 11:cada08fc8a70 | 337 | BLX rt_tsk_unlock |
mbedAustin | 11:cada08fc8a70 | 338 | |
mbedAustin | 11:cada08fc8a70 | 339 | POP {R4, LR} ; Get stack adjustment & discard dummy LR |
mbedAustin | 11:cada08fc8a70 | 340 | ADD SP, SP, R4 ; Unadjust stack |
mbedAustin | 11:cada08fc8a70 | 341 | POP {R4} ; Restore R4 |
mbedAustin | 11:cada08fc8a70 | 342 | |
mbedAustin | 11:cada08fc8a70 | 343 | POP {R0-R3,R12,LR} |
mbedAustin | 11:cada08fc8a70 | 344 | POP {R4} |
mbedAustin | 11:cada08fc8a70 | 345 | RFEFD SP! ; Return from exception |
mbedAustin | 11:cada08fc8a70 | 346 | } |
mbedAustin | 11:cada08fc8a70 | 347 | #pragma pop |
mbedAustin | 11:cada08fc8a70 | 348 | |
mbedAustin | 11:cada08fc8a70 | 349 | #pragma push |
mbedAustin | 11:cada08fc8a70 | 350 | #pragma arm |
mbedAustin | 11:cada08fc8a70 | 351 | __asm void PendSV_Handler (U32 IRQn) { |
mbedAustin | 11:cada08fc8a70 | 352 | ARM |
mbedAustin | 11:cada08fc8a70 | 353 | |
mbedAustin | 11:cada08fc8a70 | 354 | IMPORT rt_tsk_lock |
mbedAustin | 11:cada08fc8a70 | 355 | IMPORT IRQNestLevel ; Flag indicates whether inside an ISR, and the depth of nesting. 0 = not in ISR. |
mbedAustin | 11:cada08fc8a70 | 356 | IMPORT seen_id0_active ; Flag used to workaround GIC 390 errata 733075 - set in startup_Renesas_RZ_A1.s |
mbedAustin | 11:cada08fc8a70 | 357 | |
mbedAustin | 11:cada08fc8a70 | 358 | ADD SP,SP,#8 //fix up stack pointer (R0 has been pushed and will never be popped, R1 was pushed for stack alignment) |
mbedAustin | 11:cada08fc8a70 | 359 | |
mbedAustin | 11:cada08fc8a70 | 360 | //Disable systick interrupts, then write EOIR. We want interrupts disabled before we enter the context switcher. |
mbedAustin | 11:cada08fc8a70 | 361 | PUSH {R0, R1} |
mbedAustin | 11:cada08fc8a70 | 362 | BLX rt_tsk_lock |
mbedAustin | 11:cada08fc8a70 | 363 | POP {R0, R1} |
mbedAustin | 11:cada08fc8a70 | 364 | LDR R1, =__cpp(&GICInterface_BASE) |
mbedAustin | 11:cada08fc8a70 | 365 | LDR R1, [R1, #0] |
mbedAustin | 11:cada08fc8a70 | 366 | STR R0, [R1, #0x10] |
mbedAustin | 11:cada08fc8a70 | 367 | |
mbedAustin | 11:cada08fc8a70 | 368 | ; If it was interrupt ID0, clear the seen flag, otherwise return as normal |
mbedAustin | 11:cada08fc8a70 | 369 | CMP R0, #0 |
mbedAustin | 11:cada08fc8a70 | 370 | LDREQ R1, =seen_id0_active |
mbedAustin | 11:cada08fc8a70 | 371 | STRBEQ R0, [R1] ; Clear the seen flag, using R0 (which is 0), to save loading another register |
mbedAustin | 11:cada08fc8a70 | 372 | |
mbedAustin | 11:cada08fc8a70 | 373 | LDR R0, =IRQNestLevel ; Get address of nesting counter |
mbedAustin | 11:cada08fc8a70 | 374 | LDR R1, [R0] |
mbedAustin | 11:cada08fc8a70 | 375 | SUB R1, R1, #1 ; Decrement nesting counter |
mbedAustin | 11:cada08fc8a70 | 376 | STR R1, [R0] |
mbedAustin | 11:cada08fc8a70 | 377 | |
mbedAustin | 11:cada08fc8a70 | 378 | BLX __cpp(rt_pop_req) |
mbedAustin | 11:cada08fc8a70 | 379 | |
mbedAustin | 11:cada08fc8a70 | 380 | POP {R1, LR} ; Get stack adjustment & discard dummy LR |
mbedAustin | 11:cada08fc8a70 | 381 | ADD SP, SP, R1 ; Unadjust stack |
mbedAustin | 11:cada08fc8a70 | 382 | |
mbedAustin | 11:cada08fc8a70 | 383 | LDR R0,[SP,#24] |
mbedAustin | 11:cada08fc8a70 | 384 | MSR SPSR_CXSF,R0 |
mbedAustin | 11:cada08fc8a70 | 385 | POP {R0-R3,R12} ; Leave SPSR & LR on the stack |
mbedAustin | 11:cada08fc8a70 | 386 | PUSH {R4} |
mbedAustin | 11:cada08fc8a70 | 387 | B Sys_Switch |
mbedAustin | 11:cada08fc8a70 | 388 | } |
mbedAustin | 11:cada08fc8a70 | 389 | #pragma pop |
mbedAustin | 11:cada08fc8a70 | 390 | |
mbedAustin | 11:cada08fc8a70 | 391 | |
mbedAustin | 11:cada08fc8a70 | 392 | #pragma push |
mbedAustin | 11:cada08fc8a70 | 393 | #pragma arm |
mbedAustin | 11:cada08fc8a70 | 394 | __asm void OS_Tick_Handler (U32 IRQn) { |
mbedAustin | 11:cada08fc8a70 | 395 | ARM |
mbedAustin | 11:cada08fc8a70 | 396 | |
mbedAustin | 11:cada08fc8a70 | 397 | IMPORT rt_tsk_lock |
mbedAustin | 11:cada08fc8a70 | 398 | IMPORT IRQNestLevel ; Flag indicates whether inside an ISR, and the depth of nesting. 0 = not in ISR. |
mbedAustin | 11:cada08fc8a70 | 399 | IMPORT seen_id0_active ; Flag used to workaround GIC 390 errata 733075 - set in startup_Renesas_RZ_A1.s |
mbedAustin | 11:cada08fc8a70 | 400 | |
mbedAustin | 11:cada08fc8a70 | 401 | ADD SP,SP,#8 //fix up stack pointer (R0 has been pushed and will never be popped, R1 was pushed for stack alignment) |
mbedAustin | 11:cada08fc8a70 | 402 | |
mbedAustin | 11:cada08fc8a70 | 403 | PUSH {R0, R1} |
mbedAustin | 11:cada08fc8a70 | 404 | BLX rt_tsk_lock |
mbedAustin | 11:cada08fc8a70 | 405 | POP {R0, R1} |
mbedAustin | 11:cada08fc8a70 | 406 | LDR R1, =__cpp(&GICInterface_BASE) |
mbedAustin | 11:cada08fc8a70 | 407 | LDR R1, [R1, #0] |
mbedAustin | 11:cada08fc8a70 | 408 | STR R0, [R1, #0x10] |
mbedAustin | 11:cada08fc8a70 | 409 | |
mbedAustin | 11:cada08fc8a70 | 410 | ; If it was interrupt ID0, clear the seen flag, otherwise return as normal |
mbedAustin | 11:cada08fc8a70 | 411 | CMP R0, #0 |
mbedAustin | 11:cada08fc8a70 | 412 | LDREQ R1, =seen_id0_active |
mbedAustin | 11:cada08fc8a70 | 413 | STRBEQ R0, [R1] ; Clear the seen flag, using R0 (which is 0), to save loading another register |
mbedAustin | 11:cada08fc8a70 | 414 | |
mbedAustin | 11:cada08fc8a70 | 415 | LDR R0, =IRQNestLevel ; Get address of nesting counter |
mbedAustin | 11:cada08fc8a70 | 416 | LDR R1, [R0] |
mbedAustin | 11:cada08fc8a70 | 417 | SUB R1, R1, #1 ; Decrement nesting counter |
mbedAustin | 11:cada08fc8a70 | 418 | STR R1, [R0] |
mbedAustin | 11:cada08fc8a70 | 419 | |
mbedAustin | 11:cada08fc8a70 | 420 | BLX __cpp(os_tick_irqack) |
mbedAustin | 11:cada08fc8a70 | 421 | BLX __cpp(rt_systick) |
mbedAustin | 11:cada08fc8a70 | 422 | |
mbedAustin | 11:cada08fc8a70 | 423 | POP {R1, LR} ; Get stack adjustment & discard dummy LR |
mbedAustin | 11:cada08fc8a70 | 424 | ADD SP, SP, R1 ; Unadjust stack |
mbedAustin | 11:cada08fc8a70 | 425 | |
mbedAustin | 11:cada08fc8a70 | 426 | LDR R0,[SP,#24] |
mbedAustin | 11:cada08fc8a70 | 427 | MSR SPSR_CXSF,R0 |
mbedAustin | 11:cada08fc8a70 | 428 | POP {R0-R3,R12} ; Leave SPSR & LR on the stack |
mbedAustin | 11:cada08fc8a70 | 429 | PUSH {R4} |
mbedAustin | 11:cada08fc8a70 | 430 | B Sys_Switch |
mbedAustin | 11:cada08fc8a70 | 431 | } |
mbedAustin | 11:cada08fc8a70 | 432 | #pragma pop |
mbedAustin | 11:cada08fc8a70 | 433 | |
mbedAustin | 11:cada08fc8a70 | 434 | |
mbedAustin | 11:cada08fc8a70 | 435 | /*---------------------------------------------------------------------------- |
mbedAustin | 11:cada08fc8a70 | 436 | * end of file |
mbedAustin | 11:cada08fc8a70 | 437 | *---------------------------------------------------------------------------*/ |