From e0744b9759d99ba91cbd61e85590c02418703ff4 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 10 Apr 2014 14:18:48 +0000
Subject: [PATCH]  Fix section output for user section in smart mode

git-svn-id: trunk@27510 -
---
 compiler/x86/agx86nsm.pas | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/compiler/x86/agx86nsm.pas b/compiler/x86/agx86nsm.pas
index 08a5e8e5c3..80bea8dcf2 100644
--- a/compiler/x86/agx86nsm.pas
+++ b/compiler/x86/agx86nsm.pas
@@ -592,7 +592,7 @@ interface
             AsmWrite(aname);
           end;
         AsmLn;
-        LasTSecType:=atype;
+        LastSecType:=atype;
       end;
 
     procedure TX86NasmAssembler.WriteTree(p:TAsmList);
@@ -617,7 +617,7 @@ interface
       e        : extended;
 {$endif cpuextended}
       fixed_opcode: TAsmOp;
-      prefix   : string;
+      prefix, LastSecName  : string;
     begin
       if not assigned(p) then
        exit;
@@ -663,15 +663,15 @@ interface
              begin
                if tai_section(hp).sectype<>sec_none then
                  WriteSection(tai_section(hp).sectype,tai_section(hp).name^);
-               LasTSecType:=tai_section(hp).sectype;
+               LastSecType:=tai_section(hp).sectype;
              end;
 
            ait_align :
              begin
                if (tai_align(hp).aligntype>1) then
                  begin
-                   if (lastsectype=sec_bss) or (
-                      (lastsectype=sec_threadvar) and
+                   if (LastSecType=sec_bss) or (
+                      (LastSecType=sec_threadvar) and
                       (target_info.system in (systems_windows+systems_wince))
                      ) then
                       AsmWriteLn(#9'ALIGNB '+tostr(tai_align(hp).aligntype))
@@ -1097,14 +1097,18 @@ interface
                     WriteHeader;
                   end;
                { avoid empty files }
+                 LastSecType:=sec_none;
                  while assigned(hp.next) and (tai(hp.next).typ in [ait_cutobject,ait_section,ait_comment]) do
                   begin
                     if tai(hp.next).typ=ait_section then
-                      lasTSectype:=tai_section(hp.next).sectype;
+                      begin
+                        LastSecType:=tai_section(hp.next).sectype;
+                        LastSecName:=tai_section(hp.next).name^;
+                      end;
                     hp:=tai(hp.next);
                   end;
-                 if lasTSectype<>sec_none then
-                   WriteSection(lasTSectype,'');
+                 if LastSecType<>sec_none then
+                   WriteSection(LastSecType,LastSecName);
                  AsmStartSize:=AsmSize;
                end;
              end;