From 5e60724d233db649f0bb98b3f169568cf6288d6c Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 31 Aug 2002 15:59:30 +0000
Subject: [PATCH]   + HEAP* stuff must be generated for Linux/PPC as well   +
 direct assembler reader searches now global and static symtables as well

---
 compiler/pmodules.pas         | 14 +++++++++-----
 compiler/powerpc/radirect.pas | 14 +++++++++-----
 2 files changed, 18 insertions(+), 10 deletions(-)

diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index fceab379b2..fa4be2d344 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -284,14 +284,14 @@ implementation
             system_i386_OS2:
               ;
 {$endif i386}
+{$ifdef powerpc}
+            system_powerpc_macos:
+              ;
+{$endif powerpc}
 {$ifdef alpha}
             system_alpha_linux:
               ;
 {$endif alpha}
-{$ifdef powerpc}
-            system_powerpc_linux:
-              ;
-{$endif powerpc}
 {$ifdef m68k}
             system_m68k_Mac:
               bssSegment.concat(Tai_datablock.Create_global('HEAP',4));
@@ -1387,7 +1387,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.74  2002-08-25 19:25:20  peter
+  Revision 1.75  2002-08-31 15:59:30  florian
+    + HEAP* stuff must be generated for Linux/PPC as well
+    + direct assembler reader searches now global and static symtables as well
+
+  Revision 1.74  2002/08/25 19:25:20  peter
     * sym.insert_in_data removed
     * symtable.insertvardata/insertconstdata added
     * removed insert_in_data call from symtable.insert, it needs to be
diff --git a/compiler/powerpc/radirect.pas b/compiler/powerpc/radirect.pas
index 0b32e496f4..5262f24abd 100644
--- a/compiler/powerpc/radirect.pas
+++ b/compiler/powerpc/radirect.pas
@@ -200,8 +200,7 @@ interface
                                                     if pos(',',s) > 0 then
                                                       tvarsym(sym).varstate:=vs_used;
                                                  end;
-                                            end;
-{$ifdef dummy}
+                                            end
                                           { I added that but it creates a problem in line.ppi
                                           because there is a local label wbuffer and
                                           a static variable WBUFFER ...
@@ -226,7 +225,7 @@ interface
                                                      procsym :
                                                        begin
                                                          { procs can be called or the address can be loaded }
-                                                         if ((pos('CALL',upper(s))>0) or (pos('LEA',upper(s))>0)) then
+                                                         if (pos('BL',upper(s))>0) {or (pos('LEA',upper(s))>0))}  then
                                                           begin
                                                             if assigned(tprocsym(sym).defs^.def) then
                                                               Message1(asmr_w_direct_global_is_overloaded_func,hs);
@@ -238,6 +237,7 @@ interface
                                                        Message(asmr_e_wrong_sym_type);
                                                    end;
                                                  end
+{$ifdef dummy}
                                                else if upper(hs)='__SELF' then
                                                  begin
                                                     if assigned(procinfo^._class) then
@@ -267,8 +267,8 @@ interface
                                                  end;
                                                }
                                                end;
-                                            end;
 {$endif dummy}
+                                            end;
                                        end;
                                   end;
                              end;
@@ -314,7 +314,11 @@ initialization
 end.
 {
   $Log$
-  Revision 1.2  2002-08-18 21:36:42  florian
+  Revision 1.3  2002-08-31 15:59:31  florian
+    + HEAP* stuff must be generated for Linux/PPC as well
+    + direct assembler reader searches now global and static symtables as well
+
+  Revision 1.2  2002/08/18 21:36:42  florian
     + handling of local variables in direct reader implemented
 
   Revision 1.1  2002/08/10 14:52:52  carl