소스 검색

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

git-svn-id: trunk@3642 -
Jonas Maebe 19 년 전
부모
커밋
848fa52fa1
1개의 변경된 파일6개의 추가작업 그리고 1개의 파일을 삭제
  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;