blob: 63de8b3268da3bc6c5b6fb66e34bdf3310ff2ec2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{-# LANGUAGE MagicHash #-}
module T13413 where
import GHC.Exts
fillBlock2 :: (Int# -> Int# -> IO ())
-> Int# -> Int# -> IO ()
fillBlock2 write x0 y0
= fillBlock y0 x0
where
{-# INLINE fillBlock #-}
fillBlock y ix
| 1# <- y >=# y0
= return ()
| otherwise
= do write ix x0
fillBlock (y +# 1#) ix
|
