paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:00:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@3642 -
This commit is contained in:
Jonas Maebe 2006-05-23 11:08:07 +00:00
parent b5ce7e454c
commit 848fa52fa1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/aggas.pas
View File

@ -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;