* always use 1-byte section alignment for the rel internal obj writer

git-svn-id: trunk@45490 -

compiler/ogrel.pas

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