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

* compilation on x86-64 and i8086 fixed

Browse Source 
git-svn-id: trunk@40275 -
This commit is contained in:
florian 2018-11-08 18:45:16 +00:00
parent 4d2d26c318
commit e157939b41
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/agx86att.pas
View File

@ -179,8 +179,10 @@ interface
owner.writer.AsmWrite('@GOT');
{$endif x86_64}
end;
{$ifdef i386}
addr_ntpoff:
owner.writer.AsmWrite('@ntpoff');
{$endif i386}
end;
if offset<0 then
@ -227,7 +229,7 @@ interface
else
owner.writer.AsmWrite(gas_regname(o.reg));
top_ref :
if o.ref^.refaddr in [addr_no,addr_pic,addr_pic_no_got,addr_ntpoff] then
if o.ref^.refaddr in [addr_no,addr_pic,addr_pic_no_got{$ifdef i386},addr_ntpoff{$endif i386}] then
WriteReference(o.ref^)
else
begin

3
compiler/x86/cgx86.pas
View File

@ -1108,6 +1108,7 @@ unit cgx86;
with dirref do
begin
{$ifdef i386}
if refaddr=addr_ntpoff then
begin
{ Convert thread local address to a process global addres
@ -1138,7 +1139,7 @@ unit cgx86;
Internalerror(2018110403);
end;
end;
{$endif i386}
if (base=NR_NO) and (index=NR_NO) then
begin
if assigned(dirref.symbol) then

2
compiler/x86/nx86ld.pas
View File

@ -87,6 +87,7 @@ implementation
if (tf_section_threadvars in target_info.flags) then
begin
{$ifdef i386}
case target_info.system of
system_i386_linux,system_i386_android:
begin
@ -99,6 +100,7 @@ implementation
end;
end;
end;
{$endif i386}
end;
end;