diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-08-24 11:58:43 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-25 11:12:33 +0100 |
| commit | 4ebf65abcc94647be48216b8ea616c5a8d0b1fce (patch) | |
| tree | 615d8c644737ac5538913b3e702e8a0a63499d9a /compiler/cmm | |
| parent | 064478933d867e43e0f29a143041edabebcddd38 (diff) | |
| download | haskell-4ebf65abcc94647be48216b8ea616c5a8d0b1fce.tar.gz | |
eliminate ConInfo
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/SMRep.lhs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/cmm/SMRep.lhs b/compiler/cmm/SMRep.lhs index bc502a30a3..44b40a3a8a 100644 --- a/compiler/cmm/SMRep.lhs +++ b/compiler/cmm/SMRep.lhs @@ -25,7 +25,7 @@ module SMRep ( mkHeapRep, blackHoleRep, mkStackRep, mkRTSRep, -- ** Predicates - isStaticRep, isConRep, isThunkRep, isStaticNoCafCon, + isStaticRep, isConRep, isThunkRep, isFunRep, isStaticNoCafCon, -- ** Size-related things heapClosureSize, @@ -196,6 +196,10 @@ isThunkRep (HeapRep _ _ _ ThunkSelector{}) = True isThunkRep (HeapRep _ _ _ BlackHole{}) = True isThunkRep _ = False +isFunRep :: SMRep -> Bool +isFunRep (HeapRep _ _ _ Fun{}) = True +isFunRep _ = False + isStaticNoCafCon :: SMRep -> Bool -- This should line up exactly with CONSTR_NOCAF_STATIC above -- See Note [Static NoCaf constructors] |