--------------------------
Make MachString literals a bit bigger
--------------------------
Up to now, unboxed string literals of up to 3 characters had
size 1, which means they are inlined in place of a variable.
That seems over-eager (duplication), so I've upped their size a bit.
litSize :: Literal -> Int
-- Used by CoreUnfold.sizeExpr
-litSize (MachStr str) = 1 + (lengthFS str `div` 4)
+litSize (MachStr str) = 1 + ((lengthFS str + 3) `div` 4)
-- Every literal has size at least 1, otherwise
-- f "x"
-- might be too small
+ -- [Sept03: make literal strings a bit bigger to avoid fruitless
+ -- duplication of little strings]
litSize _other = 1
\end{code}