paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:25:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add missing swaping in case of different endianess of stab entry inside TInternalAssembler.WriteStab

Browse Source
This commit is contained in:
Pierre Muller 2023-04-30 21:23:06 +02:00
parent 262904b8c1
commit 144ee6d51d
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/assemble.pas
View File

@ -1628,6 +1628,7 @@ Implementation
write a the value field with relocation } write a the value field with relocation }
oldsec:=ObjData.CurrObjSec; oldsec:=ObjData.CurrObjSec;
ObjData.SetSection(ObjData.StabsSec); ObjData.SetSection(ObjData.StabsSec);
MaybeSwapStab(stab);
ObjData.Writebytes(stab,sizeof(TObjStabEntry)-4); ObjData.Writebytes(stab,sizeof(TObjStabEntry)-4);
ObjData.Writereloc(stab.nvalue,4,relocsym,RELOC_ABSOLUTE32); ObjData.Writereloc(stab.nvalue,4,relocsym,RELOC_ABSOLUTE32);
ObjData.setsection(oldsec); ObjData.setsection(oldsec);

1
compiler/ogbase.pas
View File

@ -757,6 +757,7 @@ interface
function align_aword(v:aword;a:longword):aword; function align_aword(v:aword;a:longword):aword;
function align_qword(v:qword;a:longword):qword; function align_qword(v:qword;a:longword):qword;
function align_objsecofs(v:TObjSectionOfs;a:longword):TObjSectionOfs; function align_objsecofs(v:TObjSectionOfs;a:longword):TObjSectionOfs;
procedure MaybeSwapStab(var v:TObjStabEntry);
implementation implementation