From f7264d3f2918102993cc4b20570d7fadcfdf79fa Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 3 Jan 2025 17:36:34 +0100
Subject: [PATCH]  * MacOS Classic uses apparently very similiar mechanisms for
 the TOC as powerpc-aix

---
 compiler/ppcgen/cgppc.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/ppcgen/cgppc.pas b/compiler/ppcgen/cgppc.pas
index b1beb2d706..37d191471d 100644
--- a/compiler/ppcgen/cgppc.pas
+++ b/compiler/ppcgen/cgppc.pas
@@ -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