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

+ order omf sections first by classname, then by name

Browse Source 
git-svn-id: trunk@31352 -
This commit is contained in:
nickysn 2015-08-20 21:21:52 +00:00
parent eed7e3aa6b
commit 1b9eeee25d
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ogomf.pas
View File

@ -207,6 +207,7 @@ interface
TMZExeOutput = class(TExeOutput)
protected
procedure DoRelocationFixup(objsec:TObjSection);override;
procedure Order_ObjSectionList(ObjSectionList : TFPObjectList;const aPattern:string);override;
function writeData:boolean;override;
public
constructor create;override;
@ -1673,6 +1674,21 @@ implementation
end;
end;
function IOmfObjSectionClassNameCompare(Item1, Item2: Pointer): Integer;
var
I1 : TOmfObjSection absolute Item1;
I2 : TOmfObjSection absolute Item2;
begin
Result:=CompareStr(I1.ClassName,I2.ClassName);
if Result=0 then
Result:=CompareStr(I1.Name,I2.Name);
end;
procedure TMZExeOutput.Order_ObjSectionList(ObjSectionList: TFPObjectList; const aPattern: string);
begin
ObjSectionList.Sort(@IOmfObjSectionClassNameCompare);
end;
function TMZExeOutput.writeData: boolean;
var
Header: TMZExeHeader;