paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 10:39:09 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/systems/t_linux.pas
View File

@ -66,7 +66,7 @@ implementation
symconst,script, symconst,script,
fmodule,dos, fmodule,dos,
aasmbase,aasmtai,aasmcpu,cpubase, aasmbase,aasmtai,aasmcpu,cpubase,
cgobj,cgutils, cgbase,cgobj,cgutils,
i_linux i_linux
; ;
@ -179,7 +179,7 @@ begin
(target_info.system in [system_x86_64_linux]) then (target_info.system in [system_x86_64_linux]) then
begin begin
{$ifdef x86_64} {$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); reference_reset_symbol(r,sym,0);
if cs_create_pic in aktmoduleswitches then if cs_create_pic in aktmoduleswitches then
r.refaddr:=addr_pic r.refaddr:=addr_pic