From 3a03aee3863d31052c33d16bb86c8aba654dc8ac Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 22 May 2006 19:15:11 +0000
Subject: [PATCH] * use .rodata directive on arm

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

diff --git a/compiler/aggas.pas b/compiler/aggas.pas
index 79e9ba8464..1a8589e594 100644
--- a/compiler/aggas.pas
+++ b/compiler/aggas.pas
@@ -235,8 +235,13 @@ implementation
         secnames : array[TAsmSectiontype] of string[17] = ('',
           '.text',
           '.data',
+{ why doesn't .rodata work? (FK) }
 {$warning TODO .rodata not yet working}
+{$ifdef arm}
+          '.rodata',
+{$else arm}
           '.data',
+{$endif arm}
           '.bss',
           '.threadvar',
           '', { stubs }