[commit: ghc] master: Remove dead function. (f8b4696)

[David Terei]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f8b4696ca7961da632c26f9884839ba059d253f4

>---------------------------------------------------------------

commit f8b4696ca7961da632c26f9884839ba059d253f4
Author: David Terei <davidterei at gmail.com>
Date:   Fri Dec 2 15:52:32 2011 -0800

    Remove dead function.

>---------------------------------------------------------------

 compiler/codeGen/CgInfoTbls.hs |   24 +-----------------------
 1 files changed, 1 insertions(+), 23 deletions(-)

diff --git a/compiler/codeGen/CgInfoTbls.hs b/compiler/codeGen/CgInfoTbls.hs
index 2ff4222..25ba154 100644
--- a/compiler/codeGen/CgInfoTbls.hs
+++ b/compiler/codeGen/CgInfoTbls.hs
@@ -24,7 +24,7 @@ module CgInfoTbls (
         cmmGetClosureType,
 	infoTable, infoTableClosureType,
 	infoTablePtrs, infoTableNonPtrs,
-	funInfoTable, makeRelativeRefTo
+	funInfoTable
   ) where
 
 
@@ -386,25 +386,3 @@ emitInfoTableAndCode
 emitInfoTableAndCode entry_ret_lbl info args blocks
   = emitProc info entry_ret_lbl args blocks
 
--------------------------------------------------------------------------

>---------------------------------------------------------------

---	Position independent code

>---------------------------------------------------------------

--------------------------------------------------------------------------
--- In order to support position independent code, we mustn't put absolute
--- references into read-only space. Info tables in the tablesNextToCode
--- case must be in .text, which is read-only, so we doctor the CmmLits
--- to use relative offsets instead.
-
--- Note that this is done even when the -fPIC flag is not specified,
--- as we want to keep binary compatibility between PIC and non-PIC.
-
-makeRelativeRefTo :: CLabel -> CmmLit -> CmmLit
-        
-makeRelativeRefTo info_lbl (CmmLabel lbl)
-  | tablesNextToCode
-  = CmmLabelDiffOff lbl info_lbl 0
-makeRelativeRefTo info_lbl (CmmLabelOff lbl off)
-  | tablesNextToCode
-  = CmmLabelDiffOff lbl info_lbl off
-makeRelativeRefTo _ lit = lit