+ added the 'AREA' directive support to the Z80 inline assembler, that allows

  you to define custom sections



git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45617 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 1 deletions

diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas
index bb4a2b4493..0fcd1cf412 100644
--- a/compiler/ogrel.pas
+++ b/compiler/ogrel.pas
@@ -314,7 +314,10 @@ implementation
           '.ARM.attributes'
         );
       begin
-        result:=secnames[atype];
+        if atype=sec_user then
+          result:=aname
+        else
+          result:=secnames[atype];
       end;
 
     function TRelObjData.sectiontype2align(atype:TAsmSectiontype):longint;