Imagelibrary/binutils-gdb
1
0
Fork 1
mirror of https://github.com/bminor/binutils-gdb.git synced 2025-11-16 04:24:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

s390: Emit relocation for 32-bit immediate operand

Browse Source 
IBM Z instruction format RIL-a has a 32-bit immediate operand in
instruction bits 16 to 47.  Enable the assembler to emit a 32-bit
direct or PC-relative relocation when processing a fixup, similar
as it is already done for 16-bit immediate operands in bits 16-31.

This enables to assemble the following:

	lgfi	%r1,symbol	# R_390_32
	lgfi	%r1,symbol-.	# R_390_PC32

Furthermore it brings GNU assembler on par with LLVM assembler in
that regard.

gas/
	* config/tc-s390.c (md_apply_fix): Emit 32-bit direct or
	PC-relative relocation for 32-bit immediate operand in
	instruction bits 16-47.

gas/testsuite/
	* gas/s390/zarch-reloc.d: Add tests for relocation of RIL-a
	32-bit immediate operand.
	* gas/s390/zarch-reloc.s: Likewise.

Signed-off-by: Jens Remus <jremus@linux.ibm.com>
This commit is contained in:
Jens Remus
2025-11-04 11:51:07 +01:00
parent c38cda45dd
commit cf312b990e
3 changed files with 25 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
gas/config/tc-s390.c
View File

@@ -2592,14 +2592,24 @@ md_apply_fix (fixS *fixP, valueT *valP, segT seg ATTRIBUTE_UNUSED)
fixP->fx_pcrel_adjust = 3;
fixP->fx_r_type = BFD_RELOC_390_PC24DBL;
}
else if (operand->bits == 32 && operand->shift == 16
&& (operand->flags & S390_OPERAND_PCREL))
else if (operand->bits == 32 && operand->shift == 16)
{
fixP->fx_size = 4;
fixP->fx_where += 2;
fixP->fx_offset += 2;
fixP->fx_pcrel_adjust = 2;
fixP->fx_r_type = BFD_RELOC_390_PC32DBL;
if (operand->flags & S390_OPERAND_PCREL)
{
fixP->fx_offset += 2;
fixP->fx_pcrel_adjust = 2;
fixP->fx_r_type = BFD_RELOC_390_PC32DBL;
}
else if (fixP->fx_pcrel)
{
fixP->fx_offset += 2;
fixP->fx_pcrel_adjust = 2;
fixP->fx_r_type = BFD_RELOC_32_PCREL;
}
else
fixP->fx_r_type = BFD_RELOC_32;
}
else
{

12
gas/testsuite/gas/s390/zarch-reloc.d
View File

@@ -23,10 +23,14 @@ Disassembly of section .text:
[ ]*42: R_390_GOTPLT64 test_R_390_GOTPLT64
4a: c0 10 00 00 00 00 [ ]*larl %r1,4a <foo\+0x4a>
[ ]*4c: R_390_GOTPLTENT test_R_390_GOTPLTENT\+0x2
50: c0 11 00 00 00 00 [ ]*lgfi %r1,0
[ ]*52: R_390_32 test_R_390_32
56: c0 11 00 00 00 00 [ ]*lgfi %r1,0
[ ]*58: R_390_PC32 test_R_390_PC32\+0x58
.* <bar>:
50: c0 e5 00 00 00 00 [ ]*brasl %r14,50 <bar>
[ ]*52: R_390_PLT32DBL foo\+0x2
5c: c0 e5 00 00 00 00 [ ]*brasl %r14,5c <bar>
[ ]*5e: R_390_PLT32DBL foo\+0x2
[ ]*...
[ ]*56: R_390_PLT64 foo\+0x6
5e: 07 07 [ ]*nopr %r7
[ ]*62: R_390_PLT64 foo\+0x6
6a: 07 07 [ ]*nopr %r7

2
gas/testsuite/gas/s390/zarch-reloc.s
View File

@@ -12,6 +12,8 @@ foo:
.quad test_R_390_PLTOFF64@PLTOFF
.quad test_R_390_GOTPLT64@GOTPLT
larl %r1,test_R_390_GOTPLTENT@GOTPLT
lgfi %r1,test_R_390_32
lgfi %r1,test_R_390_PC32-foo
bar:
brasl %r14,foo@PLT