+ order omf sections first by classname, then by name

git-svn-id: trunk@31352 -

compiler/ogomf.pas

@@ -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;