Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f8b4696ca7961da632c26f9884839ba059d253f4 >--------------------------------------------------------------- commit f8b4696ca7961da632c26f9884839ba059d253f4 Author: David Terei <[email protected]> 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
