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

* generate pic'ed external jmps on 386 as well if necessary

Browse Source 
git-svn-id: trunk@2092 -
This commit is contained in:
florian 2005-12-31 13:51:57 +00:00
parent 41d6d85084
commit a11a177469
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/systems/t_linux.pas
View File

@ -176,9 +176,9 @@ begin
asmlist[al_procedures].concat(Tai_symbol.Createname_global(hp2.name^,AT_FUNCTION,0)); asmlist[al_procedures].concat(Tai_symbol.Createname_global(hp2.name^,AT_FUNCTION,0));
if (cs_create_pic in aktmoduleswitches) and if (cs_create_pic in aktmoduleswitches) and
{ other targets need to be checked how it works } { other targets need to be checked how it works }
(target_info.system in [system_x86_64_linux]) then (target_info.system in [system_x86_64_linux,system_i386_linux]) then
begin begin
{$ifdef x86_64} {$ifdef x86}
sym:=objectlibrary.newasmsymbol(tprocsym(hp2.sym).first_procdef.mangledname,AB_EXTERNAL,AT_FUNCTION); sym:=objectlibrary.newasmsymbol(tprocsym(hp2.sym).first_procdef.mangledname,AB_EXTERNAL,AT_FUNCTION);
reference_reset_symbol(r,sym,0); reference_reset_symbol(r,sym,0);
if cs_create_pic in aktmoduleswitches then if cs_create_pic in aktmoduleswitches then
@ -186,7 +186,7 @@ begin
else else
r.refaddr:=addr_full; r.refaddr:=addr_full;
asmlist[al_procedures].concat(taicpu.op_ref(A_JMP,S_NO,r)); asmlist[al_procedures].concat(taicpu.op_ref(A_JMP,S_NO,r));
{$endif x86_64} {$endif x86}
end end
else else
cg.a_jmp_name(asmlist[al_procedures],tprocsym(hp2.sym).first_procdef.mangledname); cg.a_jmp_name(asmlist[al_procedures],tprocsym(hp2.sym).first_procdef.mangledname);