From f150fc6b7cdf797f9cbbd436ab40ba388f4328bf Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Tue, 21 Apr 2020 06:05:25 +0000
Subject: [PATCH] * at least clang can savely generate relocatable readonly
 sections, so use "r" for aarch64-win64

git-svn-id: trunk@44931 -
---
 compiler/aggas.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/aggas.pas b/compiler/aggas.pas
index 940047e230..b09ae37803 100644
--- a/compiler/aggas.pas
+++ b/compiler/aggas.pas
@@ -432,7 +432,10 @@ implementation
 
           { TODO: these need a fix to become read-only }
           sec_rodata, sec_rodata_norel:
-            result:='d';
+            if target_info.system=system_aarch64_win64 then
+              result:='r'
+            else
+              result:='d';
 
           sec_bss:
             result:='b';