From 9c507c2da0e4e9babce6f2dd1eb51703088c1e29 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 15 May 2003 19:39:09 +0000
Subject: [PATCH]   * fixed ppc compiler which was broken by Peter's changes

---
 compiler/powerpc/cgcpu.pas | 9 ++++++---
 compiler/powerpc/cpupi.pas | 9 ++++++---
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/compiler/powerpc/cgcpu.pas b/compiler/powerpc/cgcpu.pas
index 3296fbd81d..9906871708 100644
--- a/compiler/powerpc/cgcpu.pas
+++ b/compiler/powerpc/cgcpu.pas
@@ -93,7 +93,7 @@ unit cgcpu;
         procedure g_save_standard_registers(list : taasmoutput; usedinproc : Tsupregset);override;
         procedure g_restore_standard_registers(list : taasmoutput; usedinproc : Tsupregset);override;
         procedure g_save_all_registers(list : taasmoutput);override;
-        procedure g_restore_all_registers(list : taasmoutput;selfused,accused,acchiused:boolean);override;
+        procedure g_restore_all_registers(list : taasmoutput;accused,acchiused:boolean);override;
 
         procedure a_jmp_cond(list : taasmoutput;cond : TOpCmp;l: tasmlabel);
 
@@ -795,7 +795,7 @@ const
          {$warning FIX ME}
        end;
 
-     procedure tcgppc.g_restore_all_registers(list : taasmoutput;selfused,accused,acchiused:boolean);
+     procedure tcgppc.g_restore_all_registers(list : taasmoutput;accused,acchiused:boolean);
        begin
          {$warning FIX ME}
        end;
@@ -2392,7 +2392,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.90  2003-05-12 18:43:50  jonas
+  Revision 1.91  2003-05-15 19:39:09  florian
+    * fixed ppc compiler which was broken by Peter's changes
+
+  Revision 1.90  2003/05/12 18:43:50  jonas
     * fixed g_concatcopy
 
   Revision 1.89  2003/05/11 20:59:23  jonas
diff --git a/compiler/powerpc/cpupi.pas b/compiler/powerpc/cpupi.pas
index dc8c608ee5..333d471bfd 100644
--- a/compiler/powerpc/cpupi.pas
+++ b/compiler/powerpc/cpupi.pas
@@ -80,8 +80,8 @@ unit cpupi;
              ofs:=align(maxpushedparasize+LinkageAreaSize,16);
              inc(procdef.parast.address_fixup,ofs);
              inc(framepointer_offset,ofs);
-             inc(selfpointer_offset,ofs);
-             inc(vmtpointer_offset,ofs);
+             // inc(selfpointer_offset,ofs);
+             // inc(vmtpointer_offset,ofs);
              if cs_asm_source in aktglobalswitches then
                aktproccode.insert(Tai_comment.Create(strpnew('Parameter copies start at: r1+'+tostr(procdef.parast.address_fixup))));
 
@@ -115,7 +115,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.14  2003-05-10 23:57:23  florian
+  Revision 1.15  2003-05-15 19:39:09  florian
+    * fixed ppc compiler which was broken by Peter's changes
+
+  Revision 1.14  2003/05/10 23:57:23  florian
     * vmtpointer_offset must be adjusted in after_pass1 as well
 
   Revision 1.13  2003/05/09 19:00:30  jonas