Kaynağa Gözat

--- Merging r42835 into '.':
U compiler/powerpc64/cpupara.pas
--- Recording mergeinfo for merge of r42835 into '.':
U .

git-svn-id: branches/fixes_3_2@42930 -

Jonas Maebe 5 yıl önce
ebeveyn
işleme
b489002e4e
1 değiştirilmiş dosya ile 6 ekleme ve 2 silme
  1. 6 2
      compiler/powerpc64/cpupara.pas

+ 6 - 2
compiler/powerpc64/cpupara.pas

@@ -289,8 +289,12 @@ function tcpuparamanager.ret_in_param(def: tdef; pd: tabstractprocdef): boolean;
 procedure tcpuparamanager.init_values(var curintreg, curfloatreg, curmmreg:
   tsuperregister; var cur_stack_offset: aword);
 begin
-  { register parameter save area begins at 48(r2) }
-  cur_stack_offset := 48;
+  case target_info.abi of
+    abi_powerpc_elfv2:
+      cur_stack_offset := 32;
+    else
+      cur_stack_offset := 48;
+  end;
   curintreg := RS_R3;
   curfloatreg := RS_F1;
   curmmreg := RS_M2;