From 929fc500043b93f1e06976d0735c3cfffcb2c446 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 10 May 2021 20:30:31 +0000
Subject: [PATCH]   * cleanup

git-svn-id: trunk@49349 -
---
 compiler/arm/agarmvasm.pas | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

diff --git a/compiler/arm/agarmvasm.pas b/compiler/arm/agarmvasm.pas
index e903e1b298..d9507ab039 100644
--- a/compiler/arm/agarmvasm.pas
+++ b/compiler/arm/agarmvasm.pas
@@ -51,7 +51,6 @@ unit agarmvasm;
        itcpugas,cpuinfo,
        aasmcpu;
 
-
 {****************************************************************************}
 {                         VASM m68k Assembler writer                         }
 {****************************************************************************}
@@ -63,6 +62,7 @@ unit agarmvasm;
         InstrWriter := TARMInstrWriter.create(self);
       end;
 
+
     function TARMVASM.sectionattrs(atype:TAsmSectiontype):string;
       begin
         case atype of
@@ -73,13 +73,7 @@ unit agarmvasm;
           sec_data, sec_rodata:
             result:='adrw';
           sec_rodata_norel:
-            case target_info.system of
-              { stop vlink from complaining when it merges ro sections into rw ones (KB) }
-              system_m68k_atari: result:='adrw';
-              system_m68k_amiga: result:='adrw';
-            else
-              result:='adr';
-            end;
+            result:='adr';
           sec_bss, sec_threadvar:
             result:='aurw';
           sec_stab, sec_stabstr:
@@ -89,6 +83,7 @@ unit agarmvasm;
         end;
       end;
 
+
     function TARMVASM.MakeCmdLine: TCmdStr;
       var
         objtype: string;
@@ -109,8 +104,6 @@ unit agarmvasm;
         Replace(result,'$EXTRAOPT',asmextraopt);
       end;
 
-
-
 {*****************************************************************************
                                   Initialize
 *****************************************************************************}