paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Support cross-endian compilation for telfobjdata.writereloc method

Browse Source
This commit is contained in:
Pierre Muller 2024-01-25 17:10:30 +01:00
parent 5c564ea940
commit 1d1e070ad2
1 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
compiler/ogelf.pas
View File

@ -623,9 +623,21 @@ implementation
procedure TElfObjData.writereloc(data:aint;len:aword;p:TObjSymbol;reltype:TObjRelocationType);
type
multi = record
case integer of
0 : (ba : array[0..sizeof(aint)-1] of byte);
1 : (b : byte);
2 : (w : word);
4 : (d : dword);
8 : (q : qword);
end;
var
symaddr : aint;
objreloc: TObjRelocation;
ba : multi;
b : byte;
objreloc: TObjRelocation;
begin
if CurrObjSec=nil then
internalerror(200403292);
@ -683,7 +695,30 @@ implementation
data:=0;
end;
end;
CurrObjSec.write(data,len);
if target_info.endian<>source_info.endian then
begin
if (len<=sizeof(data)) then
case len of
1 : ba.b:=byte(data);
2 : begin
ba.w:=word(data);
ba.w:=swapendian(ba.w);
end;
4 : begin
ba.d:=dword(data);
ba.d:=swapendian(ba.d);
end;
8 : begin
ba.q:=qword(data);
ba.q:=swapendian(ba.q);
end;
else
internalerror(2024012501);
end;
CurrObjSec.write(ba,len);
end
else
CurrObjSec.write(data,len);
end;