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

* fixed previous commit

Browse Source 
git-svn-id: trunk@1580 -
This commit is contained in:
florian 2005-10-23 16:59:59 +00:00
parent a21b79d316
commit 5907f99b6a
1 changed files with 2 additions and 2 deletions

4
compiler/systems/t_linux.pas
View File

@ -66,7 +66,7 @@ implementation
symconst,script,
fmodule,dos,
aasmbase,aasmtai,aasmcpu,cpubase,
cgobj,cgutils,
cgbase,cgobj,cgutils,
i_linux
;
@ -179,7 +179,7 @@ begin
(target_info.system in [system_x86_64_linux]) then
begin
{$ifdef x86_64}
sym:=objectlibrary.newasmsymbol(s,AB_EXTERNAL,AT_FUNCTION);
sym:=objectlibrary.newasmsymbol(hp2.name^,AB_EXTERNAL,AT_FUNCTION);
reference_reset_symbol(r,sym,0);
if cs_create_pic in aktmoduleswitches then
r.refaddr:=addr_pic