소스 검색

Add _GLOBAL_OFFSET_TABLE_ for sparc64 if -Cg is used

git-svn-id: trunk@36743 -
pierre 8 년 전
부모
커밋
4c3d8d422a
1개의 변경된 파일4개의 추가작업 그리고 4개의 파일을 삭제
  1. 4 4
      compiler/pmodules.pas

+ 4 - 4
compiler/pmodules.pas

@@ -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;