paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +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));
if (cs_create_pic in aktmoduleswitches) and
{ 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
{$ifdef x86_64}
{$ifdef x86}
sym:=objectlibrary.newasmsymbol(tprocsym(hp2.sym).first_procdef.mangledname,AB_EXTERNAL,AT_FUNCTION);
reference_reset_symbol(r,sym,0);
if cs_create_pic in aktmoduleswitches then
@ -186,7 +186,7 @@ begin
else
r.refaddr:=addr_full;
asmlist[al_procedures].concat(taicpu.op_ref(A_JMP,S_NO,r));
{$endif x86_64}
{$endif x86}
end
else
cg.a_jmp_name(asmlist[al_procedures],tprocsym(hp2.sym).first_procdef.mangledname);