paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 02:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Windows does not support a GOT, so rely on page relative addressing

Browse Source 
git-svn-id: trunk@44916 -
This commit is contained in:
svenbarth 2020-04-21 06:04:31 +00:00
parent dfde4def62
commit a6f1c04f22
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aarch64/cgcpu.pas
View File

@ -181,7 +181,8 @@ implementation
if ((ref.symbol.typ in [AT_FUNCTION,AT_LABEL]) and
(ref.symbol.bind in [AB_LOCAL,AB_GLOBAL])) or
((ref.symbol.typ=AT_DATA) and
(ref.symbol.bind=AB_LOCAL)) then
(ref.symbol.bind=AB_LOCAL)) or
(target_info.system=system_aarch64_win64) then
href.refaddr:=addr_page
else
href.refaddr:=addr_gotpage;
@ -194,7 +195,8 @@ implementation
if ((ref.symbol.typ in [AT_FUNCTION,AT_LABEL]) and
(ref.symbol.bind in [AB_LOCAL,AB_GLOBAL])) or
((ref.symbol.typ=AT_DATA) and
(ref.symbol.bind=AB_LOCAL)) then
(ref.symbol.bind=AB_LOCAL)) or
(target_info.system=system_aarch64_win64) then
begin
href.base:=NR_NO;
href.refaddr:=addr_pageoffset;