dwarf-el 0.2 → 0.2.1

raw patch · 3 files changed

+14/−2 lines, 3 files

Files

• dwarf-el.cabal +1/−1
• src/Data/Dwarf/AT.hs +12/−0
• src/Data/Dwarf/Utils.hs +1/−1

@@ -1,5 +1,5 @@ Name:          dwarf-el-Version:       0.2+Version:       0.2.1 License:       BSD3 License-file:  LICENSE Category:      Data

@@ -101,6 +101,12 @@     | DW_AT_elemental            -- ^ flag     | DW_AT_return                 -- ^ flag     | DW_AT_recursive            -- ^ flag+    | DW_AT_signature+    | DW_AT_main_subprogram+    | DW_AT_data_bit_offset+    | DW_AT_const_expr+    | DW_AT_enum_class+    | DW_AT_linkage_name     | DW_AT_user Word64          -- ^ user extension     deriving (Eq, Ord, Read, Show) @@ -191,5 +197,11 @@ dw_at 0x66 = DW_AT_elemental dw_at 0x67 = DW_AT_return dw_at 0x68 = DW_AT_recursive+dw_at 0x69 = DW_AT_signature+dw_at 0x6a = DW_AT_main_subprogram+dw_at 0x6b = DW_AT_data_bit_offset+dw_at 0x6c = DW_AT_const_expr+dw_at 0x6d = DW_AT_enum_class+dw_at 0x6e = DW_AT_linkage_name dw_at n | 0x2000 <= n && n <= 0x3fff = DW_AT_user n dw_at n = error $ "Unrecognized DW_AT " ++ show n

@@ -2,7 +2,7 @@  import Control.Applicative (Applicative(..), (<$>), (*>)) import Data.Binary.Get (getByteString, getWord8, Get, runGet)-import Data.Bits (Bits, (.|.), shiftL, clearBit, testBit)+import Data.Bits ((.|.), shiftL, clearBit, testBit) import Data.Int (Int64) import Data.Word (Word64) import qualified Data.Binary.Get as Get