Browse Source

* fixed ppc compiler which was broken by Peter's changes

florian 22 years ago
parent
commit
9c507c2da0
2 changed files with 12 additions and 6 deletions
  1. 6 3
      compiler/powerpc/cgcpu.pas
  2. 6 3
      compiler/powerpc/cpupi.pas

+ 6 - 3
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

+ 6 - 3
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