Browse Source

* enable rodata for ppc (+ darwin renaming to ".const")

git-svn-id: trunk@3642 -
Jonas Maebe 19 years ago
parent
commit
848fa52fa1
1 changed files with 6 additions and 1 deletions
  1. 6 1
      compiler/aggas.pas

+ 6 - 1
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;