diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-12-17 18:00:44 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-12-17 18:00:44 +0000 |
| commit | 02fe6d8bcaec1783c4b3dcc70f06de6244e96d12 (patch) | |
| tree | 2f72306342aec388658b96b1f72cb1fd1a131ac7 /compiler/codeGen/CgInfoTbls.hs | |
| parent | 40fcfe10c97edf2981031f1a8450bb82ba6a8879 (diff) | |
| download | haskell-02fe6d8bcaec1783c4b3dcc70f06de6244e96d12.tar.gz | |
Remove dead function srtLabelAndLength from CgInfoTbls
Diffstat (limited to 'compiler/codeGen/CgInfoTbls.hs')
| -rw-r--r-- | compiler/codeGen/CgInfoTbls.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/compiler/codeGen/CgInfoTbls.hs b/compiler/codeGen/CgInfoTbls.hs index 9719d71dd2..c9439ce837 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 -- ------------------------------------------------------------------------- |