mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-09 04:21:49 +08:00
3c5038247c
This patch adds support for TLS relocation targeting C_HIDEXT symbols. In gas, TLS relocations, except R_TLSM and R_TLMSL, must keep the value of their target symbol. In ld, it simply ensures that internal TLS symbols are added to the linker hash table for xcoff_reloc_type_tls. It also improves the tests made by both. bfd/ChangeLog: * coff-rs6000.c (xcoff_howto_table): Fix name of R_TLSML. (xcoff_reloc_type_tls): Replace the error when h is NULL by an assert. (xcoff_complain_overflow_unsigned_func): Adjust comments. * coff64-rs6000.c (xcoff64_howto_table): Fix name of R_TLSML. * xcofflink.c (xcoff_link_add_symbols_to_hash_table): New function. (xcoff_link_add_symbols): Add C_HIDEXT TLS symbols to the linker hash table. gas/ChangeLog: * config/tc-ppc.c (md_apply_fix): Enable support for TLS relocation over internal symbols. * testsuite/gas/ppc/aix.exp: Replace xcoff-tlms by xcoff-tls. * testsuite/gas/ppc/xcoff-tlsm-32.d: Removed. * testsuite/gas/ppc/xcoff-tlsm-64.d: Removed. * testsuite/gas/ppc/xcoff-tlsm.s: Removed. * testsuite/gas/ppc/xcoff-tls-32.d: New test. * testsuite/gas/ppc/xcoff-tls-64.d: New test. * testsuite/gas/ppc/xcoff-tls.s: New test. ld/ChangeLog: * testsuite/ld-powerpc/aix52.exp: Improve aix-tls-reloc test. * testsuite/ld-powerpc/aix-tls-reloc.s: Likewise. * testsuite/ld-powerpc/aix-tls-reloc-32.d: Removed. * testsuite/ld-powerpc/aix-tls-reloc-64.d: Removed. * testsuite/ld-powerpc/aix-tls-reloc-32.dd: New test. * testsuite/ld-powerpc/aix-tls-reloc-32.dt: New test. * testsuite/ld-powerpc/aix-tls-reloc-64.dd: New test. * testsuite/ld-powerpc/aix-tls-reloc-64.dt: New test.
148 lines
3.2 KiB
ArmAsm
148 lines
3.2 KiB
ArmAsm
# An external tdata symbol
|
|
.globl tdata_ext[TL]
|
|
.csect tdata_ext[TL]
|
|
.long 1
|
|
|
|
.csect tdata_int_csect[TL]
|
|
# A first internal tdata symbol
|
|
tdata_int1:
|
|
.long 2
|
|
# A second internal tdata symbol
|
|
tdata_int2:
|
|
.long 3
|
|
|
|
# Two external tbss symbols.
|
|
# XCOFF doesn't seem to allow internal tbss
|
|
# (or bss) symbols.
|
|
.comm tbss_ext[UL],8
|
|
|
|
.toc
|
|
# TC entries targeting the external tdata symbol
|
|
# Their value should be "tdata_ext" address,
|
|
# except TLSM value which must be 0.
|
|
# Their relocations should target it.
|
|
.tc tdata_ext_gd[TC],tdata_ext[TL]
|
|
.tc .tdata_ext_gd[TC],tdata_ext[TL]@m
|
|
.tc tdata_ext_ld[TC],tdata_ext[TL]@ld
|
|
.tc tdata_ext_ie[TC],tdata_ext[TL]@ie
|
|
.tc tdata_ext_le[TC],tdata_ext[TL]@le
|
|
|
|
# TC entries targeting internal tdata symbols.
|
|
# Their value should be "tdata_int1" or "tdata_int2"
|
|
# addresses, except TLSM value which must be 0.
|
|
# Their relocations should target "tdata_int_csect".
|
|
.tc tdata_int1_gd[TC],tdata_int1
|
|
.tc .tdata_int1_gd[TC],tdata_int1@m
|
|
.tc tdata_int1_ld[TC],tdata_int1@ld
|
|
.tc tdata_int1_ie[TC],tdata_int1@ie
|
|
.tc tdata_int1_le[TC],tdata_int1@le
|
|
.tc tdata_int2_gd[TC],tdata_int2
|
|
.tc .tdata_int2_gd[TC],tdata_int2@m
|
|
.tc tdata_int2_ld[TC],tdata_int2@ld
|
|
.tc tdata_int2_ie[TC],tdata_int2@ie
|
|
.tc tdata_int2_le[TC],tdata_int2@le
|
|
|
|
# TC entries targeting the external tdata symbol
|
|
# Their value should be "tbss_ext" address,
|
|
# except TLSM value which must be 0.
|
|
# Their relocations should target "tbss_ext".
|
|
.tc tbss_ext_gd[TC],tbss_ext[UL]
|
|
.tc .tbss_ext_gd[TC],tbss_ext[UL]@m
|
|
.tc tbss_ext_ld[TC],tbss_ext[UL]@ld
|
|
.tc tbss_ext_ie[TC],tbss_ext[UL]@ie
|
|
.tc tbss_ext_le[TC],tbss_ext[UL]@le
|
|
|
|
# Module entry
|
|
.tc mh[TC],mh[TC]@ml
|
|
.rename mh[TC], "_$TLSML" # Symbol for the module handle
|
|
|
|
# Macros
|
|
.macro gd_macro,sym
|
|
.if size == 32
|
|
lwz 4, \sym\()[TC](2)
|
|
lwz 3, .\sym\()[TC](2)
|
|
.else
|
|
ld 4, \sym\()[TC](2)
|
|
ld 3, .\sym\()[TC](2)
|
|
.endif
|
|
bla __tls_get_addr
|
|
.endm
|
|
|
|
.macro ld_macro, sym
|
|
.if size == 32
|
|
lwz 4, \sym\()[TC](2)
|
|
.else
|
|
ld 4, \sym\()[TC](2)
|
|
.endif
|
|
add 5,3,4
|
|
.endm
|
|
|
|
.macro ie_macro, sym
|
|
.if size == 32
|
|
bla __get_tpointer
|
|
lwz 4, \sym\()[TC](2)
|
|
add 5,3,4
|
|
.else
|
|
ld 4, \sym\()[TC](2)
|
|
add 5,4,13
|
|
.endif
|
|
.endm
|
|
|
|
.macro le_macro, sym
|
|
.if size == 32
|
|
bla __get_tpointer
|
|
lwz 4, \sym\()[TC](2)
|
|
add 5,3,4
|
|
.else
|
|
ld 4, \sym\()[TC](2)
|
|
add 5,3,13
|
|
.endif
|
|
.endm
|
|
|
|
|
|
# As TLS relocations are made in for TC symbols,
|
|
# this function only aims to avoid garbage collection
|
|
# of these symbols, especially hidden ones.
|
|
.globl foo
|
|
.globl .foo
|
|
.csect foo[DS],3
|
|
foo:
|
|
.if size == 32
|
|
.long .foo, TOC[tc0], 0
|
|
.else
|
|
.llong .foo, TOC[tc0], 0
|
|
.endif
|
|
|
|
.csect foo[PR]
|
|
.foo:
|
|
# External syms
|
|
#GD
|
|
gd_macro tdata_ext_gd
|
|
gd_macro tdata_int1_gd
|
|
gd_macro tdata_int2_gd
|
|
gd_macro tbss_ext_gd
|
|
|
|
#LD
|
|
.if size == 32
|
|
lwz 3, mh[TC](2)
|
|
.else
|
|
ld 3, mh[TC](2)
|
|
.endif
|
|
bla __tls_get_mod
|
|
ld_macro tdata_ext_ld
|
|
ld_macro tdata_int1_ld
|
|
ld_macro tdata_int2_ld
|
|
ld_macro tbss_ext_ld
|
|
|
|
#IE
|
|
ie_macro tdata_ext_ie
|
|
ie_macro tdata_int1_ie
|
|
ie_macro tdata_int2_ie
|
|
ie_macro tbss_ext_ie
|
|
|
|
#LE
|
|
le_macro tdata_ext_le
|
|
le_macro tdata_int1_le
|
|
le_macro tdata_int2_le
|
|
le_macro tbss_ext_le
|