diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-14 20:48:42 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-14 20:57:37 +0100 |
| commit | 7ae1bec53801069661e249e47ebd6998d6450093 (patch) | |
| tree | 3bf00efb097a569173b2c2e9fe1d10347508c6ba /compiler/codeGen/StgCmmUtils.hs | |
| parent | 18f82197efbc2b930b123032fd7828626c04ee43 (diff) | |
| download | haskell-7ae1bec53801069661e249e47ebd6998d6450093.tar.gz | |
Implement FastBytes, and use it for MachStr
This is a first step on the way to refactoring the FastString type.
FastBytes currently has no unique, mainly because there isn't currently
a nice way to produce them in Binary.
Also, we don't currently do the "Dictionary" thing with FastBytes in
Binary. I'm not sure whether this is important.
We can change both decisions later, but in the meantime this gets the
refactoring underway.
Diffstat (limited to 'compiler/codeGen/StgCmmUtils.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs index 733c2d4692..ab44888597 100644 --- a/compiler/codeGen/StgCmmUtils.hs +++ b/compiler/codeGen/StgCmmUtils.hs @@ -90,7 +90,7 @@ import Data.Maybe ------------------------------------------------------------------------- cgLit :: Literal -> FCode CmmLit -cgLit (MachStr s) = newByteStringCLit (bytesFS s) +cgLit (MachStr s) = newByteStringCLit (bytesFB s) -- not unpackFS; we want the UTF-8 byte stream. cgLit other_lit = return (mkSimpleLit other_lit) |