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/CgUtils.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/CgUtils.hs')
| -rw-r--r-- | compiler/codeGen/CgUtils.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/CgUtils.hs b/compiler/codeGen/CgUtils.hs index e7d17c1f03..08b6fb8939 100644 --- a/compiler/codeGen/CgUtils.hs +++ b/compiler/codeGen/CgUtils.hs @@ -92,8 +92,7 @@ addIdReps ids = [(idCgRep id, id) | id <- ids] ------------------------------------------------------------------------- cgLit :: Literal -> FCode CmmLit -cgLit (MachStr s) = newByteStringCLit (bytesFS s) - -- not unpackFS; we want the UTF-8 byte stream. +cgLit (MachStr s) = newByteStringCLit (bytesFB s) cgLit other_lit = return (mkSimpleLit other_lit) mkSimpleLit :: Literal -> CmmLit |