/usr/share/doc/libghc-llvm-doc/examples/Align.hs is in libghc-llvm-doc 3.2.0.0-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | module Align (main) where
import Data.TypeLevel(D1, D4)
import Data.Word
import LLVM.Core
import LLVM.ExecutionEngine
main :: IO ()
main = do
-- Initialize jitter
initializeNativeTarget
td <- getTargetData
print (littleEndian td,
aBIAlignmentOfType td $ typeRef (undefined :: Word32),
aBIAlignmentOfType td $ typeRef (undefined :: Word64),
aBIAlignmentOfType td $ typeRef (undefined :: Vector D4 Float),
aBIAlignmentOfType td $ typeRef (undefined :: Vector D1 Double),
storeSizeOfType td $ typeRef (undefined :: Vector D4 Float),
intPtrType td
)
|