Browse Source

--- 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 6 năm trước cách đây
mục cha
commit
b489002e4e
1 tập tin đã thay đổi với 6 bổ sung2 xóa
  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;