Create empty relocations section

lib/Language/Elna/Object/Elf.hs

@@ -35,6 +35,11 @@ module Language.Elna.Object.Elf
     , elfObject
     , elfSectionsSize
     , rInfo
+    , shfWrite
+    , shfAlloc
+    , shfExecinstr
+    , shfMascproc
+    , shfInfoLink
     , stInfo
     ) where
 
@@ -352,6 +357,23 @@ instance Enum ElfSectionType
     fromEnum SHT_HIUSER = 0xffffffff
     fromEnum (ElfSectionType x) = fromIntegral x
 
+-- * Constants.
+
+shfWrite :: Elf32_Word
+shfWrite = 0x1
+
+shfAlloc :: Elf32_Word
+shfAlloc = 0x2
+
+shfExecinstr:: Elf32_Word
+shfExecinstr = 0x4
+
+shfMascproc :: Elf32_Word
+shfMascproc = 0xf0000000
+
+shfInfoLink :: Elf32_Word
+shfInfoLink = 0x40
+
 -- * Encoding functions.
 
 elf32Addr :: ByteOrder -> Elf32_Addr -> ByteString.Builder.Builder