paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:29:44 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogrel.pas
View File

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