1 /* SPDX-License-Identifier: GPL-2.0-or-later */ 2 /* 3 * Code to process dynamic relocations for PPC32. 4 * 5 * Copyrights (C) IBM Corporation, 2011. 6 * Author: Suzuki Poulose <suzuki@in.ibm.com> 7 * 8 * - Based on ppc64 code - reloc_64.S 9 */ 10 11 #include <asm/ppc_asm.h> 12 13 /* Dynamic section table entry tags */ 14 DT_RELA = 7 /* Tag for Elf32_Rela section */ 15 DT_RELASZ = 8 /* Size of the Rela relocs */ 16 DT_RELAENT = 9 /* Size of one Rela reloc entry */ 17 18 STN_UNDEF = 0 /* Undefined symbol index */ 19 STB_LOCAL = 0 /* Local binding for the symbol */ 20 21 R_PPC_ADDR16_LO = 4 /* Lower half of (S+A) */ 22 R_PPC_ADDR16_HI = 5 /* Upper half of (S+A) */ 23 R_PPC_ADDR16_HA = 6 /* High Adjusted (S+A) */ 24 R_PPC_RELATIVE = 22 25 26 /* 27 * r3 = desired final address 28 */ 29 30 _GLOBAL(relocate) 31 32 mflr r0 /* Save our LR */ 33 bcl 20,31,$+4 /* Find our current runtime address */ 34 0: mflr r12 /* Make it accessible */ 35 mtlr r0 36 37 lwz r11, (p_dyn - 0b)(r12) 38 add r11, r11, r12 /* runtime address of .dynamic section */ 39 lwz r9, (p_rela - 0b)(r12) 40 add r9, r9, r12 /* runtime address of .rela.dyn section */ 41 lwz r10, (p_st - 0b)(r12) 42 add r10, r10, r12 /* runtime address of _stext section */ 43 lwz r13, (p_sym - 0b)(r12) 44 add r13, r13, r12 /* runtime address of .dynsym section */ 45 46 /* 47 * Scan the dynamic section for RELA, RELASZ entries 48 */ 49 li r6, 0 50 li r7, 0 51 li r8, 0 52 1: lwz r5, 0(r11) /* ELF_Dyn.d_tag */ 53 cmpwi r5, 0 /* End of ELF_Dyn[] */ 54 beq eodyn 55 cmpwi r5, DT_RELA 56 bne relasz 57 lwz r7, 4(r11) /* r7 = rela.link */ 58 b skip 59 relasz: 60 cmpwi r5, DT_RELASZ 61 bne relaent 62 lwz r8, 4(r11) /* r8 = Total Rela relocs size */ 63 b skip 64 relaent: 65 cmpwi r5, DT_RELAENT 66 bne skip 67 lwz r6, 4(r11) /* r6 = Size of one Rela reloc */ 68 skip: 69 addi r11, r11, 8 70 b 1b 71 eodyn: /* End of Dyn Table scan */ 72 73 /* Check if we have found all the entries */ 74 cmpwi r7, 0 75 beq done 76 cmpwi r8, 0 77 beq done 78 cmpwi r6, 0 79 beq done 80 81 82 /* 83 * Work out the current offset from the link time address of .rela 84 * section. 85 * cur_offset[r7] = rela.run[r9] - rela.link [r7] 86 * _stext.link[r12] = _stext.run[r10] - cur_offset[r7] 87 * final_offset[r3] = _stext.final[r3] - _stext.link[r12] 88 */ 89 subf r7, r7, r9 /* cur_offset */ 90 subf r12, r7, r10 91 subf r3, r12, r3 /* final_offset */ 92 93 subf r8, r6, r8 /* relaz -= relaent */ 94 /* 95 * Scan through the .rela table and process each entry 96 * r9 - points to the current .rela table entry 97 * r13 - points to the symbol table 98 */ 99 100 /* 101 * Check if we have a relocation based on symbol 102 * r5 will hold the value of the symbol. 103 */ 104 applyrela: 105 lwz r4, 4(r9) /* r4 = rela.r_info */ 106 srwi r5, r4, 8 /* ELF32_R_SYM(r_info) */ 107 cmpwi r5, STN_UNDEF /* sym == STN_UNDEF ? */ 108 beq get_type /* value = 0 */ 109 /* Find the value of the symbol at index(r5) */ 110 slwi r5, r5, 4 /* r5 = r5 * sizeof(Elf32_Sym) */ 111 add r12, r13, r5 /* r12 = &__dyn_sym[Index] */ 112 113 /* 114 * GNU ld has a bug, where dynamic relocs based on 115 * STB_LOCAL symbols, the value should be assumed 116 * to be zero. - Alan Modra 117 */ 118 /* XXX: Do we need to check if we are using GNU ld ? */ 119 lbz r5, 12(r12) /* r5 = dyn_sym[Index].st_info */ 120 extrwi r5, r5, 4, 24 /* r5 = ELF32_ST_BIND(r5) */ 121 cmpwi r5, STB_LOCAL /* st_value = 0, ld bug */ 122 beq get_type /* We have r5 = 0 */ 123 lwz r5, 4(r12) /* r5 = __dyn_sym[Index].st_value */ 124 125 get_type: 126 /* Load the relocation type to r4 */ 127 extrwi r4, r4, 8, 24 /* r4 = ELF32_R_TYPE(r_info) = ((char*)r4)[3] */ 128 129 /* R_PPC_RELATIVE */ 130 cmpwi r4, R_PPC_RELATIVE 131 bne hi16 132 lwz r4, 0(r9) /* r_offset */ 133 lwz r0, 8(r9) /* r_addend */ 134 add r0, r0, r3 /* final addend */ 135 stwx r0, r4, r7 /* memory[r4+r7]) = (u32)r0 */ 136 b nxtrela /* continue */ 137 138 /* R_PPC_ADDR16_HI */ 139 hi16: 140 cmpwi r4, R_PPC_ADDR16_HI 141 bne ha16 142 lwz r4, 0(r9) /* r_offset */ 143 lwz r0, 8(r9) /* r_addend */ 144 add r0, r0, r3 145 add r0, r0, r5 /* r0 = (S+A+Offset) */ 146 extrwi r0, r0, 16, 0 /* r0 = (r0 >> 16) */ 147 b store_half 148 149 /* R_PPC_ADDR16_HA */ 150 ha16: 151 cmpwi r4, R_PPC_ADDR16_HA 152 bne lo16 153 lwz r4, 0(r9) /* r_offset */ 154 lwz r0, 8(r9) /* r_addend */ 155 add r0, r0, r3 156 add r0, r0, r5 /* r0 = (S+A+Offset) */ 157 extrwi r5, r0, 1, 16 /* Extract bit 16 */ 158 extrwi r0, r0, 16, 0 /* r0 = (r0 >> 16) */ 159 add r0, r0, r5 /* Add it to r0 */ 160 b store_half 161 162 /* R_PPC_ADDR16_LO */ 163 lo16: 164 cmpwi r4, R_PPC_ADDR16_LO 165 bne unknown_type 166 lwz r4, 0(r9) /* r_offset */ 167 lwz r0, 8(r9) /* r_addend */ 168 add r0, r0, r3 169 add r0, r0, r5 /* r0 = (S+A+Offset) */ 170 extrwi r0, r0, 16, 16 /* r0 &= 0xffff */ 171 /* Fall through to */ 172 173 /* Store half word */ 174 store_half: 175 sthx r0, r4, r7 /* memory[r4+r7] = (u16)r0 */ 176 177 nxtrela: 178 /* 179 * We have to flush the modified instructions to the 180 * main storage from the d-cache. And also, invalidate the 181 * cached instructions in i-cache which has been modified. 182 * 183 * We delay the sync / isync operation till the end, since 184 * we won't be executing the modified instructions until 185 * we return from here. 186 */ 187 dcbst r4,r7 188 sync /* Ensure the data is flushed before icbi */ 189 icbi r4,r7 190 unknown_type: 191 cmpwi r8, 0 /* relasz = 0 ? */ 192 ble done 193 add r9, r9, r6 /* move to next entry in the .rela table */ 194 subf r8, r6, r8 /* relasz -= relaent */ 195 b applyrela 196 197 done: 198 sync /* Wait for the flush to finish */ 199 isync /* Discard prefetched instructions */ 200 blr 201 202 p_dyn: .long __dynamic_start - 0b 203 p_rela: .long __rela_dyn_start - 0b 204 p_sym: .long __dynamic_symtab - 0b 205 p_st: .long _stext - 0b 206