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

* override MemPos_Start for the NewExe exe output and perform the whole MemPos

Browse Source 
stage inside of it, because the linker script contains only dummy section
  names and thus none of the sections get their MemPos set, while using the
  default implementation

git-svn-id: trunk@42562 -
This commit is contained in:
nickysn 2019-08-02 14:32:40 +00:00
parent c32ddf42eb
commit 30e7406be3
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ogomf.pas
View File

@ -528,6 +528,7 @@ interface
procedure Order_ExeSection(const aname:string);override;
procedure Order_EndExeSection;override;
procedure Order_ObjSection(const aname:string);override;
procedure MemPos_Start;override;
procedure GenerateLibraryImports(ImportLibraryList:TFPHashObjectList);override;
function writeData:boolean;override;
end;
@ -3760,6 +3761,15 @@ cleanup:
TmpObjSectionList.Free;
end;
procedure TNewExeOutput.MemPos_Start;
var
i: Integer;
begin
inherited MemPos_Start;
for i:=0 to ExeSectionList.Count-1 do
MemPos_ExeSection(TExeSection(ExeSectionList[i]));
end;
procedure TNewExeOutput.GenerateLibraryImports(ImportLibraryList: TFPHashObjectList);
var
i,j: longint;