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/codeGen/StgCmmUtils.hs | |
| parent | 254f1a6c91d70d59b8731e7c3a8fa3619d8da1db (diff) | |
| download | haskell-5cf718261506cfc25c089e57c4d5c46111dbe6a1.tar.gz | |
Misc tidyup
Diffstat (limited to 'compiler/codeGen/StgCmmUtils.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmUtils.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs index f5dc2b6d31..386e7f46d6 100644 --- a/compiler/codeGen/StgCmmUtils.hs +++ b/compiler/codeGen/StgCmmUtils.hs @@ -37,9 +37,7 @@ module StgCmmUtils ( mkWordCLit, newStringCLit, newByteStringCLit, packHalfWordsCLit, - blankWord, - - srt_escape + blankWord ) where #include "HsVersions.h" @@ -719,6 +717,3 @@ assignTemp' e let reg = CmmLocal lreg emitAssign reg e return (CmmReg reg) - -srt_escape :: DynFlags -> StgHalfWord -srt_escape dflags = toStgHalfWord dflags (-1) |