From 5380652cadcdf6ade44bd271c7aa7b07cf16f7d2 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 31 Aug 2002 12:43:31 +0000
Subject: [PATCH]   * ppc compilation fixed

---
 compiler/powerpc/agppcmpw.pas | 7 +++++--
 compiler/powerpc/cpupara.pas  | 8 ++++++--
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/compiler/powerpc/agppcmpw.pas b/compiler/powerpc/agppcmpw.pas
index 9c82c6bedb..b05101dff1 100644
--- a/compiler/powerpc/agppcmpw.pas
+++ b/compiler/powerpc/agppcmpw.pas
@@ -23,7 +23,7 @@
 {
   This unit implements an asmoutput class for PowerPC with MPW syntax
 }
-unit agppcmpwt;
+unit agppcmpw;
 
 {$i fpcdefs.inc}
 
@@ -739,7 +739,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.1  2002-08-20 21:40:44  florian
+  Revision 1.2  2002-08-31 12:43:31  florian
+    * ppc compilation fixed
+
+  Revision 1.1  2002/08/20 21:40:44  florian
     + target macos for ppc added
     + frame work for mpw assembler output
 }
diff --git a/compiler/powerpc/cpupara.pas b/compiler/powerpc/cpupara.pas
index bfd8f00ac4..21308566d8 100644
--- a/compiler/powerpc/cpupara.pas
+++ b/compiler/powerpc/cpupara.pas
@@ -42,6 +42,7 @@ unit cpupara;
 
     uses
        verbose,
+       globtype,
        cpuinfo,cginfo,
        symtype,defbase;
 
@@ -186,7 +187,7 @@ unit cpupara;
                  LOC_REFERENCE:
                    begin
                       hp.paraloc.size:=OS_32;
-                      if push_addr_param(hp.paratype.def) or (hp.paratyp in [vs_var,vs_out]) then
+                      if push_addr_param(hp.paratype.def,p.proccalloption in [pocall_cdecl,pocall_cppdecl]) or (hp.paratyp in [vs_var,vs_out]) then
                         begin
                            if nextintreg<=R_8 then
                              begin
@@ -227,7 +228,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.8  2002-08-18 10:42:38  florian
+  Revision 1.9  2002-08-31 12:43:31  florian
+    * ppc compilation fixed
+
+  Revision 1.8  2002/08/18 10:42:38  florian
     * remaining assembler writer bugs fixed, the errors in the
       system unit are inline assembler problems