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

* MacOS Classic uses apparently very similiar mechanisms for the TOC as powerpc-aix

Browse Source
This commit is contained in:
florian 2025-01-03 17:36:34 +01:00
parent 8c28eb0935
commit f7264d3f29
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ppcgen/cgppc.pas
View File

@ -297,6 +297,7 @@ unit cgppc;
function tcgppcgen.g_indirect_sym_load(list: TAsmList; const symname: string; const flags: tindsymflags): tregister;
begin
case target_info.system of
system_powerpc_macosclassic,
system_powerpc_aix,
system_powerpc64_aix:
result:=load_got_symbol(list,symname,flags);
@ -765,7 +766,7 @@ unit cgppc;
ref.base:=NR_RTOC;
ref.refaddr:=addr_pic;
end
else if target_info.system in systems_aix then
else if target_info.system in systems_aix+[system_powerpc_macosclassic] then
get_aix_toc_sym(list,symbol,flags,ref,false)
else
internalerror(2007102010);
@ -1035,7 +1036,7 @@ unit cgppc;
{ if we have to create PIC, add the symbol to the TOC/GOT }
if (((target_info.system = system_powerpc64_linux) and
(cs_create_pic in current_settings.moduleswitches)) or
(target_info.system in systems_aix)) and
(target_info.system in systems_aix+[system_powerpc_macosclassic])) and
(assigned(ref.symbol) and
not assigned(ref.relsymbol)) then
begin