Commit | Line | Data |
---|---|---|
2874c5fd | 1 | /* SPDX-License-Identifier: GPL-2.0-or-later */ |
9c5f7d39 SP |
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 | |
9c5f7d39 SP |
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 */ | |
33e14024 | 33 | bcl 20,31,$+4 /* Find our current runtime address */ |
9c5f7d39 SP |
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 | |
348c2298 | 165 | bne unknown_type |
9c5f7d39 SP |
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 | |
348c2298 | 190 | unknown_type: |
9c5f7d39 SP |
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 |