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

Handle cross-endian case inside TCoffObjData.writereloc method

Browse Source
This commit is contained in:
Pierre Muller 2024-09-16 18:28:52 +00:00
parent 822a9e1bb1
commit 400094921c
1 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/ogcoff.pas
View File

@ -1639,7 +1639,18 @@ const pemagic : array[0..3] of byte = (
procedure TCoffObjData.writereloc(data:aint;len:aword;p:TObjSymbol;reloctype: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
ba : multi;
curraddr,
symaddr : aword;
begin
@ -1723,7 +1734,31 @@ const pemagic : array[0..3] of byte = (
if reloctype=RELOC_RVA then
internalerror(200603033);
end;
CurrObjSec.write(data,len);
if target_info.endian<>source_info.endian then
begin
ba.q:=0;
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;