1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21
22 /*
23 * Copyright (c) 1988 AT&T
24 * All Rights Reserved
25 *
26 * Copyright (c) 1989, 2010, Oracle and/or its affiliates. All rights reserved.
27 */
28
29 /* Get the sparc version of the relocation engine */
30 #define DO_RELOC_LIBLD_SPARC
31
32 #include <string.h>
33 #include <stdio.h>
34 #include <sys/elf_SPARC.h>
35 #include <debug.h>
36 #include <reloc.h>
37 #include <sparc/machdep_sparc.h>
38 #include "msg.h"
39 #include "_libld.h"
40 #include "machsym.sparc.h"
41
42 /*
43 * Local Variable Definitions
44 */
45 static Sword neggotoffset = 0; /* off. of GOT table from GOT symbol */
46 static Sword smlgotcnt = M_GOT_XNumber; /* no. of small GOT symbols */
47 static Sword mixgotcnt = 0; /* # syms with both large/small GOT */
48
49 /*
50 * Search the GOT index list for a GOT entry with a matching reference and the
51 * proper addend.
52 */
53 static Gotndx *
54 ld_find_got_ndx(Alist *alp, Gotref gref, Ofl_desc *ofl, Rel_desc *rdesc)
55 {
56 Aliste idx;
57 Gotndx *gnp;
58
59 assert(rdesc != 0);
60
61 if ((gref == GOT_REF_TLSLD) && ofl->ofl_tlsldgotndx)
62 return (ofl->ofl_tlsldgotndx);
63
64 for (ALIST_TRAVERSE(alp, idx, gnp)) {
65 if ((rdesc->rel_raddend == gnp->gn_addend) &&
66 (gref == gnp->gn_gotref))
67 return (gnp);
68 }
69 return (NULL);
70 }
71
72 static Xword
73 ld_calc_got_offset(Rel_desc * rdesc, Ofl_desc * ofl)
74 {
75 Os_desc *osp = ofl->ofl_osgot;
76 Sym_desc *sdp = rdesc->rel_sym;
77 Xword gotndx;
78 Gotref gref;
79 Gotndx *gnp;
80
81 if (rdesc->rel_flags & FLG_REL_DTLS)
82 gref = GOT_REF_TLSGD;
83 else if (rdesc->rel_flags & FLG_REL_MTLS)
84 gref = GOT_REF_TLSLD;
85 else if (rdesc->rel_flags & FLG_REL_STLS)
86 gref = GOT_REF_TLSIE;
87 else
88 gref = GOT_REF_GENERIC;
89
90 gnp = ld_find_got_ndx(sdp->sd_GOTndxs, gref, ofl, rdesc);
91 assert(gnp);
92
93 gotndx = (Xword)gnp->gn_gotndx;
94
95 if ((rdesc->rel_flags & FLG_REL_DTLS) &&
96 (rdesc->rel_rtype == M_R_DTPOFF))
97 gotndx++;
98
99 return ((Xword)((osp->os_shdr->sh_addr) + (gotndx * M_GOT_ENTSIZE) +
100 (-neggotoffset * M_GOT_ENTSIZE)));
101 }
102
103 static Word
104 ld_init_rel(Rel_desc *reld, Word *typedata, void *reloc)
105 {
106 Rela *rela = (Rela *)reloc;
107
108 /* LINTED */
109 reld->rel_rtype = (Word)ELF_R_TYPE(rela->r_info, M_MACH);
110 reld->rel_roffset = rela->r_offset;
111 reld->rel_raddend = rela->r_addend;
112 *typedata = (Word)ELF_R_TYPE_DATA(rela->r_info);
113
114 reld->rel_flags |= FLG_REL_RELA;
115
116 return ((Word)ELF_R_SYM(rela->r_info));
117 }
118
119 static void
120 ld_mach_eflags(Ehdr *ehdr, Ofl_desc *ofl)
121 {
122 Word eflags = ofl->ofl_dehdr->e_flags;
123 Word memopt1, memopt2;
124 static int firstpass;
125
126 /*
127 * If a *PLUS relocatable is included, the output object is type *PLUS.
128 */
129 if ((ehdr->e_machine == EM_SPARC32PLUS) &&
130 (ehdr->e_flags & EF_SPARC_32PLUS))
131 ofl->ofl_dehdr->e_machine = EM_SPARC32PLUS;
132
133 /*
134 * On the first pass, we don't yet have a memory model to compare
135 * against, therefore the initial file becomes our baseline. Subsequent
136 * passes will do the comparison described below.
137 */
138 if (firstpass == 0) {
139 ofl->ofl_dehdr->e_flags |= ehdr->e_flags;
140 firstpass++;
141 return;
142 }
143
144 /*
145 * Determine which memory model to mark the binary with. The options
146 * are (most restrictive to least):
147 *
148 * EF_SPARCV9_TSO 0x0 Total Store Order
149 * EF_SPARCV9_PSO 0x1 Partial Store Order
150 * EF_SPARCV9_RMO 0x2 Relaxed Memory Order
151 *
152 * Mark the binary with the most restrictive option encountered from a
153 * relocatable object included in the link.
154 */
155 eflags |= (ehdr->e_flags & ~EF_SPARCV9_MM);
156 memopt1 = eflags & EF_SPARCV9_MM;
157 memopt2 = ehdr->e_flags & EF_SPARCV9_MM;
158 eflags &= ~EF_SPARCV9_MM;
159
160 if ((memopt1 == EF_SPARCV9_TSO) || (memopt2 == EF_SPARCV9_TSO))
161 /* EMPTY */
162 ;
163 else if ((memopt1 == EF_SPARCV9_PSO) || (memopt2 == EF_SPARCV9_PSO))
164 eflags |= EF_SPARCV9_PSO;
165 else
166 eflags |= EF_SPARCV9_RMO;
167
168 ofl->ofl_dehdr->e_flags = eflags;
169 }
170
171 static void
172 ld_mach_make_dynamic(Ofl_desc *ofl, size_t *cnt)
173 {
174 if (!(ofl->ofl_flags & FLG_OF_RELOBJ)) {
175 /*
176 * Create this entry if we are going to create a PLT table.
177 */
178 if (ofl->ofl_pltcnt)
179 (*cnt)++; /* DT_PLTGOT */
180 }
181 }
182
183 static void
184 ld_mach_update_odynamic(Ofl_desc *ofl, Dyn **dyn)
185 {
186 if (((ofl->ofl_flags & FLG_OF_RELOBJ) == 0) && ofl->ofl_pltcnt) {
187 (*dyn)->d_tag = DT_PLTGOT;
188 if (ofl->ofl_osplt)
189 (*dyn)->d_un.d_ptr = ofl->ofl_osplt->os_shdr->sh_addr;
190 else
191 (*dyn)->d_un.d_ptr = 0;
192 (*dyn)++;
193 }
194 }
195
196 #if defined(_ELF64)
197
198 static Xword
199 ld_calc_plt_addr(Sym_desc *sdp, Ofl_desc *ofl)
200 {
201 Xword value, pltndx, farpltndx;
202
203 pltndx = sdp->sd_aux->sa_PLTndx + M_PLT_XNumber - 1;
204
205 if ((pltndx) < M64_PLT_NEARPLTS) {
206 value = (Xword)(ofl->ofl_osplt->os_shdr->sh_addr) +
207 (pltndx * M_PLT_ENTSIZE);
208 return (value);
209 }
210
211 farpltndx = pltndx - M64_PLT_NEARPLTS;
212
213 /*
214 * pltoffset of a far plt is calculated by:
215 *
216 * <size of near plt table> +
217 * <size of preceding far plt blocks> +
218 * <blockndx * sizeof (far plt entsize)>
219 */
220 value =
221 /* size of near plt table */
222 (M64_PLT_NEARPLTS * M_PLT_ENTSIZE) +
223 /* size of preceding far plt blocks */
224 ((farpltndx / M64_PLT_FBLKCNTS) *
225 ((M64_PLT_FENTSIZE + sizeof (Addr)) *
226 M64_PLT_FBLKCNTS)) +
227 /* pltblockendx * fentsize */
228 ((farpltndx % M64_PLT_FBLKCNTS) * M64_PLT_FENTSIZE);
229
230 value += (Xword)(ofl->ofl_osplt->os_shdr->sh_addr);
231 return (value);
232 }
233
234 /*
235 * Instructions required for Far PLT's
236 */
237 static uchar_t farplt_instrs[24] = {
238 0x8a, 0x10, 0x00, 0x0f, /* mov %o7, %g5 */
239 0x40, 0x00, 0x00, 0x02, /* call . + 0x8 */
240 0x01, 0x00, 0x00, 0x00, /* nop */
241 0xc2, 0x5b, 0xe0, 0x00, /* ldx [%o7 + 0], %g1 */
242 0x83, 0xc3, 0xc0, 0x01, /* jmpl %o7 + %g1, %g1 */
243 0x9e, 0x10, 0x00, 0x05 /* mov %g5, %o7 */
244 };
245
246 /*
247 * Far PLT'S:
248 *
249 * Far PLT's are established in blocks of '160' at a time. These
250 * PLT's consist of 6 instructions (24 bytes) and 1 pointer (8 bytes).
251 * The instructions are collected together in blocks of 160 entries
252 * followed by 160 pointers. The last group of entries and pointers
253 * may contain less then 160 items. No padding is required.
254 *
255 * .PLT32768:
256 * mov %o7, %g5
257 * call . + 8
258 * nop
259 * ldx [%o7 + .PLTP32768 - (.PLT32768 + 4)], %g1
260 * jmpl %o7 + %g1, %g1
261 * mov %g5, %o7
262 * ................................
263 * .PLT32927:
264 * mov %o7, %g5
265 * call . + 8
266 * nop
267 * ldx [%o7 + .PLTP32927 - (.PLT32927 + 4)], %g1
268 * jmpl %o7 + %g1, %g1
269 * mov %g5, %o7
270 * .PLTP32768:
271 * .xword .PLT0-(.PLT32768+4)
272 * ................................
273 * .PLTP32927:
274 * .xword .PLT0-(.PLT32927+4)
275 *
276 */
277 static void
278 plt_far_entry(Ofl_desc *ofl, Xword pltndx, Xword *roffset, Sxword *raddend)
279 {
280 uint_t blockndx; /* # of far PLT blocks */
281 uint_t farblkcnt; /* Index to far PLT block */
282 Xword farpltndx; /* index of Far Plt */
283 Xword farpltblkndx; /* index of PLT in BLOCK */
284 uint32_t *pltent; /* ptr to plt instr. sequence */
285 uint64_t *pltentptr; /* ptr to plt addr ptr */
286 Sxword pltblockoff; /* offset to Far plt block */
287 Sxword pltoff; /* offset to PLT instr. sequence */
288 Sxword pltptroff; /* offset to PLT addr ptr */
289 uchar_t *pltbuf; /* ptr to PLT's in file */
290
291
292 farblkcnt = ((ofl->ofl_pltcnt - 1 +
293 M_PLT_XNumber - M64_PLT_NEARPLTS) / M64_PLT_FBLKCNTS);
294
295 /*
296 * Determine the 'Far' PLT index.
297 */
298 farpltndx = pltndx - 1 + M_PLT_XNumber - M64_PLT_NEARPLTS;
299 farpltblkndx = farpltndx % M64_PLT_FBLKCNTS;
300
301 /*
302 * Determine what FPLT block this plt falls into.
303 */
304 blockndx = (uint_t)(farpltndx / M64_PLT_FBLKCNTS);
305
306 /*
307 * Calculate the starting offset of the Far PLT block
308 * that this PLT is a member of.
309 */
310 pltblockoff = (M64_PLT_NEARPLTS * M_PLT_ENTSIZE) +
311 (blockndx * M64_PLT_FBLOCKSZ);
312
313 pltoff = pltblockoff +
314 (farpltblkndx * M64_PLT_FENTSIZE);
315
316 pltptroff = pltblockoff;
317
318
319 if (farblkcnt > blockndx) {
320 /*
321 * If this is a full block - the 'pltptroffs' start
322 * after 160 fplts.
323 */
324 pltptroff += (M64_PLT_FBLKCNTS * M64_PLT_FENTSIZE) +
325 (farpltblkndx * M64_PLT_PSIZE);
326 } else {
327 Xword lastblkpltndx;
328 /*
329 * If this is the last block - the the pltptr's start
330 * after the last FPLT instruction sequence.
331 */
332 lastblkpltndx = (ofl->ofl_pltcnt - 1 + M_PLT_XNumber -
333 M64_PLT_NEARPLTS) % M64_PLT_FBLKCNTS;
334 pltptroff += ((lastblkpltndx + 1) * M64_PLT_FENTSIZE) +
335 (farpltblkndx * M64_PLT_PSIZE);
336 }
337 pltbuf = (uchar_t *)ofl->ofl_osplt->os_outdata->d_buf;
338
339 /*
340 * For far-plts, the Raddend and Roffset fields are defined
341 * to be:
342 *
343 * roffset: address of .PLTP#
344 * raddend: -(.PLT#+4)
345 */
346 *roffset = pltptroff + (Xword)(ofl->ofl_osplt->os_shdr->sh_addr);
347 *raddend = -(pltoff + 4 + (Xword)(ofl->ofl_osplt->os_shdr->sh_addr));
348
349 /* LINTED */
350 pltent = (uint32_t *)(pltbuf + pltoff);
351 /* LINTED */
352 pltentptr = (uint64_t *)(pltbuf + pltptroff);
353 (void) memcpy(pltent, farplt_instrs, sizeof (farplt_instrs));
354
355 /*
356 * update
357 * ldx [%o7 + 0], %g1
358 * to
359 * ldx [%o7 + .PLTP# - (.PLT# + 4)], %g1
360 */
361 /* LINTED */
362 pltent[3] |= (uint32_t)(pltptroff - (pltoff + 4));
363
364 /*
365 * Store:
366 * .PLTP#
367 * .xword .PLT0 - .PLT# + 4
368 */
369 *pltentptr = -(pltoff + 4);
370 }
371
372 /*
373 * Build a single V9 P.L.T. entry - code is:
374 *
375 * For Target Addresses +/- 4GB of the entry
376 * -----------------------------------------
377 * sethi (. - .PLT0), %g1
378 * ba,a %xcc, .PLT1
379 * nop
380 * nop
381 * nop
382 * nop
383 * nop
384 * nop
385 *
386 * For Target Addresses +/- 2GB of the entry
387 * -----------------------------------------
388 *
389 * .PLT0 is the address of the first entry in the P.L.T.
390 * This one is filled in by the run-time link editor. We just
391 * have to leave space for it.
392 */
393 static void
394 plt_entry(Ofl_desc *ofl, Xword pltndx, Xword *roffset, Sxword *raddend)
395 {
396 uchar_t *pltent; /* PLT entry being created. */
397 Sxword pltoff; /* Offset of this entry from PLT top */
398 int bswap = (ofl->ofl_flags1 & FLG_OF1_ENCDIFF) != 0;
399
400 /*
401 * The second part of the V9 ABI (sec. 5.2.4)
402 * applies to plt entries greater than 0x8000 (32,768).
403 * This is handled in 'plt_far_entry()'
404 */
405 if ((pltndx - 1 + M_PLT_XNumber) >= M64_PLT_NEARPLTS) {
406 plt_far_entry(ofl, pltndx, roffset, raddend);
407 return;
408 }
409
410 pltoff = M_PLT_RESERVSZ + (pltndx - 1) * M_PLT_ENTSIZE;
411 pltent = (uchar_t *)ofl->ofl_osplt->os_outdata->d_buf + pltoff;
412
413 *roffset = pltoff + (Xword)(ofl->ofl_osplt->os_shdr->sh_addr);
414 *raddend = 0;
415
416 /*
417 * PLT[0]: sethi %hi(. - .L0), %g1
418 */
419 /* LINTED */
420 *(Word *)pltent = M_SETHIG1 | pltoff;
421 if (bswap)
422 /* LINTED */
423 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
424
425 /*
426 * PLT[1]: ba,a %xcc, .PLT1 (.PLT1 accessed as a
427 * PC-relative index of longwords).
428 */
429 pltent += M_PLT_INSSIZE;
430 pltoff += M_PLT_INSSIZE;
431 pltoff = -pltoff;
432 /* LINTED */
433 *(Word *)pltent = M_BA_A_XCC |
434 (((pltoff + M_PLT_ENTSIZE) >> 2) & S_MASK(19));
435 if (bswap)
436 /* LINTED */
437 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
438
439 /*
440 * PLT[2]: sethi 0, %g0 (NOP for delay slot of eventual CTI).
441 */
442 pltent += M_PLT_INSSIZE;
443 /* LINTED */
444 *(Word *)pltent = M_NOP;
445 if (bswap)
446 /* LINTED */
447 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
448
449 /*
450 * PLT[3]: sethi 0, %g0 (NOP for PLT padding).
451 */
452 pltent += M_PLT_INSSIZE;
453 /* LINTED */
454 *(Word *)pltent = M_NOP;
455 if (bswap)
456 /* LINTED */
457 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
458
459 /*
460 * PLT[4]: sethi 0, %g0 (NOP for PLT padding).
461 */
462 pltent += M_PLT_INSSIZE;
463 /* LINTED */
464 *(Word *)pltent = M_NOP;
465 if (bswap)
466 /* LINTED */
467 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
468
469 /*
470 * PLT[5]: sethi 0, %g0 (NOP for PLT padding).
471 */
472 pltent += M_PLT_INSSIZE;
473 /* LINTED */
474 *(Word *)pltent = M_NOP;
475 if (bswap)
476 /* LINTED */
477 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
478
479 /*
480 * PLT[6]: sethi 0, %g0 (NOP for PLT padding).
481 */
482 pltent += M_PLT_INSSIZE;
483 /* LINTED */
484 *(Word *)pltent = M_NOP;
485 if (bswap)
486 /* LINTED */
487 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
488
489 /*
490 * PLT[7]: sethi 0, %g0 (NOP for PLT padding).
491 */
492 pltent += M_PLT_INSSIZE;
493 /* LINTED */
494 *(Word *)pltent = M_NOP;
495 if (bswap)
496 /* LINTED */
497 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
498 }
499
500
501 #else /* Elf 32 */
502
503 static Xword
504 ld_calc_plt_addr(Sym_desc *sdp, Ofl_desc *ofl)
505 {
506 Xword value, pltndx;
507
508 pltndx = sdp->sd_aux->sa_PLTndx + M_PLT_XNumber - 1;
509 value = (Xword)(ofl->ofl_osplt->os_shdr->sh_addr) +
510 (pltndx * M_PLT_ENTSIZE);
511 return (value);
512 }
513
514
515 /*
516 * Build a single P.L.T. entry - code is:
517 *
518 * sethi (. - .L0), %g1
519 * ba,a .L0
520 * sethi 0, %g0 (nop)
521 *
522 * .L0 is the address of the first entry in the P.L.T.
523 * This one is filled in by the run-time link editor. We just
524 * have to leave space for it.
525 */
526 static void
527 plt_entry(Ofl_desc * ofl, Xword pltndx, Xword *roffset, Sxword *raddend)
528 {
529 Byte *pltent; /* PLT entry being created. */
530 Sxword pltoff; /* Offset of this entry from PLT top */
531 int bswap = (ofl->ofl_flags1 & FLG_OF1_ENCDIFF) != 0;
532
533 pltoff = M_PLT_RESERVSZ + (pltndx - 1) * M_PLT_ENTSIZE;
534 pltent = (Byte *)ofl->ofl_osplt->os_outdata->d_buf + pltoff;
535
536 *roffset = pltoff + (Xword)(ofl->ofl_osplt->os_shdr->sh_addr);
537 *raddend = 0;
538
539 /*
540 * PLT[0]: sethi %hi(. - .L0), %g1
541 */
542 /* LINTED */
543 *(Word *)pltent = M_SETHIG1 | pltoff;
544 if (bswap)
545 /* LINTED */
546 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
547
548 /*
549 * PLT[1]: ba,a .L0 (.L0 accessed as a PC-relative index of longwords)
550 */
551 pltent += M_PLT_INSSIZE;
552 pltoff += M_PLT_INSSIZE;
553 pltoff = -pltoff;
554 /* LINTED */
555 *(Word *)pltent = M_BA_A | ((pltoff >> 2) & S_MASK(22));
556 if (bswap)
557 /* LINTED */
558 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
559
560 /*
561 * PLT[2]: sethi 0, %g0 (NOP for delay slot of eventual CTI).
562 */
563 pltent += M_PLT_INSSIZE;
564 /* LINTED */
565 *(Word *)pltent = M_SETHIG0;
566 if (bswap)
567 /* LINTED */
568 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
569
570 /*
571 * PLT[3]: sethi 0, %g0 (NOP for PLT padding).
572 */
573 pltent += M_PLT_INSSIZE;
574 /* LINTED */
575 *(Word *)pltent = M_SETHIG0;
576 if (bswap)
577 /* LINTED */
578 *(Word *)pltent = ld_bswap_Word(*(Word *)pltent);
579 }
580
581 #endif /* _ELF64 */
582
583 static uintptr_t
584 ld_perform_outreloc(Rel_desc *orsp, Ofl_desc *ofl, Boolean *remain_seen)
585 {
586 Os_desc *relosp, *osp = NULL;
587 Xword ndx, roffset, value;
588 Sxword raddend;
589 const Rel_entry *rep;
590 Rela rea;
591 char *relbits;
592 Sym_desc *sdp, *psym = NULL;
593 int sectmoved = 0;
594 Word dtflags1 = ofl->ofl_dtflags_1;
595 ofl_flag_t flags = ofl->ofl_flags;
596
597 raddend = orsp->rel_raddend;
598 sdp = orsp->rel_sym;
599
600 /*
601 * Special case, a regsiter symbol associated with symbol
602 * index 0 is initialized (i.e. relocated) to a constant
603 * in the r_addend field rather than to a symbol value.
604 */
605 if ((orsp->rel_rtype == M_R_REGISTER) && !sdp) {
606 relosp = ofl->ofl_osrel;
607 relbits = (char *)relosp->os_outdata->d_buf;
608
609 rea.r_info = ELF_R_INFO(0,
610 ELF_R_TYPE_INFO(RELAUX_GET_TYPEDATA(orsp),
611 orsp->rel_rtype));
612 rea.r_offset = orsp->rel_roffset;
613 rea.r_addend = raddend;
614 DBG_CALL(Dbg_reloc_out(ofl, ELF_DBG_LD, SHT_RELA, &rea,
615 relosp->os_name, ld_reloc_sym_name(orsp)));
616
617 assert(relosp->os_szoutrels <= relosp->os_shdr->sh_size);
618 (void) memcpy((relbits + relosp->os_szoutrels),
619 (char *)&rea, sizeof (Rela));
620 relosp->os_szoutrels += (Xword)sizeof (Rela);
621
622 return (1);
623 }
624
625 /*
626 * If the section this relocation is against has been discarded
627 * (-zignore), then also discard (skip) the relocation itself.
628 */
629 if (orsp->rel_isdesc && ((orsp->rel_flags &
630 (FLG_REL_GOT | FLG_REL_BSS | FLG_REL_PLT | FLG_REL_NOINFO)) == 0) &&
631 (orsp->rel_isdesc->is_flags & FLG_IS_DISCARD)) {
632 DBG_CALL(Dbg_reloc_discard(ofl->ofl_lml, M_MACH, orsp));
633 return (1);
634 }
635
636 /*
637 * If this is a relocation against a move table, or expanded move
638 * table, adjust the relocation entries.
639 */
640 if (RELAUX_GET_MOVE(orsp))
641 ld_adj_movereloc(ofl, orsp);
642
643 /*
644 * If this is a relocation against a section then we need to adjust the
645 * raddend field to compensate for the new position of the input section
646 * within the new output section.
647 */
648 if (ELF_ST_TYPE(sdp->sd_sym->st_info) == STT_SECTION) {
649 if (ofl->ofl_parsyms &&
650 (sdp->sd_isc->is_flags & FLG_IS_RELUPD) &&
651 (psym = ld_am_I_partial(orsp, orsp->rel_raddend))) {
652 /*
653 * If the symbol is moved, adjust the value
654 */
655 DBG_CALL(Dbg_move_outsctadj(ofl->ofl_lml, psym));
656 sectmoved = 1;
657 if (ofl->ofl_flags & FLG_OF_RELOBJ)
658 raddend = psym->sd_sym->st_value;
659 else
660 raddend = psym->sd_sym->st_value -
661 psym->sd_isc->is_osdesc->os_shdr->sh_addr;
662 /* LINTED */
663 raddend += (Off)_elf_getxoff(psym->sd_isc->is_indata);
664 if (psym->sd_isc->is_shdr->sh_flags & SHF_ALLOC)
665 raddend +=
666 psym->sd_isc->is_osdesc->os_shdr->sh_addr;
667 } else {
668 /* LINTED */
669 raddend += (Off)_elf_getxoff(sdp->sd_isc->is_indata);
670 if (sdp->sd_isc->is_shdr->sh_flags & SHF_ALLOC)
671 raddend +=
672 sdp->sd_isc->is_osdesc->os_shdr->sh_addr;
673 }
674 }
675
676 value = sdp->sd_sym->st_value;
677
678 if (orsp->rel_flags & FLG_REL_GOT) {
679 osp = ofl->ofl_osgot;
680 roffset = ld_calc_got_offset(orsp, ofl);
681
682 } else if (orsp->rel_flags & FLG_REL_PLT) {
683 osp = ofl->ofl_osplt;
684 plt_entry(ofl, sdp->sd_aux->sa_PLTndx, &roffset, &raddend);
685 } else if (orsp->rel_flags & FLG_REL_BSS) {
686 /*
687 * This must be a R_SPARC_COPY. For these set the roffset to
688 * point to the new symbols location.
689 */
690 osp = ofl->ofl_isbss->is_osdesc;
691 roffset = (Xword)value;
692
693 /*
694 * The raddend doesn't mean anything in an R_SPARC_COPY
695 * relocation. Null it out because it can confuse people.
696 */
697 raddend = 0;
698 } else if (orsp->rel_flags & FLG_REL_REG) {
699 /*
700 * The offsets of relocations against register symbols
701 * identifiy the register directly - so the offset
702 * does not need to be adjusted.
703 */
704 roffset = orsp->rel_roffset;
705 } else {
706 osp = RELAUX_GET_OSDESC(orsp);
707
708 /*
709 * Calculate virtual offset of reference point; equals offset
710 * into section + vaddr of section for loadable sections, or
711 * offset plus section displacement for nonloadable sections.
712 */
713 roffset = orsp->rel_roffset +
714 (Off)_elf_getxoff(orsp->rel_isdesc->is_indata);
715 if (!(ofl->ofl_flags & FLG_OF_RELOBJ))
716 roffset += orsp->rel_isdesc->is_osdesc->
717 os_shdr->sh_addr;
718 }
719
720 if ((osp == 0) || ((relosp = osp->os_relosdesc) == 0))
721 relosp = ofl->ofl_osrel;
722
723 /*
724 * Verify that the output relocations offset meets the
725 * alignment requirements of the relocation being processed.
726 */
727 rep = &reloc_table[orsp->rel_rtype];
728 if (((flags & FLG_OF_RELOBJ) || !(dtflags1 & DF_1_NORELOC)) &&
729 !(rep->re_flags & FLG_RE_UNALIGN)) {
730 if (((rep->re_fsize == 2) && (roffset & 0x1)) ||
731 ((rep->re_fsize == 4) && (roffset & 0x3)) ||
732 ((rep->re_fsize == 8) && (roffset & 0x7))) {
733 Conv_inv_buf_t inv_buf;
734
735 ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_REL_NONALIGN),
736 conv_reloc_SPARC_type(orsp->rel_rtype, 0, &inv_buf),
737 orsp->rel_isdesc->is_file->ifl_name,
738 ld_reloc_sym_name(orsp), EC_XWORD(roffset));
739 return (S_ERROR);
740 }
741 }
742
743 /*
744 * Assign the symbols index for the output relocation. If the
745 * relocation refers to a SECTION symbol then it's index is based upon
746 * the output sections symbols index. Otherwise the index can be
747 * derived from the symbols index itself.
748 */
749 if (orsp->rel_rtype == R_SPARC_RELATIVE)
750 ndx = STN_UNDEF;
751 else if ((orsp->rel_flags & FLG_REL_SCNNDX) ||
752 (ELF_ST_TYPE(sdp->sd_sym->st_info) == STT_SECTION)) {
753 if (sectmoved == 0) {
754 /*
755 * Check for a null input section. This can
756 * occur if this relocation references a symbol
757 * generated by sym_add_sym().
758 */
759 if (sdp->sd_isc && sdp->sd_isc->is_osdesc)
760 ndx = sdp->sd_isc->is_osdesc->os_identndx;
761 else
762 ndx = sdp->sd_shndx;
763 } else
764 ndx = ofl->ofl_parexpnndx;
765 } else
766 ndx = sdp->sd_symndx;
767
768 /*
769 * Add the symbols 'value' to the addend field.
770 */
771 if (orsp->rel_flags & FLG_REL_ADVAL)
772 raddend += value;
773
774 /*
775 * The addend field for R_SPARC_TLS_DTPMOD32 and R_SPARC_TLS_DTPMOD64
776 * mean nothing. The addend is propagated in the corresponding
777 * R_SPARC_TLS_DTPOFF* relocations.
778 */
779 if (orsp->rel_rtype == M_R_DTPMOD)
780 raddend = 0;
781
782 relbits = (char *)relosp->os_outdata->d_buf;
783
784 rea.r_info = ELF_R_INFO(ndx,
785 ELF_R_TYPE_INFO(RELAUX_GET_TYPEDATA(orsp), orsp->rel_rtype));
786 rea.r_offset = roffset;
787 rea.r_addend = raddend;
788 DBG_CALL(Dbg_reloc_out(ofl, ELF_DBG_LD, SHT_RELA, &rea, relosp->os_name,
789 ld_reloc_sym_name(orsp)));
790
791 /*
792 * Assert we haven't walked off the end of our relocation table.
793 */
794 assert(relosp->os_szoutrels <= relosp->os_shdr->sh_size);
795
796 (void) memcpy((relbits + relosp->os_szoutrels),
797 (char *)&rea, sizeof (Rela));
798 relosp->os_szoutrels += (Xword)sizeof (Rela);
799
800 /*
801 * Determine if this relocation is against a non-writable, allocatable
802 * section. If so we may need to provide a text relocation diagnostic.
803 */
804 ld_reloc_remain_entry(orsp, osp, ofl, remain_seen);
805 return (1);
806 }
807
808
809 /*
810 * Sparc Instructions for TLS processing
811 */
812 #if defined(_ELF64)
813 #define TLS_GD_IE_LD 0xd0580000 /* ldx [%g0 + %g0], %o0 */
814 #else
815 #define TLS_GD_IE_LD 0xd0000000 /* ld [%g0 + %g0], %o0 */
816 #endif
817 #define TLS_GD_IE_ADD 0x9001c008 /* add %g7, %o0, %o0 */
818
819 #define TLS_GD_LE_XOR 0x80182000 /* xor %g0, 0, %g0 */
820 #define TLS_IE_LE_OR 0x80100000 /* or %g0, %o0, %o1 */
821 /* synthetic: mov %g0, %g0 */
822
823 #define TLS_LD_LE_CLRO0 0x90100000 /* clr %o0 */
824
825 #define FM3_REG_MSK_RD (0x1f << 25) /* Formate (3) rd register mask */
826 /* bits 25->29 */
827 #define FM3_REG_MSK_RS1 (0x1f << 14) /* Formate (3) rs1 register mask */
828 /* bits 14->18 */
829 #define FM3_REG_MSK_RS2 0x1f /* Formate (3) rs2 register mask */
830 /* bits 0->4 */
831
832 #define REG_G7 7 /* %g7 register */
833
834 static Fixupret
835 tls_fixups(Ofl_desc *ofl, Rel_desc *arsp)
836 {
837 Sym_desc *sdp = arsp->rel_sym;
838 Word rtype = arsp->rel_rtype;
839 Word *offset, w;
840 int bswap = OFL_SWAP_RELOC_DATA(ofl, arsp);
841
842
843 offset = (Word *)((uintptr_t)arsp->rel_roffset +
844 (uintptr_t)_elf_getxoff(arsp->rel_isdesc->is_indata) +
845 (uintptr_t)RELAUX_GET_OSDESC(arsp)->os_outdata->d_buf);
846
847 if (sdp->sd_ref == REF_DYN_NEED) {
848 /*
849 * IE reference model
850 */
851 switch (rtype) {
852 case R_SPARC_TLS_GD_HI22:
853 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
854 R_SPARC_TLS_IE_HI22, arsp,
855 ld_reloc_sym_name));
856 arsp->rel_rtype = R_SPARC_TLS_IE_HI22;
857 return (FIX_RELOC);
858
859 case R_SPARC_TLS_GD_LO10:
860 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
861 R_SPARC_TLS_IE_LO10, arsp,
862 ld_reloc_sym_name));
863 arsp->rel_rtype = R_SPARC_TLS_IE_LO10;
864 return (FIX_RELOC);
865
866 case R_SPARC_TLS_GD_ADD:
867 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
868 R_SPARC_NONE, arsp, ld_reloc_sym_name));
869 w = bswap ? ld_bswap_Word(*offset) : *offset;
870 w = (TLS_GD_IE_LD |
871 (w & (FM3_REG_MSK_RS1 | FM3_REG_MSK_RS2)));
872 *offset = bswap ? ld_bswap_Word(w) : w;
873 return (FIX_DONE);
874
875 case R_SPARC_TLS_GD_CALL:
876 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
877 R_SPARC_NONE, arsp, ld_reloc_sym_name));
878 *offset = TLS_GD_IE_ADD;
879 if (bswap)
880 *offset = ld_bswap_Word(*offset);
881 return (FIX_DONE);
882 }
883 return (FIX_RELOC);
884 }
885
886 /*
887 * LE reference model
888 */
889 switch (rtype) {
890 case R_SPARC_TLS_IE_HI22:
891 case R_SPARC_TLS_GD_HI22:
892 case R_SPARC_TLS_LDO_HIX22:
893 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
894 R_SPARC_TLS_LE_HIX22, arsp, ld_reloc_sym_name));
895 arsp->rel_rtype = R_SPARC_TLS_LE_HIX22;
896 return (FIX_RELOC);
897
898 case R_SPARC_TLS_LDO_LOX10:
899 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
900 R_SPARC_TLS_LE_LOX10, arsp, ld_reloc_sym_name));
901 arsp->rel_rtype = R_SPARC_TLS_LE_LOX10;
902 return (FIX_RELOC);
903
904 case R_SPARC_TLS_IE_LO10:
905 case R_SPARC_TLS_GD_LO10:
906 /*
907 * Current instruction is:
908 *
909 * or r1, %lo(x), r2
910 * or
911 * add r1, %lo(x), r2
912 *
913 * Need to udpate this to:
914 *
915 * xor r1, %lox(x), r2
916 */
917 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
918 R_SPARC_TLS_LE_LOX10, arsp, ld_reloc_sym_name));
919 w = bswap ? ld_bswap_Word(*offset) : *offset;
920 w = TLS_GD_LE_XOR |
921 (w & (FM3_REG_MSK_RS1 | FM3_REG_MSK_RD));
922 *offset = bswap ? ld_bswap_Word(w) : w;
923 arsp->rel_rtype = R_SPARC_TLS_LE_LOX10;
924 return (FIX_RELOC);
925
926 case R_SPARC_TLS_IE_LD:
927 case R_SPARC_TLS_IE_LDX:
928 /*
929 * Current instruction:
930 * ld{x} [r1 + r2], r3
931 *
932 * Need to update this to:
933 *
934 * mov r2, r3 (or %g0, r2, r3)
935 */
936 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
937 R_SPARC_NONE, arsp, ld_reloc_sym_name));
938 w = bswap ? ld_bswap_Word(*offset) : *offset;
939 w = (w & (FM3_REG_MSK_RS2 | FM3_REG_MSK_RD)) | TLS_IE_LE_OR;
940 *offset = bswap ? ld_bswap_Word(w) : w;
941 return (FIX_DONE);
942
943 case R_SPARC_TLS_LDO_ADD:
944 case R_SPARC_TLS_GD_ADD:
945 /*
946 * Current instruction is:
947 *
948 * add gptr_reg, r2, r3
949 *
950 * Need to updated this to:
951 *
952 * add %g7, r2, r3
953 */
954 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
955 R_SPARC_NONE, arsp, ld_reloc_sym_name));
956 w = bswap ? ld_bswap_Word(*offset) : *offset;
957 w = w & (~FM3_REG_MSK_RS1);
958 w = w | (REG_G7 << 14);
959 *offset = bswap ? ld_bswap_Word(w) : w;
960 return (FIX_DONE);
961
962 case R_SPARC_TLS_LDM_CALL:
963 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
964 R_SPARC_NONE, arsp, ld_reloc_sym_name));
965 *offset = TLS_LD_LE_CLRO0;
966 if (bswap)
967 *offset = ld_bswap_Word(*offset);
968 return (FIX_DONE);
969
970 case R_SPARC_TLS_LDM_HI22:
971 case R_SPARC_TLS_LDM_LO10:
972 case R_SPARC_TLS_LDM_ADD:
973 case R_SPARC_TLS_IE_ADD:
974 case R_SPARC_TLS_GD_CALL:
975 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
976 R_SPARC_NONE, arsp, ld_reloc_sym_name));
977 *offset = M_NOP;
978 if (bswap)
979 *offset = ld_bswap_Word(*offset);
980 return (FIX_DONE);
981 }
982 return (FIX_RELOC);
983 }
984
985 #define GOTOP_ADDINST 0x80000000 /* add %g0, %g0, %g0 */
986
987 static Fixupret
988 gotop_fixups(Ofl_desc *ofl, Rel_desc *arsp)
989 {
990 Word rtype = arsp->rel_rtype;
991 Word *offset, w;
992 const char *ifl_name;
993 Conv_inv_buf_t inv_buf;
994 int bswap;
995
996 switch (rtype) {
997 case R_SPARC_GOTDATA_OP_HIX22:
998 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
999 R_SPARC_GOTDATA_HIX22, arsp, ld_reloc_sym_name));
1000 arsp->rel_rtype = R_SPARC_GOTDATA_HIX22;
1001 return (FIX_RELOC);
1002
1003 case R_SPARC_GOTDATA_OP_LOX10:
1004 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
1005 R_SPARC_GOTDATA_LOX10, arsp, ld_reloc_sym_name));
1006 arsp->rel_rtype = R_SPARC_GOTDATA_LOX10;
1007 return (FIX_RELOC);
1008
1009 case R_SPARC_GOTDATA_OP:
1010 /*
1011 * Current instruction:
1012 * ld{x} [r1 + r2], r3
1013 *
1014 * Need to update this to:
1015 *
1016 * add r1, r2, r3
1017 */
1018 DBG_CALL(Dbg_reloc_transition(ofl->ofl_lml, M_MACH,
1019 R_SPARC_NONE, arsp, ld_reloc_sym_name));
1020 offset = (Word *)(uintptr_t)(arsp->rel_roffset +
1021 _elf_getxoff(arsp->rel_isdesc->is_indata) +
1022 (uintptr_t)RELAUX_GET_OSDESC(arsp)->os_outdata->d_buf);
1023 bswap = OFL_SWAP_RELOC_DATA(ofl, arsp);
1024 w = bswap ? ld_bswap_Word(*offset) : *offset;
1025 w = (w & (FM3_REG_MSK_RS1 |
1026 FM3_REG_MSK_RS2 | FM3_REG_MSK_RD)) | GOTOP_ADDINST;
1027 *offset = bswap ? ld_bswap_Word(w) : w;
1028 return (FIX_DONE);
1029 }
1030 /*
1031 * We should not get here
1032 */
1033 if (arsp->rel_isdesc->is_file)
1034 ifl_name = arsp->rel_isdesc->is_file->ifl_name;
1035 else
1036 ifl_name = MSG_INTL(MSG_STR_NULL);
1037
1038 ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_REL_BADGOTFIX),
1039 conv_reloc_SPARC_type(arsp->rel_rtype, 0, &inv_buf),
1040 ifl_name, ld_reloc_sym_name(arsp));
1041
1042 assert(0);
1043 return (FIX_ERROR);
1044 }
1045
1046 static uintptr_t
1047 ld_do_activerelocs(Ofl_desc *ofl)
1048 {
1049 Rel_desc *arsp;
1050 Rel_cachebuf *rcbp;
1051 Aliste idx;
1052 uintptr_t return_code = 1;
1053 ofl_flag_t flags = ofl->ofl_flags;
1054
1055 if (aplist_nitems(ofl->ofl_actrels.rc_list) != 0)
1056 DBG_CALL(Dbg_reloc_doact_title(ofl->ofl_lml));
1057
1058 /*
1059 * Process active relocations.
1060 */
1061 REL_CACHE_TRAVERSE(&ofl->ofl_actrels, idx, rcbp, arsp) {
1062 uchar_t *addr;
1063 Xword value;
1064 Sym_desc *sdp;
1065 const char *ifl_name;
1066 Xword refaddr;
1067 Os_desc *osp;
1068
1069 /*
1070 * If the section this relocation is against has been discarded
1071 * (-zignore), then discard (skip) the relocation itself.
1072 */
1073 if ((arsp->rel_isdesc->is_flags & FLG_IS_DISCARD) &&
1074 ((arsp->rel_flags & (FLG_REL_GOT | FLG_REL_BSS |
1075 FLG_REL_PLT | FLG_REL_NOINFO)) == 0)) {
1076 DBG_CALL(Dbg_reloc_discard(ofl->ofl_lml, M_MACH, arsp));
1077 continue;
1078 }
1079
1080 /*
1081 * Perform any required TLS fixups.
1082 */
1083 if (arsp->rel_flags & FLG_REL_TLSFIX) {
1084 Fixupret ret;
1085
1086 if ((ret = tls_fixups(ofl, arsp)) == FIX_ERROR)
1087 return (S_ERROR);
1088 if (ret == FIX_DONE)
1089 continue;
1090 }
1091
1092 /*
1093 * Perform any required GOTOP fixups.
1094 */
1095 if (arsp->rel_flags & FLG_REL_GOTFIX) {
1096 Fixupret ret;
1097
1098 if ((ret = gotop_fixups(ofl, arsp)) == FIX_ERROR)
1099 return (S_ERROR);
1100 if (ret == FIX_DONE)
1101 continue;
1102 }
1103
1104 /*
1105 * If this is a relocation against the move table, or
1106 * expanded move table, adjust the relocation entries.
1107 */
1108 if (RELAUX_GET_MOVE(arsp))
1109 ld_adj_movereloc(ofl, arsp);
1110
1111 sdp = arsp->rel_sym;
1112 refaddr = arsp->rel_roffset +
1113 (Off)_elf_getxoff(arsp->rel_isdesc->is_indata);
1114
1115 if ((arsp->rel_flags & FLG_REL_CLVAL) ||
1116 (arsp->rel_flags & FLG_REL_GOTCL))
1117 value = 0;
1118 else if (ELF_ST_TYPE(sdp->sd_sym->st_info) == STT_SECTION) {
1119 Sym_desc *sym;
1120
1121 /*
1122 * The value for a symbol pointing to a SECTION
1123 * is based off of that sections position.
1124 */
1125 if ((sdp->sd_isc->is_flags & FLG_IS_RELUPD) &&
1126 (sym = ld_am_I_partial(arsp, arsp->rel_raddend))) {
1127 /*
1128 * The symbol was moved, so adjust the value
1129 * relative to the new section.
1130 */
1131 value = _elf_getxoff(sym->sd_isc->is_indata);
1132 if (sym->sd_isc->is_shdr->sh_flags & SHF_ALLOC)
1133 value += sym->sd_isc->
1134 is_osdesc->os_shdr->sh_addr;
1135
1136 /*
1137 * The original raddend covers the displacement
1138 * from the section start to the desired
1139 * address. The value computed above gets us
1140 * from the section start to the start of the
1141 * symbol range. Adjust the old raddend to
1142 * remove the offset from section start to
1143 * symbol start, leaving the displacement
1144 * within the range of the symbol.
1145 */
1146 arsp->rel_raddend -= sym->sd_osym->st_value;
1147 } else {
1148 value = _elf_getxoff(sdp->sd_isc->is_indata);
1149 if (sdp->sd_isc->is_shdr->sh_flags & SHF_ALLOC)
1150 value += sdp->sd_isc->
1151 is_osdesc->os_shdr->sh_addr;
1152 }
1153
1154 if (sdp->sd_isc->is_shdr->sh_flags & SHF_TLS)
1155 value -= ofl->ofl_tlsphdr->p_vaddr;
1156
1157 } else if (IS_SIZE(arsp->rel_rtype)) {
1158 /*
1159 * Size relocations require the symbols size.
1160 */
1161 value = sdp->sd_sym->st_size;
1162
1163 } else if ((sdp->sd_flags & FLG_SY_CAP) &&
1164 sdp->sd_aux && sdp->sd_aux->sa_PLTndx) {
1165 /*
1166 * If relocation is against a capabilities symbol, we
1167 * need to jump to an associated PLT, so that at runtime
1168 * ld.so.1 is involved to determine the best binding
1169 * choice. Otherwise, the value is the symbols value.
1170 */
1171 value = ld_calc_plt_addr(sdp, ofl);
1172
1173 } else
1174 value = sdp->sd_sym->st_value;
1175
1176 /*
1177 * Relocation against the GLOBAL_OFFSET_TABLE.
1178 */
1179 if ((arsp->rel_flags & FLG_REL_GOT) &&
1180 !ld_reloc_set_aux_osdesc(ofl, arsp, ofl->ofl_osgot))
1181 return (S_ERROR);
1182 osp = RELAUX_GET_OSDESC(arsp);
1183
1184 /*
1185 * If loadable and not producing a relocatable object add the
1186 * sections virtual address to the reference address.
1187 */
1188 if ((arsp->rel_flags & FLG_REL_LOAD) &&
1189 ((flags & FLG_OF_RELOBJ) == 0))
1190 refaddr +=
1191 arsp->rel_isdesc->is_osdesc->os_shdr->sh_addr;
1192
1193 /*
1194 * If this entry has a PLT assigned to it, its value is actually
1195 * the address of the PLT (and not the address of the function).
1196 */
1197 if (IS_PLT(arsp->rel_rtype)) {
1198 if (sdp->sd_aux && sdp->sd_aux->sa_PLTndx)
1199 value = ld_calc_plt_addr(sdp, ofl);
1200 }
1201
1202 /*
1203 * Add relocations addend to value. Add extra
1204 * relocation addend if needed.
1205 */
1206 value += arsp->rel_raddend;
1207 if (IS_EXTOFFSET(arsp->rel_rtype))
1208 value += RELAUX_GET_TYPEDATA(arsp);
1209
1210 /*
1211 * Determine whether the value needs further adjustment. Filter
1212 * through the attributes of the relocation to determine what
1213 * adjustment is required. Note, many of the following cases
1214 * are only applicable when a .got is present. As a .got is
1215 * not generated when a relocatable object is being built,
1216 * any adjustments that require a .got need to be skipped.
1217 */
1218 if ((arsp->rel_flags & FLG_REL_GOT) &&
1219 ((flags & FLG_OF_RELOBJ) == 0)) {
1220 Xword R1addr;
1221 uintptr_t R2addr;
1222 Sword gotndx;
1223 Gotndx *gnp;
1224 Gotref gref;
1225
1226 /*
1227 * Clear the GOT table entry, on SPARC we clear
1228 * the entry and the 'value' if needed is stored
1229 * in an output relocations addend.
1230 *
1231 * Calculate offset into GOT at which to apply
1232 * the relocation.
1233 */
1234 if (arsp->rel_flags & FLG_REL_DTLS)
1235 gref = GOT_REF_TLSGD;
1236 else if (arsp->rel_flags & FLG_REL_MTLS)
1237 gref = GOT_REF_TLSLD;
1238 else if (arsp->rel_flags & FLG_REL_STLS)
1239 gref = GOT_REF_TLSIE;
1240 else
1241 gref = GOT_REF_GENERIC;
1242
1243 gnp = ld_find_got_ndx(sdp->sd_GOTndxs, gref, ofl, arsp);
1244 assert(gnp);
1245
1246 if (arsp->rel_rtype == M_R_DTPOFF)
1247 gotndx = gnp->gn_gotndx + 1;
1248 else
1249 gotndx = gnp->gn_gotndx;
1250
1251 /* LINTED */
1252 R1addr = (Xword)((-neggotoffset * M_GOT_ENTSIZE) +
1253 (gotndx * M_GOT_ENTSIZE));
1254
1255 /*
1256 * Add the GOTs data's offset.
1257 */
1258 R2addr = R1addr + (uintptr_t)osp->os_outdata->d_buf;
1259
1260 DBG_CALL(Dbg_reloc_doact(ofl->ofl_lml,
1261 ELF_DBG_LD_ACT, M_MACH, SHT_RELA,
1262 arsp, R1addr, value, ld_reloc_sym_name));
1263
1264 /*
1265 * And do it.
1266 */
1267 if (ofl->ofl_flags1 & FLG_OF1_ENCDIFF)
1268 *(Xword *)R2addr = ld_bswap_Xword(value);
1269 else
1270 *(Xword *)R2addr = value;
1271 continue;
1272
1273 } else if (IS_GOT_BASED(arsp->rel_rtype) &&
1274 ((flags & FLG_OF_RELOBJ) == 0)) {
1275 value -= (ofl->ofl_osgot->os_shdr->sh_addr +
1276 (-neggotoffset * M_GOT_ENTSIZE));
1277
1278 } else if (IS_PC_RELATIVE(arsp->rel_rtype)) {
1279 value -= refaddr;
1280
1281 } else if (IS_TLS_INS(arsp->rel_rtype) &&
1282 IS_GOT_RELATIVE(arsp->rel_rtype) &&
1283 ((flags & FLG_OF_RELOBJ) == 0)) {
1284 Gotndx *gnp;
1285 Gotref gref;
1286
1287 if (arsp->rel_flags & FLG_REL_STLS)
1288 gref = GOT_REF_TLSIE;
1289 else if (arsp->rel_flags & FLG_REL_DTLS)
1290 gref = GOT_REF_TLSGD;
1291 else if (arsp->rel_flags & FLG_REL_MTLS)
1292 gref = GOT_REF_TLSLD;
1293
1294 gnp = ld_find_got_ndx(sdp->sd_GOTndxs, gref, ofl, arsp);
1295 assert(gnp);
1296
1297 value = gnp->gn_gotndx * M_GOT_ENTSIZE;
1298
1299 } else if (IS_GOT_RELATIVE(arsp->rel_rtype) &&
1300 ((flags & FLG_OF_RELOBJ) == 0)) {
1301 Gotndx *gnp;
1302
1303 gnp = ld_find_got_ndx(sdp->sd_GOTndxs,
1304 GOT_REF_GENERIC, ofl, arsp);
1305 assert(gnp);
1306
1307 value = gnp->gn_gotndx * M_GOT_ENTSIZE;
1308
1309 } else if ((arsp->rel_flags & FLG_REL_STLS) &&
1310 ((flags & FLG_OF_RELOBJ) == 0)) {
1311 Xword tlsstatsize;
1312
1313 /*
1314 * This is the LE TLS reference model. Static offset is
1315 * hard-coded, and negated so that it can be added to
1316 * the thread pointer (%g7)
1317 */
1318 tlsstatsize =
1319 S_ROUND(ofl->ofl_tlsphdr->p_memsz, M_TLSSTATALIGN);
1320 value = -(tlsstatsize - value);
1321 }
1322
1323 if (arsp->rel_isdesc->is_file)
1324 ifl_name = arsp->rel_isdesc->is_file->ifl_name;
1325 else
1326 ifl_name = MSG_INTL(MSG_STR_NULL);
1327
1328 /*
1329 * Make sure we have data to relocate. Compiler and assembler
1330 * developers have been known to generate relocations against
1331 * invalid sections (normally .bss), so for their benefit give
1332 * them sufficient information to help analyze the problem.
1333 * End users should never see this.
1334 */
1335 if (arsp->rel_isdesc->is_indata->d_buf == 0) {
1336 Conv_inv_buf_t inv_buf;
1337
1338 ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_REL_EMPTYSEC),
1339 conv_reloc_SPARC_type(arsp->rel_rtype, 0, &inv_buf),
1340 ifl_name, ld_reloc_sym_name(arsp),
1341 EC_WORD(arsp->rel_isdesc->is_scnndx),
1342 arsp->rel_isdesc->is_name);
1343 return (S_ERROR);
1344 }
1345
1346 /*
1347 * Get the address of the data item we need to modify.
1348 */
1349 addr = (uchar_t *)((uintptr_t)arsp->rel_roffset +
1350 (uintptr_t)_elf_getxoff(arsp->rel_isdesc->is_indata));
1351
1352 DBG_CALL(Dbg_reloc_doact(ofl->ofl_lml, ELF_DBG_LD_ACT,
1353 M_MACH, SHT_RELA, arsp, EC_NATPTR(addr), value,
1354 ld_reloc_sym_name));
1355 addr += (uintptr_t)osp->os_outdata->d_buf;
1356
1357 if ((((uintptr_t)addr - (uintptr_t)ofl->ofl_nehdr) >
1358 ofl->ofl_size) || (arsp->rel_roffset >
1359 osp->os_shdr->sh_size)) {
1360 Conv_inv_buf_t inv_buf;
1361 int class;
1362
1363 if (((uintptr_t)addr - (uintptr_t)ofl->ofl_nehdr) >
1364 ofl->ofl_size)
1365 class = ERR_FATAL;
1366 else
1367 class = ERR_WARNING;
1368
1369 ld_eprintf(ofl, class, MSG_INTL(MSG_REL_INVALOFFSET),
1370 conv_reloc_SPARC_type(arsp->rel_rtype, 0, &inv_buf),
1371 ifl_name, EC_WORD(arsp->rel_isdesc->is_scnndx),
1372 arsp->rel_isdesc->is_name, ld_reloc_sym_name(arsp),
1373 EC_ADDR((uintptr_t)addr -
1374 (uintptr_t)ofl->ofl_nehdr));
1375
1376 if (class == ERR_FATAL) {
1377 return_code = S_ERROR;
1378 continue;
1379 }
1380 }
1381
1382 /*
1383 * If '-z noreloc' is specified - skip the do_reloc stage.
1384 */
1385 if (OFL_DO_RELOC(ofl)) {
1386 if (do_reloc_ld(arsp, addr, &value, ld_reloc_sym_name,
1387 ifl_name, OFL_SWAP_RELOC_DATA(ofl, arsp),
1388 ofl->ofl_lml) == 0) {
1389 ofl->ofl_flags |= FLG_OF_FATAL;
1390 return_code = S_ERROR;
1391 }
1392 }
1393 }
1394 return (return_code);
1395 }
1396
1397 static uintptr_t
1398 ld_add_outrel(Word flags, Rel_desc *rsp, Ofl_desc *ofl)
1399 {
1400 Rel_desc *orsp;
1401 Sym_desc *sdp = rsp->rel_sym;
1402 Conv_inv_buf_t inv_buf;
1403
1404 /*
1405 * Static executables *do not* want any relocations against them.
1406 * Since our engine still creates relocations against a WEAK UNDEFINED
1407 * symbol in a static executable, it's best to disable them here
1408 * instead of through out the relocation code.
1409 */
1410 if (OFL_IS_STATIC_EXEC(ofl))
1411 return (1);
1412
1413 /*
1414 * Certain relocations do not make sense in a 64bit shared object,
1415 * if building a shared object do a sanity check on the output
1416 * relocations being created.
1417 */
1418 if (ofl->ofl_flags & FLG_OF_SHAROBJ) {
1419 Word rtype = rsp->rel_rtype;
1420 /*
1421 * Because the R_SPARC_HIPLT22 & R_SPARC_LOPLT10 relocations
1422 * are not relative they make no sense to create in a shared
1423 * object - so emit the proper error message if that occurs.
1424 */
1425 if ((rtype == R_SPARC_HIPLT22) || (rtype == R_SPARC_LOPLT10)) {
1426 ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_REL_UNRELREL),
1427 conv_reloc_SPARC_type(rsp->rel_rtype, 0, &inv_buf),
1428 rsp->rel_isdesc->is_file->ifl_name,
1429 ld_reloc_sym_name(rsp));
1430 return (S_ERROR);
1431 }
1432 #if defined(_ELF64)
1433 /*
1434 * Each of the following relocations requires that the
1435 * object being built be loaded in either the upper 32 or
1436 * 44 bit range of memory. Since shared libraries traditionally
1437 * are loaded in the lower range of memory - this isn't going
1438 * to work.
1439 */
1440 if ((rtype == R_SPARC_H44) || (rtype == R_SPARC_M44) ||
1441 (rtype == R_SPARC_L44)) {
1442 ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_REL_SHOBJABS44),
1443 conv_reloc_SPARC_type(rsp->rel_rtype, 0, &inv_buf),
1444 rsp->rel_isdesc->is_file->ifl_name,
1445 ld_reloc_sym_name(rsp));
1446 return (S_ERROR);
1447 }
1448 #endif
1449 }
1450
1451 /*
1452 * If we are adding a output relocation against a section
1453 * symbol (non-RELATIVE) then mark that section. These sections
1454 * will be added to the .dynsym symbol table.
1455 */
1456 if (sdp && (rsp->rel_rtype != M_R_RELATIVE) &&
1457 ((flags & FLG_REL_SCNNDX) ||
1458 (ELF_ST_TYPE(sdp->sd_sym->st_info) == STT_SECTION))) {
1459
1460 /*
1461 * If this is a COMMON symbol - no output section
1462 * exists yet - (it's created as part of sym_validate()).
1463 * So - we mark here that when it's created it should
1464 * be tagged with the FLG_OS_OUTREL flag.
1465 */
1466 if ((sdp->sd_flags & FLG_SY_SPECSEC) &&
1467 (sdp->sd_sym->st_shndx == SHN_COMMON)) {
1468 if (ELF_ST_TYPE(sdp->sd_sym->st_info) != STT_TLS)
1469 ofl->ofl_flags1 |= FLG_OF1_BSSOREL;
1470 else
1471 ofl->ofl_flags1 |= FLG_OF1_TLSOREL;
1472 } else {
1473 Os_desc *osp;
1474 Is_desc *isp = sdp->sd_isc;
1475
1476 if (isp && ((osp = isp->is_osdesc) != NULL) &&
1477 ((osp->os_flags & FLG_OS_OUTREL) == 0)) {
1478 ofl->ofl_dynshdrcnt++;
1479 osp->os_flags |= FLG_OS_OUTREL;
1480 }
1481 }
1482 }
1483
1484 /* Enter it into the output relocation cache */
1485 if ((orsp = ld_reloc_enter(ofl, &ofl->ofl_outrels, rsp, flags)) == NULL)
1486 return (S_ERROR);
1487
1488 if (flags & FLG_REL_GOT)
1489 ofl->ofl_relocgotsz += (Xword)sizeof (Rela);
1490 else if (flags & FLG_REL_PLT)
1491 ofl->ofl_relocpltsz += (Xword)sizeof (Rela);
1492 else if (flags & FLG_REL_BSS)
1493 ofl->ofl_relocbsssz += (Xword)sizeof (Rela);
1494 else if (flags & FLG_REL_NOINFO)
1495 ofl->ofl_relocrelsz += (Xword)sizeof (Rela);
1496 else
1497 RELAUX_GET_OSDESC(orsp)->os_szoutrels += (Xword)sizeof (Rela);
1498
1499 if (orsp->rel_rtype == M_R_RELATIVE)
1500 ofl->ofl_relocrelcnt++;
1501
1502 #if defined(_ELF64)
1503 /*
1504 * When building a 64-bit object any R_SPARC_WDISP30 relocation is given
1505 * a plt padding entry, unless we're building a relocatable object
1506 * (ld -r) or -b is in effect.
1507 */
1508 if ((orsp->rel_rtype == R_SPARC_WDISP30) &&
1509 ((ofl->ofl_flags & (FLG_OF_BFLAG | FLG_OF_RELOBJ)) == 0) &&
1510 ((orsp->rel_sym->sd_flags & FLG_SY_PLTPAD) == 0)) {
1511 ofl->ofl_pltpad++;
1512 orsp->rel_sym->sd_flags |= FLG_SY_PLTPAD;
1513 }
1514 #endif
1515 /*
1516 * We don't perform sorting on PLT relocations because
1517 * they have already been assigned a PLT index and if we
1518 * were to sort them we would have to re-assign the plt indexes.
1519 */
1520 if (!(flags & FLG_REL_PLT))
1521 ofl->ofl_reloccnt++;
1522
1523 /*
1524 * Insure a GLOBAL_OFFSET_TABLE is generated if required.
1525 */
1526 if (IS_GOT_REQUIRED(orsp->rel_rtype))
1527 ofl->ofl_flags |= FLG_OF_BLDGOT;
1528
1529 /*
1530 * Identify and possibly warn of a displacement relocation.
1531 */
1532 if (orsp->rel_flags & FLG_REL_DISP) {
1533 ofl->ofl_dtflags_1 |= DF_1_DISPRELPND;
1534
1535 if (ofl->ofl_flags & FLG_OF_VERBOSE)
1536 ld_disp_errmsg(MSG_INTL(MSG_REL_DISPREL4), orsp, ofl);
1537 }
1538 DBG_CALL(Dbg_reloc_ors_entry(ofl->ofl_lml, ELF_DBG_LD, SHT_RELA,
1539 M_MACH, orsp));
1540 return (1);
1541 }
1542
1543 /*
1544 * Process relocation against a register symbol. Note, of -z muldefs is in
1545 * effect there may have been multiple register definitions, which would have
1546 * been processed as non-fatal, with the first definition winning. But, we
1547 * will also process multiple relocations for these multiple definitions. In
1548 * this case we must only preserve the relocation for the definition that was
1549 * kept. The sad part is that register relocations don't typically specify
1550 * the register symbol with which they are associated, so we might have to
1551 * search the input files global symbols to determine if this relocation is
1552 * appropriate.
1553 */
1554 static uintptr_t
1555 ld_reloc_register(Rel_desc *rsp, Is_desc *isp, Ofl_desc *ofl)
1556 {
1557 if (ofl->ofl_flags & FLG_OF_MULDEFS) {
1558 Ifl_desc *ifl = isp->is_file;
1559 Sym_desc *sdp = rsp->rel_sym;
1560
1561 if (sdp == 0) {
1562 Xword offset = rsp->rel_roffset;
1563 Word ndx;
1564
1565 for (ndx = ifl->ifl_locscnt;
1566 ndx < ifl->ifl_symscnt; ndx++) {
1567 if (((sdp = ifl->ifl_oldndx[ndx]) != 0) &&
1568 (sdp->sd_flags & FLG_SY_REGSYM) &&
1569 (sdp->sd_sym->st_value == offset))
1570 break;
1571 }
1572 }
1573 if (sdp && (sdp->sd_file != ifl))
1574 return (1);
1575 }
1576 return (ld_add_outrel((rsp->rel_flags | FLG_REL_REG), rsp, ofl));
1577 }
1578
1579 /*
1580 * process relocation for a LOCAL symbol
1581 */
1582 static uintptr_t
1583 ld_reloc_local(Rel_desc *rsp, Ofl_desc *ofl)
1584 {
1585 ofl_flag_t flags = ofl->ofl_flags;
1586 Sym_desc *sdp = rsp->rel_sym;
1587 Word shndx = sdp->sd_sym->st_shndx;
1588
1589 /*
1590 * if ((shared object) and (not pc relative relocation) and
1591 * (not against ABS symbol))
1592 * then
1593 * if (rtype != R_SPARC_32)
1594 * then
1595 * build relocation against section
1596 * else
1597 * build R_SPARC_RELATIVE
1598 * fi
1599 * fi
1600 */
1601 if ((flags & FLG_OF_SHAROBJ) && (rsp->rel_flags & FLG_REL_LOAD) &&
1602 !(IS_PC_RELATIVE(rsp->rel_rtype)) && !(IS_SIZE(rsp->rel_rtype)) &&
1603 !(IS_GOT_BASED(rsp->rel_rtype)) &&
1604 !(rsp->rel_isdesc != NULL &&
1605 (rsp->rel_isdesc->is_shdr->sh_type == SHT_SUNW_dof)) &&
1606 (((sdp->sd_flags & FLG_SY_SPECSEC) == 0) ||
1607 (shndx != SHN_ABS) || (sdp->sd_aux && sdp->sd_aux->sa_symspec))) {
1608 Word ortype = rsp->rel_rtype;
1609
1610 if ((rsp->rel_rtype != R_SPARC_32) &&
1611 (rsp->rel_rtype != R_SPARC_PLT32) &&
1612 (rsp->rel_rtype != R_SPARC_64))
1613 return (ld_add_outrel((FLG_REL_SCNNDX | FLG_REL_ADVAL),
1614 rsp, ofl));
1615
1616 rsp->rel_rtype = R_SPARC_RELATIVE;
1617 if (ld_add_outrel(FLG_REL_ADVAL, rsp, ofl) == S_ERROR)
1618 return (S_ERROR);
1619 rsp->rel_rtype = ortype;
1620 return (1);
1621 }
1622
1623 /*
1624 * If the relocation is against a 'non-allocatable' section
1625 * and we can not resolve it now - then give a warning
1626 * message.
1627 *
1628 * We can not resolve the symbol if either:
1629 * a) it's undefined
1630 * b) it's defined in a shared library and a
1631 * COPY relocation hasn't moved it to the executable
1632 *
1633 * Note: because we process all of the relocations against the
1634 * text segment before any others - we know whether
1635 * or not a copy relocation will be generated before
1636 * we get here (see reloc_init()->reloc_segments()).
1637 */
1638 if (!(rsp->rel_flags & FLG_REL_LOAD) &&
1639 ((shndx == SHN_UNDEF) ||
1640 ((sdp->sd_ref == REF_DYN_NEED) &&
1641 ((sdp->sd_flags & FLG_SY_MVTOCOMM) == 0)))) {
1642 Conv_inv_buf_t inv_buf;
1643 Os_desc *osp = RELAUX_GET_OSDESC(rsp);
1644
1645 /*
1646 * If the relocation is against a SHT_SUNW_ANNOTATE
1647 * section - then silently ignore that the relocation
1648 * can not be resolved.
1649 */
1650 if (osp && (osp->os_shdr->sh_type == SHT_SUNW_ANNOTATE))
1651 return (0);
1652 ld_eprintf(ofl, ERR_WARNING, MSG_INTL(MSG_REL_EXTERNSYM),
1653 conv_reloc_SPARC_type(rsp->rel_rtype, 0, &inv_buf),
1654 rsp->rel_isdesc->is_file->ifl_name,
1655 ld_reloc_sym_name(rsp), osp->os_name);
1656 return (1);
1657 }
1658
1659 /*
1660 * Perform relocation.
1661 */
1662 return (ld_add_actrel(NULL, rsp, ofl));
1663 }
1664
1665 /*
1666 * Establish a relocation transition. Note, at this point of input relocation
1667 * processing, we have no idea of the relocation value that will be used in
1668 * the eventual relocation calculation. This value is only known after the
1669 * initial image has been constructed. Therefore, there is a small chance
1670 * that a value can exceed the capabilities of the transitioned relocation.
1671 * One example might be the offset from the GOT to a symbol.
1672 *
1673 * The only instance of this failure discovered so far has been via the use of
1674 * ABS symbols to represent an external memory location. This situation is
1675 * rare, since ABS symbols aren't typically generated by the compilers.
1676 * Therefore, our solution is to excluded ABS symbols from the transition
1677 * relocation possibilities. As an additional safeguard, if an inappropriate
1678 * value is passed to the final relocation engine, a verification ("V")
1679 * relocation should trigger a fatal error condition.
1680 */
1681 static uintptr_t
1682 ld_reloc_GOTOP(Boolean local, Rel_desc *rsp, Ofl_desc *ofl)
1683 {
1684 Word rtype = rsp->rel_rtype;
1685
1686 if (!local || (rsp->rel_sym->sd_sym->st_shndx == SHN_ABS)) {
1687 /*
1688 * When binding to a external symbol, no fixups are required
1689 * and the GOTDATA_OP relocation can be ignored.
1690 */
1691 if (rtype == R_SPARC_GOTDATA_OP)
1692 return (1);
1693 return (ld_reloc_GOT_relative(local, rsp, ofl));
1694 }
1695
1696 /*
1697 * When binding to a local symbol the relocations can be transitioned:
1698 *
1699 * R_*_GOTDATA_OP_HIX22 -> R_*_GOTDATA_HIX22
1700 * R_*_GOTDATA_OP_LOX10 -> R_*_GOTDATA_LOX10
1701 * R_*_GOTDATA_OP -> instruction fixup
1702 */
1703 return (ld_add_actrel(FLG_REL_GOTFIX, rsp, ofl));
1704 }
1705
1706 static uintptr_t
1707 ld_reloc_TLS(Boolean local, Rel_desc *rsp, Ofl_desc *ofl)
1708 {
1709 Word rtype = rsp->rel_rtype;
1710 Sym_desc *sdp = rsp->rel_sym;
1711 ofl_flag_t flags = ofl->ofl_flags;
1712 Gotndx *gnp;
1713
1714 /*
1715 * If we're building an executable - use either the IE or LE access
1716 * model. If we're building a shared object process any IE model.
1717 */
1718 if ((flags & FLG_OF_EXEC) || (IS_TLS_IE(rtype))) {
1719 /*
1720 * Set the DF_STATIC_TLS flag.
1721 */
1722 ofl->ofl_dtflags |= DF_STATIC_TLS;
1723
1724 if (!local || ((flags & FLG_OF_EXEC) == 0)) {
1725 /*
1726 * When processing static TLS - these relocations
1727 * can be ignored.
1728 */
1729 if ((rtype == R_SPARC_TLS_IE_LD) ||
1730 (rtype == R_SPARC_TLS_IE_LDX) ||
1731 (rtype == R_SPARC_TLS_IE_ADD))
1732 return (1);
1733
1734 /*
1735 * Assign a GOT entry for IE static TLS references.
1736 */
1737 if (((rtype == R_SPARC_TLS_GD_HI22) ||
1738 (rtype == R_SPARC_TLS_GD_LO10) ||
1739 (rtype == R_SPARC_TLS_IE_HI22) ||
1740 (rtype == R_SPARC_TLS_IE_LO10)) &&
1741 ((gnp = ld_find_got_ndx(sdp->sd_GOTndxs,
1742 GOT_REF_TLSIE, ofl, rsp)) == NULL)) {
1743
1744 if (ld_assign_got_TLS(local, rsp, ofl, sdp,
1745 gnp, GOT_REF_TLSIE, FLG_REL_STLS,
1746 rtype, M_R_TPOFF, NULL) == S_ERROR)
1747 return (S_ERROR);
1748 }
1749
1750 /*
1751 * IE access model.
1752 */
1753 if (IS_TLS_IE(rtype))
1754 return (ld_add_actrel(FLG_REL_STLS, rsp, ofl));
1755
1756 /*
1757 * Fixups are required for other executable models.
1758 */
1759 return (ld_add_actrel((FLG_REL_TLSFIX | FLG_REL_STLS),
1760 rsp, ofl));
1761 }
1762
1763 /*
1764 * LE access model.
1765 */
1766 if (IS_TLS_LE(rtype))
1767 return (ld_add_actrel(FLG_REL_STLS, rsp, ofl));
1768
1769 /*
1770 * When processing static TLS - these relocations can be
1771 * ignored.
1772 */
1773 if (rtype == R_SPARC_TLS_IE_ADD)
1774 return (1);
1775
1776 return (ld_add_actrel((FLG_REL_TLSFIX | FLG_REL_STLS),
1777 rsp, ofl));
1778 }
1779
1780 /*
1781 * Building a shared object.
1782 *
1783 * For dynamic TLS references, ADD relocations are ignored.
1784 */
1785 if ((rtype == R_SPARC_TLS_GD_ADD) || (rtype == R_SPARC_TLS_LDM_ADD) ||
1786 (rtype == R_SPARC_TLS_LDO_ADD))
1787 return (1);
1788
1789 /*
1790 * Assign a GOT entry for a dynamic TLS reference.
1791 */
1792 if (((rtype == R_SPARC_TLS_LDM_HI22) ||
1793 (rtype == R_SPARC_TLS_LDM_LO10)) &&
1794 ((gnp = ld_find_got_ndx(sdp->sd_GOTndxs, GOT_REF_TLSLD,
1795 ofl, rsp)) == NULL)) {
1796
1797 if (ld_assign_got_TLS(local, rsp, ofl, sdp, gnp, GOT_REF_TLSLD,
1798 FLG_REL_MTLS, rtype, M_R_DTPMOD, 0) == S_ERROR)
1799 return (S_ERROR);
1800
1801 } else if (((rtype == R_SPARC_TLS_GD_HI22) ||
1802 (rtype == R_SPARC_TLS_GD_LO10)) &&
1803 ((gnp = ld_find_got_ndx(sdp->sd_GOTndxs, GOT_REF_TLSGD,
1804 ofl, rsp)) == NULL)) {
1805
1806 if (ld_assign_got_TLS(local, rsp, ofl, sdp, gnp, GOT_REF_TLSGD,
1807 FLG_REL_DTLS, rtype, M_R_DTPMOD, M_R_DTPOFF) == S_ERROR)
1808 return (S_ERROR);
1809 }
1810
1811 /*
1812 * For GD/LD TLS reference - TLS_{GD,LD}_CALL, this will eventually
1813 * cause a call to __tls_get_addr(). Convert this relocation to that
1814 * symbol now, and prepare for the PLT magic.
1815 */
1816 if ((rtype == R_SPARC_TLS_GD_CALL) || (rtype == R_SPARC_TLS_LDM_CALL)) {
1817 Sym_desc *tlsgetsym;
1818
1819 if ((tlsgetsym = ld_sym_add_u(MSG_ORIG(MSG_SYM_TLSGETADDR_U),
1820 ofl, MSG_STR_TLSREL)) == (Sym_desc *)S_ERROR)
1821 return (S_ERROR);
1822
1823 rsp->rel_sym = tlsgetsym;
1824 rsp->rel_rtype = R_SPARC_WPLT30;
1825
1826 if (ld_reloc_plt(rsp, ofl) == S_ERROR)
1827 return (S_ERROR);
1828
1829 rsp->rel_sym = sdp;
1830 rsp->rel_rtype = rtype;
1831 return (1);
1832 }
1833
1834 if (IS_TLS_LD(rtype))
1835 return (ld_add_actrel(FLG_REL_MTLS, rsp, ofl));
1836
1837 return (ld_add_actrel(FLG_REL_DTLS, rsp, ofl));
1838 }
1839
1840 /*
1841 * ld_allocate_got: if a GOT is to be made, after the section is built this
1842 * function is called to allocate all the GOT slots. The allocation is
1843 * deferred until after all GOTs have been counted and sorted according
1844 * to their size, for only then will we know how to allocate them on
1845 * a processor like SPARC which has different models for addressing the
1846 * GOT. SPARC has two: small and large, small uses a signed 13-bit offset
1847 * into the GOT, whereas large uses an unsigned 32-bit offset.
1848 */
1849 static Sword small_index; /* starting index for small GOT entries */
1850 static Sword mixed_index; /* starting index for mixed GOT entries */
1851 static Sword large_index; /* starting index for large GOT entries */
1852
1853 static uintptr_t
1854 ld_assign_got(Ofl_desc *ofl, Sym_desc *sdp)
1855 {
1856 Aliste idx;
1857 Gotndx *gnp;
1858
1859 for (ALIST_TRAVERSE(sdp->sd_GOTndxs, idx, gnp)) {
1860 uint_t gotents;
1861 Gotref gref = gnp->gn_gotref;
1862
1863 if ((gref == GOT_REF_TLSGD) || (gref == GOT_REF_TLSLD))
1864 gotents = 2;
1865 else
1866 gotents = 1;
1867
1868 switch (gnp->gn_gotndx) {
1869 case M_GOT_SMALL:
1870 gnp->gn_gotndx = small_index;
1871 small_index += gotents;
1872 if (small_index == 0)
1873 small_index = M_GOT_XNumber;
1874 break;
1875 case M_GOT_MIXED:
1876 gnp->gn_gotndx = mixed_index;
1877 mixed_index += gotents;
1878 break;
1879 case M_GOT_LARGE:
1880 gnp->gn_gotndx = large_index;
1881 large_index += gotents;
1882 break;
1883 default:
1884 ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_REL_ASSIGNGOT),
1885 EC_XWORD(gnp->gn_gotndx), demangle(sdp->sd_name));
1886 return (S_ERROR);
1887 }
1888 }
1889 return (1);
1890 }
1891
1892 static uintptr_t
1893 ld_assign_got_ndx(Alist **alpp, Gotndx *pgnp, Gotref gref, Ofl_desc *ofl,
1894 Rel_desc *rsp, Sym_desc *sdp)
1895 {
1896 Xword raddend;
1897 Gotndx gn, *gnp;
1898 Aliste idx;
1899 uint_t gotents;
1900
1901 /* Some TLS requires two relocations with two GOT entries */
1902 if ((gref == GOT_REF_TLSGD) || (gref == GOT_REF_TLSLD))
1903 gotents = 2;
1904 else
1905 gotents = 1;
1906
1907 raddend = rsp->rel_raddend;
1908 if (pgnp && (pgnp->gn_addend == raddend) && (pgnp->gn_gotref == gref)) {
1909
1910 /*
1911 * If an entry for this addend already exists, determine if it
1912 * has mixed mode GOT access (both PIC and pic).
1913 *
1914 * In order to be accessible by both large and small pic,
1915 * a mixed mode GOT must be located in the positive index
1916 * range above _GLOBAL_OFFSET_TABLE_, and in the range
1917 * reachable small pic. This is necessary because the large
1918 * PIC mode cannot use a negative offset. This implies that
1919 * there can be no more than (M_GOT_MAXSMALL/2 - M_GOT_XNumber)
1920 * such entries.
1921 */
1922 switch (pgnp->gn_gotndx) {
1923 case M_GOT_SMALL:
1924 /*
1925 * This one was previously identified as a small
1926 * GOT. If this access is large, then convert
1927 * it to mixed.
1928 */
1929 if (rsp->rel_rtype != R_SPARC_GOT13) {
1930 pgnp->gn_gotndx = M_GOT_MIXED;
1931 mixgotcnt += gotents;
1932 }
1933 break;
1934
1935 case M_GOT_LARGE:
1936 /*
1937 * This one was previously identified as a large
1938 * GOT. If this access is small, convert it to mixed.
1939 */
1940 if (rsp->rel_rtype == R_SPARC_GOT13) {
1941 smlgotcnt += gotents;
1942 mixgotcnt += gotents;
1943 pgnp->gn_gotndx = M_GOT_MIXED;
1944 sdp->sd_flags |= FLG_SY_SMGOT;
1945 }
1946 break;
1947 }
1948 return (1);
1949 }
1950
1951 gn.gn_addend = raddend;
1952 gn.gn_gotref = gref;
1953
1954 if (rsp->rel_rtype == R_SPARC_GOT13) {
1955 gn.gn_gotndx = M_GOT_SMALL;
1956 smlgotcnt += gotents;
1957 sdp->sd_flags |= FLG_SY_SMGOT;
1958 } else
1959 gn.gn_gotndx = M_GOT_LARGE;
1960
1961 ofl->ofl_gotcnt += gotents;
1962
1963 if (gref == GOT_REF_TLSLD) {
1964 if (ofl->ofl_tlsldgotndx == NULL) {
1965 if ((gnp = libld_malloc(sizeof (Gotndx))) == NULL)
1966 return (S_ERROR);
1967 (void) memcpy(gnp, &gn, sizeof (Gotndx));
1968 ofl->ofl_tlsldgotndx = gnp;
1969 }
1970 return (1);
1971 }
1972
1973 idx = 0;
1974 for (ALIST_TRAVERSE(*alpp, idx, gnp)) {
1975 if (gnp->gn_addend > raddend)
1976 break;
1977 }
1978
1979 /*
1980 * GOT indexes are maintained on an Alist, where there is typically
1981 * only one index. The usage of this list is to scan the list to find
1982 * an index, and then apply that index immediately to a relocation.
1983 * Thus there are no external references to these GOT index structures
1984 * that can be compromised by the Alist being reallocated.
1985 */
1986 if (alist_insert(alpp, &gn, sizeof (Gotndx),
1987 AL_CNT_SDP_GOT, idx) == NULL)
1988 return (S_ERROR);
1989
1990 return (1);
1991 }
1992
1993 static void
1994 ld_assign_plt_ndx(Sym_desc * sdp, Ofl_desc *ofl)
1995 {
1996 sdp->sd_aux->sa_PLTndx = 1 + ofl->ofl_pltcnt++;
1997 }
1998
1999
2000 static uintptr_t
2001 ld_allocate_got(Ofl_desc * ofl)
2002 {
2003 const Sword first_large_ndx = M_GOT_MAXSMALL / 2;
2004 Sym_desc *sdp;
2005 Addr addr;
2006
2007 /*
2008 * Sanity check -- is this going to fit at all? There are two
2009 * limits to be concerned about:
2010 * 1) There is a limit on the number of small pic GOT indices,
2011 * given by M_GOT_MAXSMALL.
2012 * 2) If there are more than (M_GOT_MAXSMALL/2 - M_GOT_XNumber)
2013 * small GOT indices, there will be items at negative
2014 * offsets from _GLOBAL_OFFSET_TABLE_. Items that are
2015 * accessed via large (PIC) code cannot reach these
2016 * negative slots, so mixed mode items must be in the
2017 * non-negative range. This implies a limit of
2018 * (M_GOT_MAXSMALL/2 - M_GOT_XNumber) mixed mode indices.
2019 */
2020 if (smlgotcnt > M_GOT_MAXSMALL) {
2021 ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_REL_SMALLGOT),
2022 EC_WORD(smlgotcnt), M_GOT_MAXSMALL);
2023 return (S_ERROR);
2024 }
2025 if (mixgotcnt > (first_large_ndx - M_GOT_XNumber)) {
2026 ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_REL_MIXEDGOT),
2027 EC_WORD(mixgotcnt), first_large_ndx - M_GOT_XNumber);
2028 return (S_ERROR);
2029 }
2030
2031 /*
2032 * Set starting offset to be either 0, or a negative index into
2033 * the GOT based on the number of small symbols we've got.
2034 */
2035 neggotoffset = ((smlgotcnt >= first_large_ndx) ?
2036 (first_large_ndx - smlgotcnt) : 0);
2037
2038 /*
2039 * Initialize the got offsets used by assign_got() to
2040 * locate GOT items:
2041 * small - Starting index of items referenced only
2042 * by small offsets (-Kpic).
2043 * mixed - Starting index of items referenced
2044 * by both large (-KPIC) and small (-Kpic).
2045 * large - Indexes referenced only by large (-KPIC)
2046 *
2047 * Small items can have negative indexes (i.e. lie below
2048 * _GLOBAL_OFFSET_TABLE_). Mixed and large items must have
2049 * non-negative offsets.
2050 */
2051 small_index = (neggotoffset == 0) ? M_GOT_XNumber : neggotoffset;
2052 large_index = neggotoffset + smlgotcnt;
2053 mixed_index = large_index - mixgotcnt;
2054
2055 /*
2056 * Assign bias to GOT symbols.
2057 */
2058 addr = -neggotoffset * M_GOT_ENTSIZE;
2059 if ((sdp = ld_sym_find(MSG_ORIG(MSG_SYM_GOFTBL), SYM_NOHASH,
2060 NULL, ofl)) != NULL)
2061 sdp->sd_sym->st_value = addr;
2062 if ((sdp = ld_sym_find(MSG_ORIG(MSG_SYM_GOFTBL_U), SYM_NOHASH,
2063 NULL, ofl)) != NULL)
2064 sdp->sd_sym->st_value = addr;
2065
2066 if (ofl->ofl_tlsldgotndx) {
2067 ofl->ofl_tlsldgotndx->gn_gotndx = large_index;
2068 large_index += 2;
2069 }
2070 return (1);
2071 }
2072
2073 /*
2074 * Initializes .got[0] with the _DYNAMIC symbol value.
2075 */
2076 static uintptr_t
2077 ld_fillin_gotplt(Ofl_desc *ofl)
2078 {
2079 if (ofl->ofl_osgot) {
2080 Sym_desc *sdp;
2081
2082 if ((sdp = ld_sym_find(MSG_ORIG(MSG_SYM_DYNAMIC_U),
2083 SYM_NOHASH, NULL, ofl)) != NULL) {
2084 uchar_t *genptr;
2085
2086 genptr = ((uchar_t *)ofl->ofl_osgot->os_outdata->d_buf +
2087 (-neggotoffset * M_GOT_ENTSIZE) +
2088 (M_GOT_XDYNAMIC * M_GOT_ENTSIZE));
2089 /* LINTED */
2090 *((Xword *)genptr) = sdp->sd_sym->st_value;
2091 if (ofl->ofl_flags1 & FLG_OF1_ENCDIFF)
2092 /* LINTED */
2093 *((Xword *)genptr) =
2094 /* LINTED */
2095 ld_bswap_Xword(*((Xword *)genptr));
2096 }
2097 }
2098 return (1);
2099 }
2100
2101
2102
2103 /*
2104 * Template for generating "void (*)(void)" function
2105 */
2106 static const uchar_t nullfunc_tmpl[] = {
2107 /* 0x00 */ 0x81, 0xc3, 0xe0, 0x08, /* retl */
2108 /* 0x04 */ 0x01, 0x00, 0x00, 0x00 /* nop */
2109 };
2110
2111
2112
2113 /*
2114 * Return the ld_targ definition for this target.
2115 */
2116 const Target *
2117 ld_targ_init_sparc(void)
2118 {
2119 static const Target _ld_targ = {
2120 { /* Target_mach */
2121 M_MACH, /* m_mach */
2122 M_MACHPLUS, /* m_machplus */
2123 M_FLAGSPLUS, /* m_flagsplus */
2124 M_CLASS, /* m_class */
2125 M_DATA, /* m_data */
2126
2127 M_SEGM_ALIGN, /* m_segm_align */
2128 M_SEGM_ORIGIN, /* m_segm_origin */
2129 M_SEGM_AORIGIN, /* m_segm_aorigin */
2130 M_DATASEG_PERM, /* m_dataseg_perm */
2131 M_STACK_PERM, /* m_stack_perm */
2132 M_WORD_ALIGN, /* m_word_align */
2133 /* m_def_interp */
2134 #if defined(_ELF64)
2135 MSG_ORIG(MSG_PTH_RTLD_SPARCV9),
2136 #else
2137 MSG_ORIG(MSG_PTH_RTLD),
2138 #endif
2139
2140 /* Relocation type codes */
2141 M_R_ARRAYADDR, /* m_r_arrayaddr */
2142 M_R_COPY, /* m_r_copy */
2143 M_R_GLOB_DAT, /* m_r_glob_dat */
2144 M_R_JMP_SLOT, /* m_r_jmp_slot */
2145 M_R_NUM, /* m_r_num */
2146 M_R_NONE, /* m_r_none */
2147 M_R_RELATIVE, /* m_r_relative */
2148 M_R_REGISTER, /* m_r_register */
2149
2150 /* Relocation related constants */
2151 M_REL_DT_COUNT, /* m_rel_dt_count */
2152 M_REL_DT_ENT, /* m_rel_dt_ent */
2153 M_REL_DT_SIZE, /* m_rel_dt_size */
2154 M_REL_DT_TYPE, /* m_rel_dt_type */
2155 M_REL_SHT_TYPE, /* m_rel_sht_type */
2156
2157 /* GOT related constants */
2158 M_GOT_ENTSIZE, /* m_got_entsize */
2159 M_GOT_XNumber, /* m_got_xnumber */
2160
2161 /* PLT related constants */
2162 M_PLT_ALIGN, /* m_plt_align */
2163 M_PLT_ENTSIZE, /* m_plt_entsize */
2164 M_PLT_RESERVSZ, /* m_plt_reservsz */
2165 M_PLT_SHF_FLAGS, /* m_plt_shf_flags */
2166
2167 /* Section type of .eh_frame/.eh_frame_hdr sections */
2168 SHT_PROGBITS, /* m_sht_unwind */
2169
2170 M_DT_REGISTER, /* m_dt_register */
2171 },
2172 { /* Target_machid */
2173 M_ID_ARRAY, /* id_array */
2174 M_ID_BSS, /* id_bss */
2175 M_ID_CAP, /* id_cap */
2176 M_ID_CAPINFO, /* id_capinfo */
2177 M_ID_CAPCHAIN, /* id_capchain */
2178 M_ID_DATA, /* id_data */
2179 M_ID_DYNAMIC, /* id_dynamic */
2180 M_ID_DYNSORT, /* id_dynsort */
2181 M_ID_DYNSTR, /* id_dynstr */
2182 M_ID_DYNSYM, /* id_dynsym */
2183 M_ID_DYNSYM_NDX, /* id_dynsym_ndx */
2184 M_ID_GOT, /* id_got */
2185 M_ID_GOTDATA, /* id_gotdata */
2186 M_ID_HASH, /* id_hash */
2187 M_ID_INTERP, /* id_interp */
2188 M_ID_UNKNOWN, /* id_lbss (unused) */
2189 M_ID_LDYNSYM, /* id_ldynsym */
2190 M_ID_NOTE, /* id_note */
2191 M_ID_NULL, /* id_null */
2192 M_ID_PLT, /* id_plt */
2193 M_ID_REL, /* id_rel */
2194 M_ID_STRTAB, /* id_strtab */
2195 M_ID_SYMINFO, /* id_syminfo */
2196 M_ID_SYMTAB, /* id_symtab */
2197 M_ID_SYMTAB_NDX, /* id_symtab_ndx */
2198 M_ID_TEXT, /* id_text */
2199 M_ID_TLS, /* id_tls */
2200 M_ID_TLSBSS, /* id_tlsbss */
2201 M_ID_UNKNOWN, /* id_unknown */
2202 M_ID_UNWIND, /* id_unwind */
2203 M_ID_UNWINDHDR, /* id_unwindhdr */
2204 M_ID_USER, /* id_user */
2205 M_ID_VERSION, /* id_version */
2206 },
2207 { /* Target_nullfunc */
2208 nullfunc_tmpl, /* nf_template */
2209 sizeof (nullfunc_tmpl), /* nf_size */
2210 },
2211 { /* Target_fillfunc */
2212 /*
2213 * On sparc, special filling of executable sections
2214 * is undesirable, and the default 0 fill supplied
2215 * by libelf is preferred:
2216 *
2217 * - 0 fill is interpreted as UNIMP instructions,
2218 * which cause an illegal_instruction_trap. These
2219 * serve as a sentinel against poorly written
2220 * code. The sparc architecture manual discusses
2221 * this as providing a measure of runtime safety.
2222 *
2223 * - The one place where a hole should conceivably
2224 * be filled with NOP instructions is in the
2225 * .init/.fini sections. However, the sparc
2226 * assembler sizes the sections it generates
2227 * to a multiple of the section alignment, and as
2228 * such, takes the filling task out of our hands.
2229 * Furthermore, the sparc assembler uses 0-fill
2230 * for this, forcing the authors of sparc
2231 * assembler for .init/.fini sections to be aware
2232 * of this case and explicitly supply NOP fill.
2233 * Hence, there is no role for the link-editor.
2234 */
2235 NULL /* ff_execfill */
2236 },
2237 { /* Target_machrel */
2238 reloc_table,
2239
2240 ld_init_rel, /* mr_init_rel */
2241 ld_mach_eflags, /* mr_mach_eflags */
2242 ld_mach_make_dynamic, /* mr_mach_make_dynamic */
2243 ld_mach_update_odynamic, /* mr_mach_update_odynamic */
2244 ld_calc_plt_addr, /* mr_calc_plt_addr */
2245 ld_perform_outreloc, /* mr_perform_outreloc */
2246 ld_do_activerelocs, /* mr_do_activerelocs */
2247 ld_add_outrel, /* mr_add_outrel */
2248 ld_reloc_register, /* mr_reloc_register */
2249 ld_reloc_local, /* mr_reloc_local */
2250 ld_reloc_GOTOP, /* mr_reloc_GOTOP */
2251 ld_reloc_TLS, /* mr_reloc_TLS */
2252 ld_assign_got, /* mr_assign_got */
2253 ld_find_got_ndx, /* mr_find_got_ndx */
2254 ld_calc_got_offset, /* mr_calc_got_offset */
2255 ld_assign_got_ndx, /* mr_assign_got_ndx */
2256 ld_assign_plt_ndx, /* mr_assign_plt_ndx */
2257 ld_allocate_got, /* mr_allocate_got */
2258 ld_fillin_gotplt, /* mr_fillin_gotplt */
2259 },
2260 { /* Target_machsym */
2261 ld_reg_check_sparc, /* ms_reg_check */
2262 ld_mach_sym_typecheck_sparc, /* ms_mach_sym_typecheck */
2263 ld_is_regsym_sparc, /* ms_is_regsym */
2264 ld_reg_find_sparc, /* ms_reg_find */
2265 ld_reg_enter_sparc /* ms_reg_enter */
2266 }
2267 };
2268
2269 return (&_ld_targ);
2270 }