elf 0.24 → 0.25

raw patch · 2 files changed

+4/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• elf.cabal +1/−1
• src/Data/Elf.hs +3/−3

@@ -1,5 +1,5 @@ Name:          elf
-Version:       0.24
+Version:       0.25
 License:       BSD3
 License-file:  LICENSE
 Category:      Data

@@ -531,8 +531,8 @@         sh                                             = table secTab         (shstroff, shstrsize)                          = parseEntry getElf_Shdr_OffsetSize $ head $ drop (fromIntegral e_shstrndx) sh         sh_str                                         = B.take (fromIntegral shstrsize) $ B.drop (fromIntegral shstroff) b-        segments                                       = filter (\seg -> elfSegmentType seg /= PT_NULL)  $ map (parseEntry (\c r -> parseElfSegmentEntry c r b)) ph-        sections                                       = filter (\sec -> elfSectionType sec /= SHT_NULL) $ map (parseEntry (\c r -> getElf_Shdr c r b sh_str)) sh+        segments                                       = map (parseEntry (\c r -> parseElfSegmentEntry c r b)) ph+        sections                                       = map (parseEntry (\c r -> getElf_Shdr c r b sh_str)) sh     in e { elfSections = sections, elfSegments = segments }    where table i                         = divide (B.drop (tableOffset i) b) (entrySize i) (entryNum i)@@ -643,7 +643,7 @@ getSymbolTableEntries :: Elf -> ElfSection -> [ElfSymbolTableEntry] getSymbolTableEntries e s =     let link   = elfSectionLink s-        strtab = lookup (fromIntegral link) (zip [1..] (elfSections e))+        strtab = lookup (fromIntegral link) (zip [0..] (elfSections e))     in runGetMany (getSymbolTableEntry e strtab) (L.fromChunks [elfSectionData s])  -- | Use the symbol offset and size to extract its definition