Переглянути джерело

* fixed size of base stack frame for ELFv2

git-svn-id: trunk@42835 -
Jonas Maebe 6 роки тому
батько
коміт
a6a6c2cb07
1 змінених файлів з 6 додано та 2 видалено
  1. 6 2
      compiler/powerpc64/cpupara.pas

+ 6 - 2
compiler/powerpc64/cpupara.pas

@@ -298,8 +298,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;