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

* same change as in r22240 for darwin/ppc(64)

Browse Source 
git-svn-id: trunk@22246 -
This commit is contained in:
Jonas Maebe 2012-08-26 08:58:48 +00:00
parent d4eb2d7336
commit 2be5c8b9af
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ppcgen/cgppc.pas
View File

@ -1028,7 +1028,8 @@ unit cgppc;
else
begin
include(current_procinfo.flags,pi_needs_got);
tmpreg := current_procinfo.got;
tmpreg := getaddressregister(list);
a_load_reg_reg(list,OS_ADDR,OS_ADDR,current_procinfo.got,tmpreg);
if assigned(ref.relsymbol) then
internalerror(2007093501);
ref.relsymbol := current_procinfo.CurrGOTLabel;