diff options
author | Simon Marlow <marlowsd@gmail.com> | 2012-09-24 11:12:35 +0100 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2012-09-24 11:12:35 +0100 |
commit | 5cf718261506cfc25c089e57c4d5c46111dbe6a1 (patch) | |
tree | b40d9a77b805f83f107e9631fd2b708c5552563f /compiler/cmm/CmmInfo.hs | |
parent | 254f1a6c91d70d59b8731e7c3a8fa3619d8da1db (diff) | |
download | haskell-5cf718261506cfc25c089e57c4d5c46111dbe6a1.tar.gz |
Misc tidyup
Diffstat (limited to 'compiler/cmm/CmmInfo.hs')
-rw-r--r-- | compiler/cmm/CmmInfo.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/compiler/cmm/CmmInfo.hs b/compiler/cmm/CmmInfo.hs index 9d335c6f7b..6aa4d6cbfa 100644 --- a/compiler/cmm/CmmInfo.hs +++ b/compiler/cmm/CmmInfo.hs @@ -9,6 +9,7 @@ module CmmInfo ( mkEmptyContInfoTable, cmmToRawCmm, mkInfoTable, + srtEscape ) where #include "HsVersions.h" @@ -384,3 +385,9 @@ newStringLit bytes = do { uniq <- getUniqueUs ; return (mkByteStringCLit uniq bytes) } + +-- Misc utils + +-- | Value of the srt field of an info table when using an StgLargeSRT +srtEscape :: DynFlags -> StgHalfWord +srtEscape dflags = toStgHalfWord dflags (-1) |