blob: 79479f022da8b0239c0ff47164afdcb779e7c718 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{-# LANGUAGE TemplateHaskell #-}
module Main where
import T16190_Embed
import Foreign.Ptr
import Foreign.Storable
import Data.Word
import GHC.Ptr
ptr :: Ptr Word32
ptr = Ptr $(embedBytes (replicate (3 * 1000 * 1000) 0x37))
main :: IO ()
main = do
w <- peek (ptr `plusPtr` 12)
print (w == (0x37373737 :: Word32))
|