paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 21:38:22 +02:00
Code Issues Packages Projects Releases Wiki Activity
main
lazarus/components/fpdebug/fpdbgdwarfconst.pas

927 lines
39 KiB
ObjectPascal
Raw Permalink Blame History

{ $Id$ }
{
---------------------------------------------------------------------------
fpdbgdwarfconst.pas - Freepascal debugger - Dwarf constants
---------------------------------------------------------------------------
This unit contains the constants defined for the dward debugging format.
---------------------------------------------------------------------------
@created(Fri Jul 7th WET 2006)
@lastmod($Date$)
@author(Marc Weustink <marc@@dommelstein.nl>)
*****************************************************************************
This file is part of the Lazarus Project
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
unit FpDbgDwarfConst;
{$mode objfpc}{$H+}
{$IFDEF INLINE_OFF}{$INLINE OFF}{$ENDIF}
interface
uses sysutils;
const
DWARF_HEADER64_SIGNATURE = $FFFFFFFF;
{ tag encodings }
DW_TAG_array_type = $01;
DW_TAG_class_type = $02;
DW_TAG_entry_point = $03;
DW_TAG_enumeration_type = $04;
DW_TAG_formal_parameter = $05;
DW_TAG_imported_declaration = $08;
DW_TAG_label = $0a;
DW_TAG_lexical_block = $0b;
DW_TAG_member = $0d;
DW_TAG_pointer_type = $0f;
DW_TAG_reference_type = $10;
DW_TAG_compile_unit = $11;
DW_TAG_string_type = $12;
DW_TAG_structure_type = $13;
DW_TAG_subroutine_type = $15;
DW_TAG_typedef = $16;
DW_TAG_union_type = $17;
DW_TAG_unspecified_parameters = $18;
DW_TAG_variant = $19;
DW_TAG_common_block = $1a;
DW_TAG_common_inclusion = $1b;
DW_TAG_inheritance = $1c;
DW_TAG_inlined_subroutine = $1d;
DW_TAG_module = $1e;
DW_TAG_ptr_to_member_type = $1f;
DW_TAG_set_type = $20;
DW_TAG_subrange_type = $21;
DW_TAG_with_stmt = $22;
DW_TAG_access_declaration = $23;
DW_TAG_base_type = $24;
DW_TAG_catch_block = $25;
DW_TAG_const_type = $26;
DW_TAG_constant = $27;
DW_TAG_enumerator = $28;
DW_TAG_file_type = $29;
DW_TAG_friend = $2a;
DW_TAG_namelist = $2b;
DW_TAG_namelist_item = $2c;
DW_TAG_packed_type = $2d;
DW_TAG_subprogram = $2e;
DW_TAG_template_type_parameter = $2f;
DW_TAG_template_value_parameter = $30;
DW_TAG_thrown_type = $31;
DW_TAG_try_block = $32;
DW_TAG_variant_part = $33;
DW_TAG_variable = $34;
DW_TAG_volatile_type = $35;
// --- DWARF3 ---
DW_TAG_dwarf_procedure = $36;
DW_TAG_restrict_type = $37;
DW_TAG_interface_type = $38;
DW_TAG_namespace = $39;
DW_TAG_imported_module = $3a;
DW_TAG_unspecified_type = $3b;
DW_TAG_partial_unit = $3c;
DW_TAG_imported_unit = $3d;
DW_TAG_condition = $3f;
DW_TAG_shared_type = $40;
// --- ---
DW_TAG_lo_user = $4080;
DW_TAG_hi_user = $ffff;
{ Child determination encodings }
DW_CHILDREN_no = $00;
DW_CHILDREN_yes = $01;
{ Attribute encodings }
DW_AT_sibling = $01 ; // reference
DW_AT_location = $02 ; // block, loclistptr
DW_AT_name = $03 ; // string
DW_AT_ordering = $09 ; // constant
DW_AT_byte_size = $0b ; // block, constant, reference
DW_AT_bit_offset = $0c ; // block, constant, reference
DW_AT_bit_size = $0d ; // block, constant, reference
DW_AT_stmt_list = $10 ; // lineptr
DW_AT_low_pc = $11 ; // address
DW_AT_high_pc = $12 ; // address
DW_AT_language = $13 ; // constant
DW_AT_discr = $15 ; // reference
DW_AT_discr_value = $16 ; // constant
DW_AT_visibility = $17 ; // constant
DW_AT_import = $18 ; // reference
DW_AT_string_length = $19 ; // block, loclistptr
DW_AT_common_reference = $1a ; // reference
DW_AT_comp_dir = $1b ; // string
DW_AT_const_value = $1c ; // block, constant, string
DW_AT_containing_type = $1d ; // reference
DW_AT_default_value = $1e ; // reference
DW_AT_inline = $20 ; // constant
DW_AT_is_optional = $21 ; // flag
DW_AT_lower_bound = $22 ; // block, constant, reference
DW_AT_producer = $25 ; // string
DW_AT_prototyped = $27 ; // flag
DW_AT_return_addr = $2a ; // block, loclistptr
DW_AT_start_scope = $2c ; // constant
DW_AT_bit_stride = $2e ; // constant // Dwarf 2 refers to it as DW_AT_stride_size
DW_AT_upper_bound = $2f ; // block, constant, reference
DW_AT_abstract_origin = $31 ; // reference
DW_AT_accessibility = $32 ; // constant
DW_AT_address_class = $33 ; // constant
DW_AT_artificial = $34 ; // flag
DW_AT_base_types = $35 ; // reference
DW_AT_calling_convention = $36 ; // constant
DW_AT_count = $37 ; // block, constant, reference
DW_AT_data_member_location = $38 ; // block, constant, loclistptr
DW_AT_decl_column = $39 ; // constant
DW_AT_decl_file = $3a ; // constant
DW_AT_decl_line = $3b ; // constant
DW_AT_declaration = $3c ; // flag
DW_AT_discr_list = $3d ; // block
DW_AT_encoding = $3e ; // constant
DW_AT_external = $3f ; // flag
DW_AT_frame_base = $40 ; // block, loclistptr
DW_AT_friend = $41 ; // reference
DW_AT_identifier_case = $42 ; // constant
DW_AT_macro_info = $43 ; // macptr
DW_AT_namelist_item = $44 ; // block
DW_AT_priority = $45 ; // reference
DW_AT_segment = $46 ; // block, loclistptr
DW_AT_specification = $47 ; // reference
DW_AT_static_link = $48 ; // block, loclistptr
DW_AT_type = $49 ; // reference
DW_AT_use_location = $4a ; // block, loclistptr
DW_AT_variable_parameter = $4b ; // flag
DW_AT_virtuality = $4c ; // constant
DW_AT_vtable_elem_location = $4d ; // block, loclistptr
// --- DWARF3 ---
DW_AT_allocated = $4e ; // block, constant, reference
DW_AT_associated = $4f ; // block, constant, reference
DW_AT_data_location = $50 ; // block
DW_AT_byte_stride = $51 ; // block, constant, reference
DW_AT_entry_pc = $52 ; // address
DW_AT_use_UTF8 = $53 ; // flag
DW_AT_extension = $54 ; // reference
DW_AT_ranges = $55 ; // rangelistptr
DW_AT_trampoline = $56 ; // address, flag, reference, string
DW_AT_call_column = $57 ; // constant
DW_AT_call_file = $58 ; // constant
DW_AT_call_line = $59 ; // constant
DW_AT_description = $5a ; // string
DW_AT_binary_scale = $5b ; // constant
DW_AT_decimal_scale = $5c ; // constant
DW_AT_small = $5d ; // reference
DW_AT_decimal_sign = $5e ; // constant
DW_AT_digit_count = $5f ; // constant
DW_AT_picture_string = $60 ; // string
DW_AT_mutable = $61 ; // flag
DW_AT_threads_scaled = $62 ; // flag
DW_AT_explicit = $63 ; // flag
DW_AT_object_pointer = $64 ; // reference
DW_AT_endianity = $65 ; // constant
DW_AT_elemental = $66 ; // flag
DW_AT_pure = $67 ; // flag
DW_AT_recursive = $68 ; // flag
// -- DWARF 4 --
DW_AT_data_bit_offset = $6b ; // constant // block, constant, reference
// --- ---
DW_AT_lo_user = $2000; // ---
DW_AT_hi_user = $3fff; // ---
{ Attribute form encodings }
DW_FORM_addr = $01; // address
DW_FORM_block2 = $03; // block
DW_FORM_block4 = $04; // block
DW_FORM_data2 = $05; // constant
DW_FORM_data4 = $06; // constant // DWARF-3: lineptr, loclistptr, macptr, rangelistptr
DW_FORM_data8 = $07; // constant // DWARF-3: lineptr, loclistptr, macptr, rangelistptr
DW_FORM_string = $08; // string
DW_FORM_block = $09; // block
DW_FORM_block1 = $0a; // block
DW_FORM_data1 = $0b; // constant
DW_FORM_flag = $0c; // flag
DW_FORM_sdata = $0d; // constant
DW_FORM_strp = $0e; // string
DW_FORM_udata = $0f; // constant
DW_FORM_ref_addr = $10; // reference
DW_FORM_ref1 = $11; // reference
DW_FORM_ref2 = $12; // reference
DW_FORM_ref4 = $13; // reference
DW_FORM_ref8 = $14; // reference
DW_FORM_ref_udata = $15; // reference
DW_FORM_indirect = $16; //
// -- DWARF 4 --
DW_FORM_sec_offset = $17; // lineptr, loclistptr, macptr, rangelistptr
DW_FORM_exprloc = $18; // exprloc
DW_FORM_flag_present = $19; // flag
DW_FORM_ref_sig8 = $20; // reference
DW_FORM_MAX = $20; //
{ DWARF operation encodings }
DW_OP_addr = $03; // 1 constant address (size target specific)
DW_OP_deref = $06; // 0
DW_OP_const1u = $08; // 1 1-byte constant
DW_OP_const1s = $09; // 1 1-byte constant
DW_OP_const2u = $0a; // 1 2-byte constant
DW_OP_const2s = $0b; // 1 2-byte constant
DW_OP_const4u = $0c; // 1 4-byte constant
DW_OP_const4s = $0d; // 1 4-byte constant
DW_OP_const8u = $0e; // 1 8-byte constant
DW_OP_const8s = $0f; // 1 8-byte constant
DW_OP_constu = $10; // 1 ULEB128 constant
DW_OP_consts = $11; // 1 SLEB128 constant
DW_OP_dup = $12; // 0
DW_OP_drop = $13; // 0
DW_OP_over = $14; // 0
DW_OP_pick = $15; // 1 1-byte stack index
DW_OP_swap = $16; // 0
DW_OP_rot = $17; // 0
DW_OP_xderef = $18; // 0
DW_OP_abs = $19; // 0
DW_OP_and = $1a; // 0
DW_OP_div = $1b; // 0
DW_OP_minus = $1c; // 0
DW_OP_mod = $1d; // 0
DW_OP_mul = $1e; // 0
DW_OP_neg = $1f; // 0
DW_OP_not = $20; // 0
DW_OP_or = $21; // 0
DW_OP_plus = $22; // 0
DW_OP_plus_uconst = $23; // 1 ULEB128 addend
DW_OP_shl = $24; // 0
DW_OP_shr = $25; // 0
DW_OP_shra = $26; // 0
DW_OP_xor = $27; // 0
DW_OP_skip = $2f; // 1 signed 2-byte constant
DW_OP_bra = $28; // 1 signed 2-byte constant
DW_OP_eq = $29; // 0
DW_OP_ge = $2a; // 0
DW_OP_gt = $2b; // 0
DW_OP_le = $2c; // 0
DW_OP_lt = $2d; // 0
DW_OP_ne = $2e; // 0
DW_OP_lit0 = $30; // 0 literals 0..31 = (DW_OP_lit0 + literal)
DW_OP_lit1 = $31; // 0
DW_OP_lit2 = $32; // 0
DW_OP_lit3 = $33; // 0
DW_OP_lit4 = $34; // 0
DW_OP_lit5 = $35; // 0
DW_OP_lit6 = $36; // 0
DW_OP_lit7 = $37; // 0
DW_OP_lit8 = $38; // 0
DW_OP_lit9 = $39; // 0
DW_OP_lit10 = $3a; // 0
DW_OP_lit11 = $3b; // 0
DW_OP_lit12 = $3c; // 0
DW_OP_lit13 = $3d; // 0
DW_OP_lit14 = $3e; // 0
DW_OP_lit15 = $3f; // 0
DW_OP_lit16 = $40; // 0
DW_OP_lit17 = $41; // 0
DW_OP_lit18 = $42; // 0
DW_OP_lit19 = $43; // 0
DW_OP_lit20 = $44; // 0
DW_OP_lit21 = $45; // 0
DW_OP_lit22 = $46; // 0
DW_OP_lit23 = $47; // 0
DW_OP_lit24 = $48; // 0
DW_OP_lit25 = $49; // 0
DW_OP_lit26 = $4a; // 0
DW_OP_lit27 = $4b; // 0
DW_OP_lit28 = $4c; // 0
DW_OP_lit29 = $4d; // 0
DW_OP_lit30 = $4e; // 0
DW_OP_lit31 = $4f; // 0
DW_OP_reg0 = $50; // 0 reg 0..31 = (DW_OP_reg0 + regnum)
DW_OP_reg1 = $51; // 0
DW_OP_reg2 = $52; // 0
DW_OP_reg3 = $53; // 0
DW_OP_reg4 = $54; // 0
DW_OP_reg5 = $55; // 0
DW_OP_reg6 = $56; // 0
DW_OP_reg7 = $57; // 0
DW_OP_reg8 = $58; // 0
DW_OP_reg9 = $59; // 0
DW_OP_reg10 = $5a; // 0
DW_OP_reg11 = $5b; // 0
DW_OP_reg12 = $5c; // 0
DW_OP_reg13 = $5d; // 0
DW_OP_reg14 = $5e; // 0
DW_OP_reg15 = $5f; // 0
DW_OP_reg16 = $60; // 0
DW_OP_reg17 = $61; // 0
DW_OP_reg18 = $62; // 0
DW_OP_reg19 = $63; // 0
DW_OP_reg20 = $64; // 0
DW_OP_reg21 = $65; // 0
DW_OP_reg22 = $66; // 0
DW_OP_reg23 = $67; // 0
DW_OP_reg24 = $68; // 0
DW_OP_reg25 = $69; // 0
DW_OP_reg26 = $6a; // 0
DW_OP_reg27 = $6b; // 0
DW_OP_reg28 = $6c; // 0
DW_OP_reg29 = $6d; // 0
DW_OP_reg30 = $6e; // 0
DW_OP_reg31 = $6f; // 0
DW_OP_breg0 = $70; // 1 SLEB128 offsetbase register 0..31 = (DW_OP_breg0 + regnum)
DW_OP_breg1 = $71; // 1
DW_OP_breg2 = $72; // 1
DW_OP_breg3 = $73; // 1
DW_OP_breg4 = $74; // 1
DW_OP_breg5 = $75; // 1
DW_OP_breg6 = $76; // 1
DW_OP_breg7 = $77; // 1
DW_OP_breg8 = $78; // 1
DW_OP_breg9 = $79; // 1
DW_OP_breg10 = $7a; // 1
DW_OP_breg11 = $7b; // 1
DW_OP_breg12 = $7c; // 1
DW_OP_breg13 = $7d; // 1
DW_OP_breg14 = $7e; // 1
DW_OP_breg15 = $7f; // 1
DW_OP_breg16 = $80; // 1
DW_OP_breg17 = $81; // 1
DW_OP_breg18 = $82; // 1
DW_OP_breg19 = $83; // 1
DW_OP_breg20 = $84; // 1
DW_OP_breg21 = $85; // 1
DW_OP_breg22 = $86; // 1
DW_OP_breg23 = $87; // 1
DW_OP_breg24 = $88; // 1
DW_OP_breg25 = $89; // 1
DW_OP_breg26 = $8a; // 1
DW_OP_breg27 = $8b; // 1
DW_OP_breg28 = $8c; // 1
DW_OP_breg29 = $8d; // 1
DW_OP_breg30 = $8e; // 1
DW_OP_breg31 = $8f; // 1
DW_OP_regx = $90; // 1 ULEB128 register
DW_OP_fbreg = $91; // 1 SLEB128 offset
DW_OP_bregx = $92; // 2 ULEB128 register followed bySLEB128 offset
DW_OP_piece = $93; // 1 ULEB128 size of piece addressed
DW_OP_deref_size = $94; // 1 1-byte size of data retrieved
DW_OP_xderef_size = $95; // 1 1-byte size of data retrieved
DW_OP_nop = $96; // 0
// --- DWARF3 ---
DW_OP_push_object_address = $97; // 0
DW_OP_call2 = $98; // 1 2-byte offset of DIE
DW_OP_call4 = $99; // 1 4-byte offset of DIE
DW_OP_call_ref = $9a; // 1 4- or 8-byte offset of DIE
DW_OP_form_tls_address = $9b; // 0
DW_OP_call_frame_cfa = $9c; // 0
DW_OP_bit_piece = $9d; // 2
// --- DWARF4 ---
DW_OP_stack_value = $9f; // 0
// --- ---
DW_OP_lo_user = $e0; //
DW_OP_hi_user = $ff; //
{ Base type encoding values }
DW_ATE_address = $01;
DW_ATE_boolean = $02;
DW_ATE_complex_float = $03;
DW_ATE_float = $04;
DW_ATE_signed = $05;
DW_ATE_signed_char = $06;
DW_ATE_unsigned = $07;
DW_ATE_unsigned_char = $08;
// --- DWARF3 ---
DW_ATE_imaginary_float = $09;
DW_ATE_packed_decimal = $0a;
DW_ATE_numeric_string = $0b;
DW_ATE_edited = $0c;
DW_ATE_signed_fixed = $0d;
DW_ATE_unsigned_fixed = $0e;
DW_ATE_decimal_float = $0f;
// --- ---
DW_ATE_lo_user = $80;
DW_ATE_hi_user = $ff;
{ Decimal sign encodings }
// --- DWARF3 ---
DW_DS_unsigned = $01;
DW_DS_leading_overpunch = $02;
DW_DS_trailing_overpunch = $03;
DW_DS_leading_separate = $04;
DW_DS_trailing_separate = $05;
// --- ---
{ Endianity encodings }
// --- DWARF3 ---
DW_END_default = $00;
DW_END_big = $01;
DW_END_little = $02;
DW_END_lo_user = $40;
DW_END_hi_user = $ff;
// --- ---
{ Accessibility encodings }
DW_ACCESS_public = $01;
DW_ACCESS_protected = $02;
DW_ACCESS_private = $03;
{ Visibility encodings }
DW_VIS_local = $01;
DW_VIS_exported = $02;
DW_VIS_qualified = $03;
{ Virtuality encodings }
DW_VIRTUALITY_none = $00;
DW_VIRTUALITY_virtual = $01;
DW_VIRTUALITY_pure_virtual = $02;
{ Language names }
DW_LANG_C89 = $0001;
DW_LANG_C = $0002;
DW_LANG_Ada83 = $0003; // reserved
DW_LANG_C_plus_plus = $0004;
DW_LANG_Cobol74 = $0005; // reserved
DW_LANG_Cobol85 = $0006; // reserved
DW_LANG_Fortran77 = $0007;
DW_LANG_Fortran90 = $0008;
DW_LANG_Pascal83 = $0009;
DW_LANG_Modula2 = $000a;
// --- DWARF3 ---
DW_LANG_Java = $000b;
DW_LANG_C99 = $000c;
DW_LANG_Ada95 = $000d; // reserved
DW_LANG_Fortran95 = $000e;
DW_LANG_PLI = $000f; // reserved
DW_LANG_ObjC = $0010;
DW_LANG_ObjC_plus_plus = $0011;
DW_LANG_UPC = $0012;
DW_LANG_D = $0013;
// --- ---
DW_LANG_lo_user = $8000;
DW_LANG_hi_user = $ffff;
{ Address class encoding }
DW_ADDR_none = $00;
{ Identifier case encodings }
DW_ID_case_sensitive = $00;
DW_ID_up_case = $01;
DW_ID_down_case = $02;
DW_ID_case_insensitive = $03;
{ Calling convention encodings }
DW_CC_normal = $01;
DW_CC_program = $02;
DW_CC_nocall = $03;
DW_CC_lo_user = $40;
DW_CC_hi_user = $ff;
{ Inline encodings }
DW_INL_not_inlined = $00;
DW_INL_inlined = $01;
DW_INL_declared_not_inlined = $02;
DW_INL_declared_inlined = $03;
{ Ordering encodings }
DW_ORD_row_major = $00;
DW_ORD_col_major = $01;
{ Discriminant descriptor encodings }
DW_DSC_label = $00;
DW_DSC_range = $01;
{ Line Number Standard Opcode Encodings }
DW_LNS_extended_opcode = $00;
DW_LNS_copy = $01;
DW_LNS_advance_pc = $02;
DW_LNS_advance_line = $03;
DW_LNS_set_file = $04;
DW_LNS_set_column = $05;
DW_LNS_negate_stmt = $06;
DW_LNS_set_basic_block = $07;
DW_LNS_const_add_pc = $08;
DW_LNS_fixed_advance_pc = $09;
// --- DWARF3 ---
DW_LNS_set_prologue_end = $0a;
DW_LNS_set_epilogue_begin = $0b;
DW_LNS_set_isa = $0c;
// --- ---
{ Line Number Extended Opcode Encodings }
DW_LNE_end_sequence = $01;
DW_LNE_set_address = $02;
DW_LNE_define_file = $03;
// --- DWARF3 ---
// --- DWARF4 ---
DW_LNE_set_discriminator = $04;
DW_LNE_lo_user = $80;
DW_LNE_hi_user = $ff;
// --- ---
{ Macinfo Type Encodings }
DW_MACINFO_define = $01;
DW_MACINFO_undef = $02;
DW_MACINFO_start_file = $03;
DW_MACINFO_end_file = $04;
DW_MACINFO_vendor_ext = $ff;
{ Call frame instruction encodings }
// Special codes, operand is encoded in bit 5..0
DW_CFA_advance_loc = $40; // delta
DW_CFA_offset = $80; // register ULEB128 offset
DW_CFA_restore = $C0; // register
//--
DW_CFA_nop = $00;
DW_CFA_set_loc = $01; // address
DW_CFA_advance_loc1 = $02; // 1-byte delta
DW_CFA_advance_loc2 = $03; // 2-byte delta
DW_CFA_advance_loc4 = $04; // 4-byte delta
DW_CFA_offset_extended = $05; // ULEB128 register, ULEB128 offset
DW_CFA_restore_extended = $06; // ULEB128 register
DW_CFA_undefined = $07; // ULEB128 register
DW_CFA_same_value = $08; // ULEB128 register
DW_CFA_register = $09; // ULEB128 register, ULEB128 register
DW_CFA_remember_state = $0a;
DW_CFA_restore_state = $0b;
DW_CFA_def_cfa = $0c; // ULEB128 register, ULEB128 offset
DW_CFA_def_cfa_register = $0d; // ULEB128 register
DW_CFA_def_cfa_offset = $0e; // ULEB128 offset
// --- DWARF3 ---
DW_CFA_def_cfa_expression = $0f; // BLOCK
DW_CFA_expression = $10; // ULEB128 register, BLOCK
DW_CFA_offset_extended_sf = $11; // ULEB128 register, SLEB128 offset
DW_CFA_def_cfa_sf = $12; // ULEB128 register, SLEB128 offset
DW_CFA_def_cfa_offset_sf = $13; // SLEB128 offset
DW_CFA_val_offset = $14; // ULEB128 , ULEB128
DW_CFA_val_offset_sf = $15; // ULEB128 , SLEB128
DW_CFA_val_expression = $16; // ULEB128 , BLOCK
// --- ---
DW_CFA_lo_user = $1c;
DW_CFA_hi_user = $3f;
function DwarfTagToString(AValue: Integer): String;
function DwarfChildrenToString(AValue: Integer): String;
function DwarfAttributeToString(AValue: Integer): String;
function DwarfAttributeFormToString(AValue: Integer): String;
function DwarfLanguageToString(AValue: Integer): String;
function DwarfBaseTypeEncodingToString(AValue: Integer): String;
function DwarfAccessibilityToString(AValue: Integer): String;
function DwarfVisibilityToString(AValue: Integer): String;
function DwarfVirtualityToString(AValue: Integer): String;
function DwarfIdentifierCaseToString(AValue: Integer): String;
implementation
function DwarfTagToString(AValue: Integer): String;
begin
case AValue of
DW_TAG_array_type : Result := 'DW_TAG_array_type';
DW_TAG_class_type : Result := 'DW_TAG_class_type';
DW_TAG_entry_point : Result := 'DW_TAG_entry_point';
DW_TAG_enumeration_type : Result := 'DW_TAG_enumeration_type';
DW_TAG_formal_parameter : Result := 'DW_TAG_formal_parameter';
DW_TAG_imported_declaration : Result := 'DW_TAG_imported_declaration';
DW_TAG_label : Result := 'DW_TAG_label';
DW_TAG_lexical_block : Result := 'DW_TAG_lexical_block';
DW_TAG_member : Result := 'DW_TAG_member';
DW_TAG_pointer_type : Result := 'DW_TAG_pointer_type';
DW_TAG_reference_type : Result := 'DW_TAG_reference_type';
DW_TAG_compile_unit : Result := 'DW_TAG_compile_unit';
DW_TAG_string_type : Result := 'DW_TAG_string_type';
DW_TAG_structure_type : Result := 'DW_TAG_structure_type';
DW_TAG_subroutine_type : Result := 'DW_TAG_subroutine_type';
DW_TAG_typedef : Result := 'DW_TAG_typedef';
DW_TAG_union_type : Result := 'DW_TAG_union_type';
DW_TAG_unspecified_parameters : Result := 'DW_TAG_unspecified_parameters';
DW_TAG_variant : Result := 'DW_TAG_variant';
DW_TAG_common_block : Result := 'DW_TAG_common_block';
DW_TAG_common_inclusion : Result := 'DW_TAG_common_inclusion';
DW_TAG_inheritance : Result := 'DW_TAG_inheritance';
DW_TAG_inlined_subroutine : Result := 'DW_TAG_inlined_subroutine';
DW_TAG_module : Result := 'DW_TAG_module';
DW_TAG_ptr_to_member_type : Result := 'DW_TAG_ptr_to_member_type';
DW_TAG_set_type : Result := 'DW_TAG_set_type';
DW_TAG_subrange_type : Result := 'DW_TAG_subrange_type';
DW_TAG_with_stmt : Result := 'DW_TAG_with_stmt';
DW_TAG_access_declaration : Result := 'DW_TAG_access_declaration';
DW_TAG_base_type : Result := 'DW_TAG_base_type';
DW_TAG_catch_block : Result := 'DW_TAG_catch_block';
DW_TAG_const_type : Result := 'DW_TAG_const_type';
DW_TAG_constant : Result := 'DW_TAG_constant';
DW_TAG_enumerator : Result := 'DW_TAG_enumerator';
DW_TAG_file_type : Result := 'DW_TAG_file_type';
DW_TAG_friend : Result := 'DW_TAG_friend';
DW_TAG_namelist : Result := 'DW_TAG_namelist';
DW_TAG_namelist_item : Result := 'DW_TAG_namelist_item';
DW_TAG_packed_type : Result := 'DW_TAG_packed_type';
DW_TAG_subprogram : Result := 'DW_TAG_subprogram';
DW_TAG_template_type_parameter : Result := 'DW_TAG_template_type_parameter';
DW_TAG_template_value_parameter: Result := 'DW_TAG_template_value_parameter';
DW_TAG_thrown_type : Result := 'DW_TAG_thrown_type';
DW_TAG_try_block : Result := 'DW_TAG_try_block';
DW_TAG_variant_part : Result := 'DW_TAG_variant_part';
DW_TAG_variable : Result := 'DW_TAG_variable';
DW_TAG_volatile_type : Result := 'DW_TAG_volatile_type';
DW_TAG_dwarf_procedure : Result := 'DW_TAG_dwarf_procedure';
DW_TAG_restrict_type : Result := 'DW_TAG_restrict_type';
DW_TAG_interface_type : Result := 'DW_TAG_interface_type';
DW_TAG_namespace : Result := 'DW_TAG_namespace';
DW_TAG_imported_module : Result := 'DW_TAG_imported_module';
DW_TAG_unspecified_type : Result := 'DW_TAG_unspecified_type';
DW_TAG_partial_unit : Result := 'DW_TAG_partial_unit';
DW_TAG_imported_unit : Result := 'DW_TAG_imported_unit';
DW_TAG_condition : Result := 'DW_TAG_condition';
DW_TAG_shared_type : Result := 'DW_TAG_shared_type';
DW_TAG_lo_user : Result := 'DW_TAG_lo_user';
DW_TAG_hi_user : Result := 'DW_TAG_hi_user';
else
Result := Format('DW_TAG_%d', [AValue]);
end;
end;
function DwarfChildrenToString(AValue: Integer): String;
begin
case AValue of
DW_CHILDREN_no : Result := 'DW_CHILDREN_no';
DW_CHILDREN_yes : Result := 'DW_CHILDREN_yes';
else
Result := Format('DW_CHILDREN_%d', [AValue]);
end;
end;
function DwarfAttributeToString(AValue: Integer): String;
begin
case AValue of
DW_AT_sibling : Result := 'DW_AT_sibling';
DW_AT_location : Result := 'DW_AT_location';
DW_AT_name : Result := 'DW_AT_name';
DW_AT_ordering : Result := 'DW_AT_ordering';
DW_AT_byte_size : Result := 'DW_AT_byte_size';
DW_AT_bit_offset : Result := 'DW_AT_bit_offset';
DW_AT_bit_size : Result := 'DW_AT_bit_size';
DW_AT_stmt_list : Result := 'DW_AT_stmt_list';
DW_AT_low_pc : Result := 'DW_AT_low_pc';
DW_AT_high_pc : Result := 'DW_AT_high_pc';
DW_AT_language : Result := 'DW_AT_language';
DW_AT_discr : Result := 'DW_AT_discr';
DW_AT_discr_value : Result := 'DW_AT_discr_value';
DW_AT_visibility : Result := 'DW_AT_visibility';
DW_AT_import : Result := 'DW_AT_import';
DW_AT_string_length : Result := 'DW_AT_string_length';
DW_AT_common_reference : Result := 'DW_AT_common_reference';
DW_AT_comp_dir : Result := 'DW_AT_comp_dir';
DW_AT_const_value : Result := 'DW_AT_const_value';
DW_AT_containing_type : Result := 'DW_AT_containing_type';
DW_AT_default_value : Result := 'DW_AT_default_value';
DW_AT_inline : Result := 'DW_AT_inline';
DW_AT_is_optional : Result := 'DW_AT_is_optional';
DW_AT_lower_bound : Result := 'DW_AT_lower_bound';
DW_AT_producer : Result := 'DW_AT_producer';
DW_AT_prototyped : Result := 'DW_AT_prototyped';
DW_AT_return_addr : Result := 'DW_AT_return_addr';
DW_AT_start_scope : Result := 'DW_AT_start_scope';
DW_AT_bit_stride : Result := 'DW_AT_bit_stride';
DW_AT_upper_bound : Result := 'DW_AT_upper_bound';
DW_AT_abstract_origin : Result := 'DW_AT_abstract_origin';
DW_AT_accessibility : Result := 'DW_AT_accessibility';
DW_AT_address_class : Result := 'DW_AT_address_class';
DW_AT_artificial : Result := 'DW_AT_artificial';
DW_AT_base_types : Result := 'DW_AT_base_types';
DW_AT_calling_convention : Result := 'DW_AT_calling_convention';
DW_AT_count : Result := 'DW_AT_count';
DW_AT_data_member_location: Result := 'DW_AT_data_member_location';
DW_AT_decl_column : Result := 'DW_AT_decl_column';
DW_AT_decl_file : Result := 'DW_AT_decl_file';
DW_AT_decl_line : Result := 'DW_AT_decl_line';
DW_AT_declaration : Result := 'DW_AT_declaration';
DW_AT_discr_list : Result := 'DW_AT_discr_list';
DW_AT_encoding : Result := 'DW_AT_encoding';
DW_AT_external : Result := 'DW_AT_external';
DW_AT_frame_base : Result := 'DW_AT_frame_base';
DW_AT_friend : Result := 'DW_AT_friend';
DW_AT_identifier_case : Result := 'DW_AT_identifier_case';
DW_AT_macro_info : Result := 'DW_AT_macro_info';
DW_AT_namelist_item : Result := 'DW_AT_namelist_item';
DW_AT_priority : Result := 'DW_AT_priority';
DW_AT_segment : Result := 'DW_AT_segment';
DW_AT_specification : Result := 'DW_AT_specification';
DW_AT_static_link : Result := 'DW_AT_static_link';
DW_AT_type : Result := 'DW_AT_type';
DW_AT_use_location : Result := 'DW_AT_use_location';
DW_AT_variable_parameter : Result := 'DW_AT_variable_parameter';
DW_AT_virtuality : Result := 'DW_AT_virtuality';
DW_AT_vtable_elem_location: Result := 'DW_AT_vtable_elem_location';
DW_AT_allocated : Result := 'DW_AT_allocated';
DW_AT_associated : Result := 'DW_AT_associated';
DW_AT_data_location : Result := 'DW_AT_data_location';
DW_AT_byte_stride : Result := 'DW_AT_byte_stride';
DW_AT_entry_pc : Result := 'DW_AT_entry_pc';
DW_AT_use_UTF8 : Result := 'DW_AT_use_UTF8';
DW_AT_extension : Result := 'DW_AT_extension';
DW_AT_ranges : Result := 'DW_AT_ranges';
DW_AT_trampoline : Result := 'DW_AT_trampoline';
DW_AT_call_column : Result := 'DW_AT_call_column';
DW_AT_call_file : Result := 'DW_AT_call_file';
DW_AT_call_line : Result := 'DW_AT_call_line';
DW_AT_description : Result := 'DW_AT_description';
DW_AT_binary_scale : Result := 'DW_AT_binary_scale';
DW_AT_decimal_scale : Result := 'DW_AT_decimal_scale';
DW_AT_small : Result := 'DW_AT_small';
DW_AT_decimal_sign : Result := 'DW_AT_decimal_sign';
DW_AT_digit_count : Result := 'DW_AT_digit_count';
DW_AT_picture_string : Result := 'DW_AT_picture_string';
DW_AT_mutable : Result := 'DW_AT_mutable';
DW_AT_threads_scaled : Result := 'DW_AT_threads_scaled';
DW_AT_explicit : Result := 'DW_AT_explicit';
DW_AT_object_pointer : Result := 'DW_AT_object_pointer';
DW_AT_endianity : Result := 'DW_AT_endianity';
DW_AT_elemental : Result := 'DW_AT_elemental';
DW_AT_pure : Result := 'DW_AT_pure';
DW_AT_recursive : Result := 'DW_AT_recursive';
DW_AT_data_bit_offset : Result := 'DW_AT_data_bit_offset';
DW_AT_lo_user : Result := 'DW_AT_lo_user';
DW_AT_hi_user : Result := 'DW_AT_hi_user';
else
Result := Format('DW_AT_%d', [AValue]);
end;
end;
function DwarfAttributeFormToString(AValue: Integer): String;
begin
case AValue of
DW_FORM_addr : Result := 'DW_FORM_addr';
DW_FORM_block2 : Result := 'DW_FORM_block2';
DW_FORM_block4 : Result := 'DW_FORM_block4';
DW_FORM_data2 : Result := 'DW_FORM_data2';
DW_FORM_data4 : Result := 'DW_FORM_data4';
DW_FORM_data8 : Result := 'DW_FORM_data8';
DW_FORM_string : Result := 'DW_FORM_string';
DW_FORM_block : Result := 'DW_FORM_block';
DW_FORM_block1 : Result := 'DW_FORM_block1';
DW_FORM_data1 : Result := 'DW_FORM_data1';
DW_FORM_flag : Result := 'DW_FORM_flag';
DW_FORM_sdata : Result := 'DW_FORM_sdata';
DW_FORM_strp : Result := 'DW_FORM_strp';
DW_FORM_udata : Result := 'DW_FORM_udata';
DW_FORM_ref_addr : Result := 'DW_FORM_ref_addr';
DW_FORM_ref1 : Result := 'DW_FORM_ref1';
DW_FORM_ref2 : Result := 'DW_FORM_ref2';
DW_FORM_ref4 : Result := 'DW_FORM_ref4';
DW_FORM_ref8 : Result := 'DW_FORM_ref8';
DW_FORM_ref_udata: Result := 'DW_FORM_ref_udata';
DW_FORM_indirect : Result := 'DW_FORM_indirect';
DW_FORM_sec_offset: Result := 'DW_FORM_sec_offset';
DW_FORM_exprloc: Result := 'DW_FORM_exprloc';
DW_FORM_flag_present: Result := 'DW_FORM_flag_present';
DW_FORM_ref_sig8: Result := 'DW_FORM_ref_sig8';
else
Result := Format('DW_FORM_%d', [AValue]);
end;
end;
function DwarfLanguageToString(AValue: Integer): String;
begin
case AValue of
DW_LANG_C89 : Result := 'DW_LANG_C89';
DW_LANG_C : Result := 'DW_LANG_C';
DW_LANG_Ada83 : Result := 'DW_LANG_Ada83 (reserved)';
DW_LANG_C_plus_plus : Result := 'DW_LANG_C_plus_plus';
DW_LANG_Cobol74 : Result := 'DW_LANG_Cobol74 (reserved)';
DW_LANG_Cobol85 : Result := 'DW_LANG_Cobol85 (reserved)';
DW_LANG_Fortran77 : Result := 'DW_LANG_Fortran77';
DW_LANG_Fortran90 : Result := 'DW_LANG_Fortran90';
DW_LANG_Pascal83 : Result := 'DW_LANG_Pascal83';
DW_LANG_Modula2 : Result := 'DW_LANG_Modula2';
DW_LANG_Java : Result := 'DW_LANG_Java';
DW_LANG_C99 : Result := 'DW_LANG_C99';
DW_LANG_Ada95 : Result := 'DW_LANG_Ada95 (reserved)';
DW_LANG_Fortran95 : Result := 'DW_LANG_Fortran95';
DW_LANG_PLI : Result := 'DW_LANG_PLI (reserved)';
DW_LANG_ObjC : Result := 'DW_LANG_ObjC';
DW_LANG_ObjC_plus_plus : Result := 'DW_LANG_ObjC_plus_plus';
DW_LANG_UPC : Result := 'DW_LANG_UPC';
DW_LANG_D : Result := 'DW_LANG_D';
DW_LANG_lo_user..DW_LANG_hi_user: Result := Format('DW_LANG_user_%d', [AValue]);
else
Result := Format('DW_LANG_%d', [AValue]);
end;
end;
function DwarfBaseTypeEncodingToString(AValue: Integer): String;
begin
case AValue of
DW_ATE_address : Result := 'DW_ATE_address';
DW_ATE_boolean : Result := 'DW_ATE_boolean';
DW_ATE_complex_float : Result := 'DW_ATE_complex_float';
DW_ATE_float : Result := 'DW_ATE_float';
DW_ATE_signed : Result := 'DW_ATE_signed';
DW_ATE_signed_char : Result := 'DW_ATE_signed_char';
DW_ATE_unsigned : Result := 'DW_ATE_unsigned';
DW_ATE_unsigned_char : Result := 'DW_ATE_unsigned_char';
DW_ATE_imaginary_float : Result := 'DW_ATE_imaginary_float';
DW_ATE_packed_decimal : Result := 'DW_ATE_packed_decimal';
DW_ATE_numeric_string : Result := 'DW_ATE_numeric_string';
DW_ATE_edited : Result := 'DW_ATE_edited';
DW_ATE_signed_fixed : Result := 'DW_ATE_signed_fixed';
DW_ATE_unsigned_fixed : Result := 'DW_ATE_unsigned_fixed';
DW_ATE_decimal_float : Result := 'DW_ATE_decimal_float';
DW_ATE_lo_user..DW_ATE_hi_user : Result := Format('DW_ATE_user_%d', [AValue]);
else
Result := Format('DW_ATE_%d', [AValue]);
end;
end;
function DwarfAccessibilityToString(AValue: Integer): String;
begin
case AValue of
DW_ACCESS_public : Result := 'DW_ACCESS_public';
DW_ACCESS_protected : Result := 'DW_ACCESS_protected';
DW_ACCESS_private : Result := 'DW_ACCESS_private';
else
Result := Format('DW_ACCESS_%d', [AValue]);
end;
end;
function DwarfVisibilityToString(AValue: Integer): String;
begin
case AValue of
DW_VIS_local : Result := 'DW_VIS_local';
DW_VIS_exported : Result := 'DW_VIS_exported';
DW_VIS_qualified : Result := 'DW_VIS_qualified';
else
Result := Format('DW_FORM_%d', [AValue]);
end;
end;
function DwarfVirtualityToString(AValue: Integer): String;
begin
case AValue of
DW_VIRTUALITY_none : Result := 'DW_VIRTUALITY_none';
DW_VIRTUALITY_virtual : Result := 'DW_VIRTUALITY_virtual';
DW_VIRTUALITY_pure_virtual : Result := 'DW_VIRTUALITY_pure_virtual';
else
Result := Format('DW_VIRTUALITY_%d', [AValue]);
end;
end;
function DwarfIdentifierCaseToString(AValue: Integer): String;
begin
case AValue of
DW_ID_case_sensitive : Result := 'DW_ID_case_sensitive';
DW_ID_up_case : Result := 'DW_ID_up_case';
DW_ID_down_case : Result := 'DW_ID_down_case';
DW_ID_case_insensitive : Result := 'DW_ID_case_insensitive';
else
Result := Format('DW_ID_%d', [AValue]);
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink