Encode labels as untyped local symbols in ELF

lib/Language/Elna/Object/ElfCoder.hs

@@ -3,20 +3,26 @@ module Language.Elna.Object.ElfCoder
     ( ElfEnvironment(..)
     , ElfWriter(..)
     , ElfHeaderResult(..)
-    , elfHeaderSize
+    , UnresolvedRelocation(..)
+    , UnresolvedRelocations(..)
+    , addHeaderToResult
     , addSectionHeader
+    , elfHeaderSize
     , elfObject
     , elfSectionsSize
     , putSectionHeader
+    , partitionSymbols
     , module Language.Elna.Object.Elf
     ) where
 
 import Control.Exception (throwIO)
 import Control.Monad.IO.Class (MonadIO(..))
 import Control.Monad.Trans.State (StateT, runStateT, modify', gets)
+import Data.Bits (Bits(..))
 import Data.ByteString (StrictByteString)
 import qualified Data.ByteString as ByteString
 import qualified Data.ByteString.Builder as ByteString.Builder
+import Data.Word (Word8)
 import Data.Vector (Vector)
 import qualified Data.Vector as Vector
 import System.IO (Handle, IOMode(..), SeekMode(..), hSeek, withFile)
@@ -26,6 +32,10 @@ import Language.Elna.Object.StringTable (StringTable)
 import qualified Language.Elna.Object.StringTable as StringTable
 import GHC.Records (HasField(..))
 
+data UnresolvedRelocation = UnresolvedRelocation StrictByteString Elf32_Addr Word8
+data UnresolvedRelocations =
+    UnresolvedRelocations (Vector UnresolvedRelocation) (ElfHeaderResult Elf32_Sym) Elf32_Word
+
 data ElfEnvironment = ElfEnvironment
     { objectHeaders :: ElfHeaderResult Elf32_Shdr
     , objectHandle :: Handle
@@ -57,6 +67,11 @@ instance MonadIO ElfWriter
   where
     liftIO = ElfWriter . liftIO
 
+partitionSymbols :: ElfHeaderResult Elf32_Sym -> (Vector Elf32_Sym, Vector Elf32_Sym)
+partitionSymbols =  Vector.partition go . getField @"sectionHeaders"
+  where
+    go Elf32_Sym{ st_info } = (st_info .&. 0xf0) == 0
+
 -- | ELF header size.
 elfHeaderSize :: Elf32_Off
 elfHeaderSize = 52
@@ -67,17 +82,18 @@ elfSectionsSize :: Vector Elf32_Shdr -> Elf32_Off
 elfSectionsSize = (elfHeaderSize +)
     . Vector.foldr ((+) . sh_size) 0
 
+addHeaderToResult :: StrictByteString -> a -> ElfHeaderResult a -> ElfHeaderResult a
+addHeaderToResult name newHeader accumulator@ElfHeaderResult{..} = accumulator
+    { sectionHeaders = Vector.snoc sectionHeaders newHeader
+    , sectionNames = StringTable.append name sectionNames
+    }
+
 addSectionHeader :: StrictByteString -> Elf32_Shdr -> ElfWriter ()
 addSectionHeader name newHeader = ElfWriter $ modify' modifier
   where
-    modifier elfEnvironment@ElfEnvironment{ objectHeaders } =
-        let ElfHeaderResult{..} = objectHeaders
-         in elfEnvironment
-            { objectHeaders = ElfHeaderResult
-                { sectionHeaders = Vector.snoc sectionHeaders newHeader
-                , sectionNames = StringTable.append name sectionNames
-                }
-            }
+    modifier elfEnvironment@ElfEnvironment{ objectHeaders } = elfEnvironment
+        { objectHeaders = addHeaderToResult name newHeader objectHeaders
+        }
 
 putSectionHeader :: StrictByteString -> Elf32_Shdr -> StrictByteString -> ElfWriter ()
 putSectionHeader name newHeader encoded = do