2
0
Эх сурвалжийг харах

Enable gotvarsym for sparc cpu

git-svn-id: trunk@22486 -
pierre 13 жил өмнө
parent
commit
2f24527ea0

+ 4 - 4
compiler/pmodules.pas

@@ -598,12 +598,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;
-{$ifdef i386}
+{$if defined(i386) or defined (sparc)}
        var
        var
          gotvarsym : tstaticvarsym;
          gotvarsym : tstaticvarsym;
-{$endif i386}
+{$endif i386 or sparc}
       begin
       begin
-{$ifdef i386}
+{$if defined(i386) or defined(sparc)}
          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
@@ -616,7 +616,7 @@ implementation
              gotvarsym.varstate:=vs_read;
              gotvarsym.varstate:=vs_read;
              gotvarsym.refs:=1;
              gotvarsym.refs:=1;
            end;
            end;
-{$endif i386}
+{$endif i386 or sparc}
       end;
       end;
 
 
     function gen_implicit_initfinal(flag:word;st:TSymtable):tcgprocinfo;
     function gen_implicit_initfinal(flag:word;st:TSymtable):tcgprocinfo;