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

* of course, we can't omit pic generation for local symbols

Browse Source 
git-svn-id: trunk@1743 -
This commit is contained in:
florian 2005-11-13 21:36:38 +00:00
parent d06bdbba13
commit 2585309c04
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/x86/cgx86.pas
View File

@ -1,5 +1,5 @@
{
Copyright (c) 1998-2002 by Florian Klaempfl
Copyright (c) 1998-2005 by Florian Klaempfl
This unit implements the common parts of the code generator for the i386 and the x86-64.
@ -368,8 +368,7 @@ unit cgx86;
end;
end;
if (cs_create_pic in aktmoduleswitches) and
assigned(ref.symbol) and
not(ref.symbol.defbind in [AB_COMMON,AB_LOCAL]) then
assigned(ref.symbol) then
begin
reference_reset_symbol(href,ref.symbol,0);
hreg:=getaddressregister(list);
@ -394,8 +393,7 @@ unit cgx86;
end;
{$else x86_64}
if (cs_create_pic in aktmoduleswitches) and
assigned(ref.symbol) and
not(ref.symbol.defbind in [AB_COMMON,AB_LOCAL]) then
assigned(ref.symbol) then
begin
reference_reset_symbol(href,ref.symbol,0);
hreg:=getaddressregister(list);
@ -702,8 +700,7 @@ unit cgx86;
begin
if assigned(ref.symbol) then
begin
if (cs_create_pic in aktmoduleswitches) and
not(symbol.defbind in [AB_COMMON,AB_LOCAL]) then
if (cs_create_pic in aktmoduleswitches) then
begin
{$ifdef x86_64}
reference_reset_symbol(tmpref,ref.symbol,0);