diff options
Diffstat (limited to 'compiler/codeGen/StgCmmUtils.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmUtils.hs | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs index 273e59b0b5..733c2d4692 100644 --- a/compiler/codeGen/StgCmmUtils.hs +++ b/compiler/codeGen/StgCmmUtils.hs @@ -44,9 +44,9 @@ module StgCmmUtils ( mkWordCLit, newStringCLit, newByteStringCLit, packHalfWordsCLit, - blankWord, + blankWord, - getSRTInfo, srt_escape + srt_escape ) where #include "HsVersions.h" @@ -66,12 +66,10 @@ import Type import TyCon import Constants import SMRep -import StgSyn ( SRT(..) ) import Module import Literal import Digraph import ListSetOps -import VarSet import Util import Unique import DynFlags @@ -804,19 +802,5 @@ assignTemp' e emitAssign reg e return (CmmReg reg) -------------------------------------------------------------------------- --- --- Static Reference Tables --- -------------------------------------------------------------------------- - --- | Returns 'True' if there is a non-empty SRT, or 'False' otherwise --- NB. the SRT attached to an StgBind is still used in the new codegen --- to decide whether we need a static link field on a static closure --- or not. -getSRTInfo :: SRT -> FCode Bool -getSRTInfo (SRTEntries vs) = return (not (isEmptyVarSet vs)) -getSRTInfo _ = return False - srt_escape :: StgHalfWord srt_escape = -1 |