paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:06:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* x86_64, use rip-relative references when taking address of local code labels, fixes test/library/tlib1a.pp for Linux and FreeBSD and passing exception address to FPC_RAISEEXCEPTION on Darwin.

Browse Source 
git-svn-id: trunk@19616 -
This commit is contained in:
sergei 2011-11-09 05:12:59 +00:00
parent a1e0b833b2
commit ce3f850a68
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/cgx86.pas
View File

@ -935,7 +935,7 @@ unit cgx86;
else if (cs_create_pic in current_settings.moduleswitches)
{$ifdef x86_64}
and not((ref.symbol.bind=AB_LOCAL) and
(ref.symbol.typ=AT_DATA))
(ref.symbol.typ in [AT_DATA,AT_LABEL,AT_ADDR]))
{$endif x86_64}
then
begin