paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix around 30 tests by using a volatile register for restoring the stack pointer

Browse Source 
m68k/cgcpu.pas, tcg68k.g_proc_exit:
  * use A0 (which is a volatile register) instead of A3 (which is not) to restore the stack pointer

git-svn-id: trunk@25663 -
This commit is contained in:
svenbarth 2013-10-05 21:32:27 +00:00
parent 9a1018ec57
commit b1d79494dd
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/m68k/cgcpu.pas
View File

@ -1778,8 +1778,9 @@ unit cgcpu;
{ point to nowhere! }
{ save the PC counter (pop it from the stack) }
//hregister:=cg.getaddressregister(list);
hregister:=NR_A3;
{ use A0 for this which is defined as a scratch }
{ register }
hregister:=NR_A0;
cg.a_reg_alloc(list,hregister);
reference_reset_base(ref,NR_STACK_POINTER_REG,0,4);
ref.direction:=dir_inc;