From 848fa52fa10d9debf0136d7b21f9ea489e02361c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 23 May 2006 11:08:07 +0000
Subject: [PATCH]   * enable rodata for ppc (+ darwin renaming to ".const")

git-svn-id: trunk@3642 -
---
 compiler/aggas.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/aggas.pas b/compiler/aggas.pas
index 1a8589e594..f529b89da3 100644
--- a/compiler/aggas.pas
+++ b/compiler/aggas.pas
@@ -237,7 +237,7 @@ implementation
           '.data',
 { why doesn't .rodata work? (FK) }
 {$warning TODO .rodata not yet working}
-{$ifdef arm}
+{$if defined(arm) or defined(powerpc)}
           '.rodata',
 {$else arm}
           '.data',
@@ -1075,6 +1075,11 @@ implementation
                 inc(debugframecount);
                 exit;
               end;
+            sec_rodata:
+              begin
+                result := '.const';
+                exit;
+              end;
           end;
         result := inherited sectionname(atype,aname);
       end;