paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 16:20:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

Enable gotvarsym for sparc cpu

Browse Source 
git-svn-id: trunk@22486 -
This commit is contained in:
pierre 2012-09-27 15:55:07 +00:00
parent e2f5e11778
commit 2f24527ea0
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

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