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

* Fix solaris problem after commit rev 14971

Browse Source 
git-svn-id: trunk@14974 -
This commit is contained in:
pierre 2010-03-05 13:46:36 +00:00
parent 321e6a9e1c
commit 7c08e5cb57
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/x86/cgx86.pas
View File

@ -405,7 +405,8 @@ unit cgx86;
} }
if (ref.symbol.bind=AB_LOCAL) and if (ref.symbol.bind=AB_LOCAL) and
(ref.symbol.typ=AT_DATA) and (ref.symbol.typ=AT_DATA) and
(target_info.system=system_x86_64_darwin) then ((target_info.system=system_x86_64_darwin) or
(target_info.system=system_x86_64_solaris)) then
begin begin
{ unfortunately, RIP-based addresses don't support an index } { unfortunately, RIP-based addresses don't support an index }
if (ref.base<>NR_NO) or if (ref.base<>NR_NO) or
@ -933,7 +934,8 @@ unit cgx86;
{$ifdef x86_64} {$ifdef x86_64}
and not((ref.symbol.bind=AB_LOCAL) and and not((ref.symbol.bind=AB_LOCAL) and
(ref.symbol.typ=AT_DATA) and (ref.symbol.typ=AT_DATA) and
(target_info.system=system_x86_64_darwin)) ((target_info.system=system_x86_64_darwin) or
(target_info.system=system_x86_64_solaris)))
{$endif x86_64} {$endif x86_64}
then then
begin begin