From 4b820a1ca5e8e6d16adbd8a4c7b7aee2611737f4 Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Sun, 2 Jun 2013 10:49:17 +0000
Subject: [PATCH] - 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      |  7 -------
 compiler/ncgld.pas            | 10 ----------
 compiler/powerpc64/nppcld.pas |  5 -----
 3 files changed, 22 deletions(-)

diff --git a/compiler/mips/ncpuld.pas b/compiler/mips/ncpuld.pas
index 75c103da28..c26223a3ac 100644
--- a/compiler/mips/ncpuld.pas
+++ b/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;
diff --git a/compiler/ncgld.pas b/compiler/ncgld.pas
index b2101c3a79..5faad4213e 100644
--- a/compiler/ncgld.pas
+++ b/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;
diff --git a/compiler/powerpc64/nppcld.pas b/compiler/powerpc64/nppcld.pas
index 3c1324c686..c454fb4a0c 100644
--- a/compiler/powerpc64/nppcld.pas
+++ b/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;