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

+ plt support for x86_64

Browse Source 
git-svn-id: trunk@1578 -
This commit is contained in:
florian 2005-10-23 14:47:09 +00:00
parent 89094457c5
commit bc7fab1aeb
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/agx86att.pas
View File

@ -155,6 +155,8 @@ interface
else else
begin begin
AsmWrite(o.ref^.symbol.name); AsmWrite(o.ref^.symbol.name);
if o.ref^.refaddr=addr_pic then
AsmWrite('@PLT');
if o.ref^.offset>0 then if o.ref^.offset>0 then
AsmWrite('+'+tostr(o.ref^.offset)) AsmWrite('+'+tostr(o.ref^.offset))
else else

11
compiler/x86/cgx86.pas
View File

@ -536,8 +536,17 @@ unit cgx86;
procedure tcgx86.a_call_name(list : taasmoutput;const s : string); procedure tcgx86.a_call_name(list : taasmoutput;const s : string);
var
sym : tasmsymbol;
r : treference;
begin begin
list.concat(taicpu.op_sym(A_CALL,S_NO,objectlibrary.newasmsymbol(s,AB_EXTERNAL,AT_FUNCTION))); sym:=objectlibrary.newasmsymbol(s,AB_EXTERNAL,AT_FUNCTION);
reference_reset_symbol(r,sym,0);
if cs_create_pic in aktmoduleswitches then
r.refaddr:=addr_pic
else
r.refaddr:=addr_full;
list.concat(taicpu.op_ref(A_CALL,S_NO,r));
end; end;