paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 03:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use the TMZExeOutput.MZFlatContentSection property in TInternalLinkerMsDos.GetTotalSizeForSegmentClass

Browse Source 
instead of finding the exe section by name

git-svn-id: trunk@31387 -
This commit is contained in:
nickysn 2015-08-24 15:09:35 +00:00
parent 449506ffb7
commit d7f08866e5
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogomf.pas
View File

@ -280,7 +280,6 @@ interface
function writeCom:boolean;
property ExeUnifiedLogicalSegments: TFPHashObjectList read FExeUnifiedLogicalSegments;
property ExeUnifiedLogicalGroups: TFPHashObjectList read FExeUnifiedLogicalGroups;
property MZFlatContentSection: TMZExeSection read GetMZFlatContentSection;
property Header: TMZExeHeader read FHeader;
protected
procedure Load_Symbol(const aname:string);override;
@ -291,6 +290,7 @@ interface
public
constructor create;override;
destructor destroy;override;
property MZFlatContentSection: TMZExeSection read GetMZFlatContentSection;
end;
TOmfAssembler = class(tinternalassembler)

2
compiler/systems/t_msdos.pas
View File

@ -407,7 +407,7 @@ var
i: Integer;
begin
Result:=0;
objseclist:=aExeOutput.FindExeSection('.MZ_flat_content').ObjSectionList;
objseclist:=TMZExeOutput(aExeOutput).MZFlatContentSection.ObjSectionList;
for i:=0 to objseclist.Count-1 do
begin
objsec:=TOmfObjSection(objseclist[i]);