paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-30 14:02:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* copy the darwin got register to a new register when using it, so it

Browse Source 
cannot get modified

git-svn-id: trunk@22240 -
This commit is contained in:
Jonas Maebe 2012-08-25 15:12:34 +00:00
parent ab9d68ae3e
commit 35c70a6c96
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/cgx86.pas
View File

@ -508,7 +508,9 @@ unit cgx86;
else
begin
include(current_procinfo.flags,pi_needs_got);
hreg:=current_procinfo.got;
{ make a copy of the got register, hreg can get modified }
hreg:=cg.getaddressregister(list);
a_load_reg_reg(list,OS_ADDR,OS_ADDR,current_procinfo.got,hreg);
ref.relsymbol:=current_procinfo.CurrGOTLabel;
end;
add_hreg:=true