From 6eee90ad3f3363a3f6b41b97a5716e4e477dbde0 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sat, 22 Apr 2017 08:48:23 +0000
Subject: [PATCH]  Fix section alignment code for GNU assembler for smartlinked
 objects on aix system

git-svn-id: trunk@35885 -
---
 compiler/aggas.pas | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/compiler/aggas.pas b/compiler/aggas.pas
index 25a394b1db..4c72ca1110 100644
--- a/compiler/aggas.pas
+++ b/compiler/aggas.pas
@@ -521,18 +521,20 @@ implementation
 
             TODO: This likely applies to all systems which smartlink without
             creating libraries }
-          if is_smart_section(atype) and (aname<>'') then
-            begin
-              s:=sectionattrs(atype);
-              if (s<>'') then
-                writer.AsmWrite(',"'+s+'"');
-            end
-         else if target_info.system in systems_aix then
-           begin
-             s:=sectionalignment_aix(atype,secalign);
-             if s<>'' then
-               writer.AsmWrite(','+s);
-           end;
+          begin
+            if is_smart_section(atype) and (aname<>'') then
+              begin
+                s:=sectionattrs(atype);
+                if (s<>'') then
+                  writer.AsmWrite(',"'+s+'"');
+              end;
+            if target_info.system in systems_aix then
+              begin
+                s:=sectionalignment_aix(atype,secalign);
+                if s<>'' then
+                  writer.AsmWrite(','+s);
+              end;
+          end;
         end;
         writer.AsmLn;
         LastSecType:=atype;