1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -dno-typeable-binds -O2 #-}
module Main (main) where
import System.IO
import Data.Bits
import GHC.Int
import GHC.Exts
import System.Environment
import Distribution.Simple.Utils
main :: IO ()
main = withTempFile "." "encodingAllocations.tmp" (const $ loop 1000000)
loop :: Int -> Handle -> IO ()
loop 0 !_ = pure ()
loop !n !h = do
hPutChar h $! dummy_char n
loop (n-1) h
-- unsafe efficient version of `chr`
my_chr :: Int -> Char
my_chr (I# i) = C# (chr# i)
-- return either a or b
dummy_char :: Int -> Char
dummy_char !i = my_chr ((i .&. 1) + 97)
|
