X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgInfoTbls.hs;h=c9439ce837e89aeed55b0ef0ff387ee6b7579047;hb=02fe6d8bcaec1783c4b3dcc70f06de6244e96d12;hp=9719d71dd2345ab84a87b95b3be572ed945df27e;hpb=e6243a818496aad82b6f47511d3bd9bc800f747d;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgInfoTbls.hs b/compiler/codeGen/CgInfoTbls.hs
index 9719d71..c9439ce 100644
--- a/compiler/codeGen/CgInfoTbls.hs
+++ b/compiler/codeGen/CgInfoTbls.hs
@@ -432,18 +432,6 @@ emitInfoTableAndCode entry_ret_lbl info args blocks
 
 -------------------------------------------------------------------------
 --
---	Static reference tables
---
--------------------------------------------------------------------------
-
-srtLabelAndLength :: C_SRT -> CLabel -> (CmmLit, StgHalfWord)
-srtLabelAndLength NoC_SRT _		
-  = (zeroCLit, 0)
-srtLabelAndLength (C_SRT lbl off bitmap) info_lbl
-  = (makeRelativeRefTo info_lbl $ cmmLabelOffW lbl off, bitmap)
-
--------------------------------------------------------------------------
---
 --	Position independent code
 --
 -------------------------------------------------------------------------