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

Add _GLOBAL_OFFSET_TABLE_ for sparc64 if -Cg is used

Browse Source 
git-svn-id: trunk@36743 -
This commit is contained in:
pierre 2017-07-18 12:49:26 +00:00
parent 2f9627f9f5
commit 4c3d8d422a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pmodules.pas
View File

@ -667,12 +667,12 @@ implementation
{ Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it } { Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it }
procedure maybe_load_got; procedure maybe_load_got;
{$if defined(i386) or defined (sparc)} {$if defined(i386) or defined (sparcgen)}
var var
gotvarsym : tstaticvarsym; gotvarsym : tstaticvarsym;
{$endif i386 or sparc} {$endif i386 or sparcgen}
begin begin
{$if defined(i386) or defined(sparc)} {$if defined(i386) or defined(sparcgen)}
if (cs_create_pic in current_settings.moduleswitches) and if (cs_create_pic in current_settings.moduleswitches) and
(tf_pic_uses_got in target_info.flags) then (tf_pic_uses_got in target_info.flags) then
begin begin
@ -685,7 +685,7 @@ implementation
gotvarsym.varstate:=vs_read; gotvarsym.varstate:=vs_read;
gotvarsym.refs:=1; gotvarsym.refs:=1;
end; end;
{$endif i386 or sparc} {$endif i386 or sparcgen}
end; end;
function gen_implicit_initfinal(flag:word;st:TSymtable):tcgprocinfo; function gen_implicit_initfinal(flag:word;st:TSymtable):tcgprocinfo;