Skip to content

GitLab

Commit fbf45eff authored by sof's avatar sof
Browse files

[project @ 1997-09-03 23:51:06 by sof] 

unpackCStringBA# arguments swapped
parent d95b51ec
Show whitespace changes
Inline Side-by-side
ghc/compiler/utils/FastString.lhs
View file @ fbf45eff
...@@ -137,7 +137,7 @@ unpackFS :: FastString -> String ...@@ -137,7 +137,7 @@ unpackFS :: FastString -> String
#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 205 #if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 205
unpackFS (FastString _ l# ba#) = byteArrayToString (_ByteArray (0,I# l#) ba#) unpackFS (FastString _ l# ba#) = byteArrayToString (_ByteArray (0,I# l#) ba#)
#else #else
unpackFS (FastString _ l# ba#) = unpackCStringBA# l# ba# unpackFS (FastString _ l# ba#) = unpackCStringBA# ba# l#
#endif #endif
unpackFS (CharStr addr len#) = unpackFS (CharStr addr len#) =
unpack 0# unpack 0#
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment