diff options
| author | David Terei <davidterei@gmail.com> | 2011-12-02 15:52:32 -0800 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-12-03 20:48:23 -0800 |
| commit | f8b4696ca7961da632c26f9884839ba059d253f4 (patch) | |
| tree | 4af2375e8451472ffdcbe676f1cc0aedd418921f /compiler/codeGen | |
| parent | a5aea1ae5b9c294e9c7638913b5f7e8e8312f84d (diff) | |
| download | haskell-f8b4696ca7961da632c26f9884839ba059d253f4.tar.gz | |
Remove dead function.
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | 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 2ff422299b..25ba154d12 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 |