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

* always use 1-byte section alignment for the rel internal obj writer

Browse Source 
git-svn-id: trunk@45490 -
This commit is contained in:
nickysn 2020-05-24 22:47:54 +00:00
parent e82b9c3b2e
commit 36323fe424
1 changed files with 6 additions and 0 deletions

6
compiler/ogrel.pas
View File

@ -73,6 +73,7 @@ interface
TRelObjData = class(TObjData)
public
function sectionname(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;override;
function sectiontype2align(atype:TAsmSectiontype):longint;override;
procedure writeReloc(Data:TRelocDataInt;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);override;
end;
@ -281,6 +282,11 @@ implementation
result:=secnames[atype];
end;
function TRelObjData.sectiontype2align(atype:TAsmSectiontype):longint;
begin
result:=1;
end;
procedure TRelObjData.writeReloc(Data: TRelocDataInt; len: aword; p: TObjSymbol; Reloctype: TObjRelocationType);
var
bytes: array [0..1] of Byte;