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