- Removed tcgloadnode.generate_picvaraccess, it is never used and is not necessary because PIC stuff is handled at lower levels.

git-svn-id: trunk@24764 -

compiler/mips/ncpuld.pas

@@ -31,7 +31,6 @@ uses
 type
   tmipsloadnode = class(tcgloadnode)
     function pass_1 : tnode; override;
-    procedure generate_picvaraccess; override;
   end;
 
 implementation
@@ -59,12 +58,6 @@ begin
   end;
 end;
 
-procedure tmipsloadnode.generate_picvaraccess;
-begin
-  location.reference.base:=current_procinfo.got;
-  location.reference.refaddr:=addr_pic;
-  location.reference.symbol:=current_asmdata.RefAsmSymbol(tstaticvarsym(symtableentry).mangledname);
-end;
 
 begin
   cloadnode := tmipsloadnode;

compiler/ncgld.pas

@@ -38,7 +38,6 @@ interface
           procedure generate_nested_access(vs: tsym);virtual;
          public
           procedure pass_generate_code;override;
-          procedure generate_picvaraccess;virtual;
           procedure changereflocation(const ref: treference);
        end;
 
@@ -214,15 +213,6 @@ implementation
                              SecondLoad
 *****************************************************************************}
 
-    procedure tcgloadnode.generate_picvaraccess;
-      begin
-{$ifndef sparc}
-        location.reference.base:=current_procinfo.got;
-        location.reference.symbol:=current_asmdata.RefAsmSymbol(tstaticvarsym(symtableentry).mangledname+'@GOT');
-{$endif sparc}
-      end;
-
-
     procedure tcgloadnode.changereflocation(const ref: treference);
       var
         oldtemptype: ttemptype;

compiler/powerpc64/nppcld.pas

@@ -31,7 +31,6 @@ uses
 type
   tppcloadnode = class(tcgloadnode)
     procedure pass_generate_code override;
-    procedure generate_picvaraccess; override;
   end;
 
 implementation
@@ -51,10 +50,6 @@ begin
   inherited pass_generate_code;
 end;
 
-procedure tppcloadnode.generate_picvaraccess;
-begin
-  internalerror(200402291);
-end;
 
 begin
   cloadnode := tppcloadnode;