/* Apollo object module DST (debug symbol table) description */
#ifndef apollo_dst_h
-#define apollo_dst_h
+#define apollo_dst_h
#if defined(apollo) && !defined(__GNUC__)
#define ALIGNED1 __attribute( (aligned(1)) )
#else
/* Remove attribute directives from non-Apollo code: */
-#define ALIGNED1 /* nil */
+#define ALIGNED1 /* nil */
#endif
/* Identification of this version of the debug symbol table. Producers of the
debug symbol table must write these values into the version number field of
the compilation unit record in .blocks .
-*/
-#define dst_version_major 1
-#define dst_version_minor 3
+ */
+#define dst_version_major 1
+#define dst_version_minor 3
/*
-** Enumeration of debug record types appearing in .blocks and .symbols ...
-*/
+ ** Enumeration of debug record types appearing in .blocks and .symbols ...
+ */
typedef enum
- {
- dst_typ_pad, /* 0 */
- dst_typ_comp_unit, /* 1 */
- dst_typ_section_tab, /* 2 */
- dst_typ_file_tab, /* 3 */
- dst_typ_block, /* 4 */
+ {
+ dst_typ_pad, /* 0 */
+ dst_typ_comp_unit, /* 1 */
+ dst_typ_section_tab, /* 2 */
+ dst_typ_file_tab, /* 3 */
+ dst_typ_block, /* 4 */
dst_typ_5,
dst_typ_var,
- dst_typ_pointer, /* 7 */
- dst_typ_array, /* 8 */
- dst_typ_subrange, /* 9 */
- dst_typ_set, /* 10 */
- dst_typ_implicit_enum, /* 11 */
- dst_typ_explicit_enum, /* 12 */
- dst_typ_short_rec, /* 13 */
+ dst_typ_pointer, /* 7 */
+ dst_typ_array, /* 8 */
+ dst_typ_subrange, /* 9 */
+ dst_typ_set, /* 10 */
+ dst_typ_implicit_enum, /* 11 */
+ dst_typ_explicit_enum, /* 12 */
+ dst_typ_short_rec, /* 13 */
dst_typ_old_record,
- dst_typ_short_union, /* 15 */
+ dst_typ_short_union, /* 15 */
dst_typ_old_union,
- dst_typ_file, /* 17 */
- dst_typ_offset, /* 18 */
- dst_typ_alias, /* 19 */
- dst_typ_signature, /* 20 */
+ dst_typ_file, /* 17 */
+ dst_typ_offset, /* 18 */
+ dst_typ_alias, /* 19 */
+ dst_typ_signature, /* 20 */
dst_typ_21,
- dst_typ_old_label, /* 22 */
- dst_typ_scope, /* 23 */
- dst_typ_end_scope, /* 24 */
+ dst_typ_old_label, /* 22 */
+ dst_typ_scope, /* 23 */
+ dst_typ_end_scope, /* 24 */
dst_typ_25,
dst_typ_26,
- dst_typ_string_tab, /* 27 */
- dst_typ_global_name_tab, /* 28 */
- dst_typ_forward, /* 29 */
- dst_typ_aux_size, /* 30 */
- dst_typ_aux_align, /* 31 */
- dst_typ_aux_field_size, /* 32 */
- dst_typ_aux_field_off, /* 33 */
- dst_typ_aux_field_align, /* 34 */
- dst_typ_aux_qual, /* 35 */
- dst_typ_aux_var_bound, /* 36 */
- dst_typ_extension, /* 37 */
- dst_typ_string, /* 38 */
+ dst_typ_string_tab, /* 27 */
+ dst_typ_global_name_tab, /* 28 */
+ dst_typ_forward, /* 29 */
+ dst_typ_aux_size, /* 30 */
+ dst_typ_aux_align, /* 31 */
+ dst_typ_aux_field_size, /* 32 */
+ dst_typ_aux_field_off, /* 33 */
+ dst_typ_aux_field_align, /* 34 */
+ dst_typ_aux_qual, /* 35 */
+ dst_typ_aux_var_bound, /* 36 */
+ dst_typ_extension, /* 37 */
+ dst_typ_string, /* 38 */
dst_typ_old_entry,
- dst_typ_const, /* 40 */
- dst_typ_reference, /* 41 */
- dst_typ_record, /* 42 */
- dst_typ_union, /* 43 */
- dst_typ_aux_type_deriv, /* 44 */
- dst_typ_locpool, /* 45 */
- dst_typ_variable, /* 46 */
- dst_typ_label, /* 47 */
- dst_typ_entry, /* 48 */
- dst_typ_aux_lifetime, /* 49 */
- dst_typ_aux_ptr_base, /* 50 */
- dst_typ_aux_src_range, /* 51 */
- dst_typ_aux_reg_val, /* 52 */
- dst_typ_aux_unit_names, /* 53 */
- dst_typ_aux_sect_info, /* 54 */
+ dst_typ_const, /* 40 */
+ dst_typ_reference, /* 41 */
+ dst_typ_record, /* 42 */
+ dst_typ_union, /* 43 */
+ dst_typ_aux_type_deriv, /* 44 */
+ dst_typ_locpool, /* 45 */
+ dst_typ_variable, /* 46 */
+ dst_typ_label, /* 47 */
+ dst_typ_entry, /* 48 */
+ dst_typ_aux_lifetime, /* 49 */
+ dst_typ_aux_ptr_base, /* 50 */
+ dst_typ_aux_src_range, /* 51 */
+ dst_typ_aux_reg_val, /* 52 */
+ dst_typ_aux_unit_names, /* 53 */
+ dst_typ_aux_sect_info, /* 54 */
dst_typ_END_OF_ENUM
- }
- dst_rec_type_t;
+ }
+dst_rec_type_t;
/*
-** Dummy bounds for variably dimensioned arrays:
-*/
+ ** Dummy bounds for variably dimensioned arrays:
+ */
#define dst_dummy_array_size 100
/*
-** Reference to another item in the symbol table.
-**
-** The value of a dst_rel_offset_t is the relative offset from the start of the
-** referencing record to the start of the referenced record, string, etc.
-**
-** The value of a NIL dst_rel_offset_t is zero.
-*/
+ ** Reference to another item in the symbol table.
+ **
+ ** The value of a dst_rel_offset_t is the relative offset from the start of the
+ ** referencing record to the start of the referenced record, string, etc.
+ **
+ ** The value of a NIL dst_rel_offset_t is zero.
+ */
-typedef long dst_rel_offset_t ALIGNED1;
+typedef long dst_rel_offset_t ALIGNED1;
/* FIXME: Here and many places we make assumptions about sizes of host
about cross-debugging, though. */
/*
-** Section-relative reference.
-**
-** The section index field is an index into the local compilation unit's
-** section table (see dst_rec_section_tab_t)--NOT into the object module
-** section table!
-**
-** The sect_offset field is the offset in bytes into the section.
-**
-** A NIL dst_sect_ref_t has a sect_index field of zero. Indexes originate
-** at one.
-*/
+ ** Section-relative reference.
+ **
+ ** The section index field is an index into the local compilation unit's
+ ** section table (see dst_rec_section_tab_t)--NOT into the object module
+ ** section table!
+ **
+ ** The sect_offset field is the offset in bytes into the section.
+ **
+ ** A NIL dst_sect_ref_t has a sect_index field of zero. Indexes originate
+ ** at one.
+ */
typedef struct
- {
- unsigned short sect_index;
- unsigned long sect_offset ALIGNED1;
- }
- dst_sect_ref_t;
+ {
+ unsigned short sect_index;
+ unsigned long sect_offset ALIGNED1;
+ }
+dst_sect_ref_t;
#define dst_sect_index_nil 0
#define dst_sect_index_origin 1
/*
-** Source location descriptor.
-**
-** The file_index field is an index into the local compilation unit's
-** file table (see dst_rec_file_tab_t).
-**
-** A NIL dst_src_loc_t has a file_index field of zero. Indexes originate
-** at one.
-*/
+ ** Source location descriptor.
+ **
+ ** The file_index field is an index into the local compilation unit's
+ ** file table (see dst_rec_file_tab_t).
+ **
+ ** A NIL dst_src_loc_t has a file_index field of zero. Indexes originate
+ ** at one.
+ */
typedef struct
- {
- boolean reserved : 1; /* reserved for future use */
- int file_index : 11; /* index into .blocks source file list */
- int line_number : 20; /* source line number */
- }
- dst_src_loc_t;
+ {
+ boolean reserved:1; /* reserved for future use */
+ int file_index:11; /* index into .blocks source file list */
+ int line_number:20; /* source line number */
+ }
+dst_src_loc_t;
#define dst_file_index_nil 0
#define dst_file_index_origin 1
/*
-** Standard (primitive) type codes.
-*/
+ ** Standard (primitive) type codes.
+ */
typedef enum
- {
+ {
dst_non_std_type,
- dst_int8_type, /* 8 bit integer */
- dst_int16_type, /* 16 bit integer */
- dst_int32_type, /* 32 bit integer */
- dst_uint8_type, /* 8 bit unsigned integer */
- dst_uint16_type, /* 16 bit unsigned integer */
- dst_uint32_type, /* 32 bit unsigned integer */
- dst_real32_type, /* single precision ieee floatining point */
- dst_real64_type, /* double precision ieee floatining point */
- dst_complex_type, /* single precision complex */
- dst_dcomplex_type, /* double precision complex */
- dst_bool8_type, /* boolean =logical*1 */
- dst_bool16_type, /* boolean =logical*2 */
- dst_bool32_type, /* boolean =logical*4 */
- dst_char_type, /* 8 bit ascii character */
- dst_string_type, /* string of 8 bit ascii characters */
- dst_ptr_type, /* univ_pointer */
- dst_set_type, /* generic 256 bit set */
- dst_proc_type, /* generic procedure (signature not specified) */
- dst_func_type, /* generic function (signature not specified) */
- dst_void_type, /* c void type */
- dst_uchar_type, /* c unsigned char */
+ dst_int8_type, /* 8 bit integer */
+ dst_int16_type, /* 16 bit integer */
+ dst_int32_type, /* 32 bit integer */
+ dst_uint8_type, /* 8 bit unsigned integer */
+ dst_uint16_type, /* 16 bit unsigned integer */
+ dst_uint32_type, /* 32 bit unsigned integer */
+ dst_real32_type, /* single precision ieee floatining point */
+ dst_real64_type, /* double precision ieee floatining point */
+ dst_complex_type, /* single precision complex */
+ dst_dcomplex_type, /* double precision complex */
+ dst_bool8_type, /* boolean =logical*1 */
+ dst_bool16_type, /* boolean =logical*2 */
+ dst_bool32_type, /* boolean =logical*4 */
+ dst_char_type, /* 8 bit ascii character */
+ dst_string_type, /* string of 8 bit ascii characters */
+ dst_ptr_type, /* univ_pointer */
+ dst_set_type, /* generic 256 bit set */
+ dst_proc_type, /* generic procedure (signature not specified) */
+ dst_func_type, /* generic function (signature not specified) */
+ dst_void_type, /* c void type */
+ dst_uchar_type, /* c unsigned char */
dst_std_type_END_OF_ENUM
- }
- dst_std_type_t;
+ }
+dst_std_type_t;
/*
-** General data type descriptor
-**
-** If the user_defined_type bit is clear, then the type is a standard type, and
-** the remaining bits contain the dst_std_type_t of the type. If the bit is
-** set, then the type is defined in a separate dst record, which is referenced
-** by the remaining bits as a dst_rel_offset_t.
-*/
+ ** General data type descriptor
+ **
+ ** If the user_defined_type bit is clear, then the type is a standard type, and
+ ** the remaining bits contain the dst_std_type_t of the type. If the bit is
+ ** set, then the type is defined in a separate dst record, which is referenced
+ ** by the remaining bits as a dst_rel_offset_t.
+ */
typedef union
- {
+ {
struct
- {
- boolean user_defined_type : 1; /* tag field */
- int must_be_zero : 23; /* 23 bits of pad */
- dst_std_type_t dtc : 8; /* 8 bit primitive data */
- }
- std_type;
-
+ {
+ boolean user_defined_type:1; /* tag field */
+ int must_be_zero:23; /* 23 bits of pad */
+ dst_std_type_t dtc:8; /* 8 bit primitive data */
+ }
+ std_type;
+
struct
- {
- boolean user_defined_type : 1; /* tag field */
- int doffset : 31; /* offset to type record */
- }
- user_type;
- }
- dst_type_t ALIGNED1;
+ {
+ boolean user_defined_type:1; /* tag field */
+ int doffset:31; /* offset to type record */
+ }
+ user_type;
+ }
+dst_type_t ALIGNED1;
/* The user_type.doffset field is a 31-bit signed value. Some versions of C
do not support signed bit fields. The following macro will extract that
field as a signed value:
-*/
+ */
#define dst_user_type_offset(type_rec) \
( ((int) ((type_rec).user_type.doffset << 1)) >> 1 )
*/
typedef enum
- {
- dst_pc_code_locs, /* ranges in loc strings are pc ranges */
+ {
+ dst_pc_code_locs, /* ranges in loc strings are pc ranges */
dst_comp_unit_END_OF_ENUM
- }
- dst_comp_unit_flag_t;
+ }
+dst_comp_unit_flag_t;
typedef enum
- {
- dst_lang_unk, /* unknown language */
- dst_lang_pas, /* Pascal */
- dst_lang_ftn, /* FORTRAN */
- dst_lang_c, /* C */
- dst_lang_mod2, /* Modula-2 */
- dst_lang_asm_m68k, /* 68K assembly language */
- dst_lang_asm_a88k, /* AT assembly language */
- dst_lang_ada, /* Ada */
- dst_lang_cxx, /* C++ */
+ {
+ dst_lang_unk, /* unknown language */
+ dst_lang_pas, /* Pascal */
+ dst_lang_ftn, /* FORTRAN */
+ dst_lang_c, /* C */
+ dst_lang_mod2, /* Modula-2 */
+ dst_lang_asm_m68k, /* 68K assembly language */
+ dst_lang_asm_a88k, /* AT assembly language */
+ dst_lang_ada, /* Ada */
+ dst_lang_cxx, /* C++ */
dst_lang_END_OF_ENUM
- }
- dst_lang_type_t;
+ }
+dst_lang_type_t;
typedef struct
- {
+ {
struct
- {
- unsigned char major_part; /* = dst_version_major */
- unsigned char minor_part; /* = dst_version_minor */
- }
- version; /* version of dst */
- unsigned short flags; /* mask of dst_comp_unit_flag_t */
- unsigned short lang_type; /* source language */
- unsigned short number_of_blocks; /* number of blocks records */
- dst_rel_offset_t root_block_offset; /* offset to root block (module?) */
- dst_rel_offset_t section_table /* offset to section table record */;
- dst_rel_offset_t file_table; /* offset to file table record */
- unsigned long data_size; /* total size of .blocks data */
- }
- dst_rec_comp_unit_t ALIGNED1;
+ {
+ unsigned char major_part; /* = dst_version_major */
+ unsigned char minor_part; /* = dst_version_minor */
+ }
+ version; /* version of dst */
+ unsigned short flags; /* mask of dst_comp_unit_flag_t */
+ unsigned short lang_type; /* source language */
+ unsigned short number_of_blocks; /* number of blocks records */
+ dst_rel_offset_t root_block_offset; /* offset to root block (module?) */
+ dst_rel_offset_t section_table /* offset to section table record */ ;
+ dst_rel_offset_t file_table; /* offset to file table record */
+ unsigned long data_size; /* total size of .blocks data */
+ }
+dst_rec_comp_unit_t ALIGNED1;
/*--------------------
*/
typedef struct
- {
- unsigned short number_of_sections; /* size of array: */
- unsigned long section_base[dst_dummy_array_size] ALIGNED1;
- }
- dst_rec_section_tab_t ALIGNED1;
+ {
+ unsigned short number_of_sections; /* size of array: */
+ unsigned long section_base[dst_dummy_array_size] ALIGNED1;
+ }
+dst_rec_section_tab_t ALIGNED1;
/*-----------------
*/
typedef struct
- {
- long dtm; /* time last modified (time_$clock_t) */
- dst_rel_offset_t noffset; /* offset to name string for source file */
- }
- dst_file_desc_t;
+ {
+ long dtm; /* time last modified (time_$clock_t) */
+ dst_rel_offset_t noffset; /* offset to name string for source file */
+ }
+dst_file_desc_t;
typedef struct
- {
- unsigned short number_of_files; /* size of array: */
- dst_file_desc_t files[dst_dummy_array_size] ALIGNED1;
- }
- dst_rec_file_tab_t ALIGNED1;
+ {
+ unsigned short number_of_files; /* size of array: */
+ dst_file_desc_t files[dst_dummy_array_size] ALIGNED1;
+ }
+dst_rec_file_tab_t ALIGNED1;
/*-----------------
*/
typedef struct
- {
- unsigned short number_of_names; /* size of array: */
- dst_rel_offset_t names[dst_dummy_array_size] ALIGNED1;
- }
- dst_rec_name_tab_t ALIGNED1;
+ {
+ unsigned short number_of_names; /* size of array: */
+ dst_rel_offset_t names[dst_dummy_array_size] ALIGNED1;
+ }
+dst_rec_name_tab_t ALIGNED1;
/*--------------
of these. For example, the fact that a block is executable (e.g., program)
or not (e.g., module) is expressed in block attributes (see below), not
guessed at from the block type.
-*/
+ */
typedef enum
- {
- dst_block_module, /* some pascal = modula = ada types */
- dst_block_program,
- dst_block_procedure,
- dst_block_function, /* C function */
- dst_block_subroutine, /* some fortran block types */
- dst_block_block_data,
- dst_block_stmt_function,
- dst_block_package, /* a few particular to Ada */
- dst_block_package_body,
- dst_block_subunit,
- dst_block_task,
- dst_block_file, /* a C outer scope? */
- dst_block_class, /* C++ or Simula */
+ {
+ dst_block_module, /* some pascal = modula = ada types */
+ dst_block_program,
+ dst_block_procedure,
+ dst_block_function, /* C function */
+ dst_block_subroutine, /* some fortran block types */
+ dst_block_block_data,
+ dst_block_stmt_function,
+ dst_block_package, /* a few particular to Ada */
+ dst_block_package_body,
+ dst_block_subunit,
+ dst_block_task,
+ dst_block_file, /* a C outer scope? */
+ dst_block_class, /* C++ or Simula */
dst_block_END_OF_ENUM
- }
- dst_block_type_t;
+ }
+dst_block_type_t;
/* Block attributes. This is the information used by the debugger to represent
the semantics of blocks.
-*/
+ */
typedef enum
- {
- dst_block_main_entry, /* the block's entry point is a main entry into
- the compilation unit */
- dst_block_executable, /* the block has an entry point */
+ {
+ dst_block_main_entry, /* the block's entry point is a main entry into
+ the compilation unit */
+ dst_block_executable, /* the block has an entry point */
dst_block_attr_END_OF_ENUM
- }
- dst_block_attr_t;
+ }
+dst_block_attr_t;
/* Code range. Each block has associated with it one or more code ranges. An
individual code range is identified by a range of source (possibly nil) and
a range of executable code. For example, a block which has its executable
code spread over multiple sections will have one code range per section.
-*/
+ */
typedef struct
- {
- unsigned long code_size; /* size of executable code (in bytes ) */
- dst_sect_ref_t code_start; /* starting address of executable code */
- dst_sect_ref_t lines_start; /* start of line number tables */
- }
- dst_code_range_t;
+ {
+ unsigned long code_size; /* size of executable code (in bytes ) */
+ dst_sect_ref_t code_start; /* starting address of executable code */
+ dst_sect_ref_t lines_start; /* start of line number tables */
+ }
+dst_code_range_t;
typedef struct
- {
- dst_block_type_t block_type : 8;
- unsigned short flags : 8; /* mask of dst_block_attr_t flags */
- dst_rel_offset_t sibling_block_off; /* offset to next sibling block */
- dst_rel_offset_t child_block_off; /* offset to first contained block */
- dst_rel_offset_t noffset; /* offset to block name string */
- dst_sect_ref_t symbols_start; /* start of debug symbols */
- unsigned short n_of_code_ranges; /* size of array... */
- dst_code_range_t code_ranges[dst_dummy_array_size] ALIGNED1;
- }
- dst_rec_block_t ALIGNED1;
+ {
+ dst_block_type_t block_type:8;
+ unsigned short flags:8; /* mask of dst_block_attr_t flags */
+ dst_rel_offset_t sibling_block_off; /* offset to next sibling block */
+ dst_rel_offset_t child_block_off; /* offset to first contained block */
+ dst_rel_offset_t noffset; /* offset to block name string */
+ dst_sect_ref_t symbols_start; /* start of debug symbols */
+ unsigned short n_of_code_ranges; /* size of array... */
+ dst_code_range_t code_ranges[dst_dummy_array_size] ALIGNED1;
+ }
+dst_rec_block_t ALIGNED1;
/*--------------------------
*/
typedef struct
- {
- unsigned char tag; /* currently can only be zero */
- unsigned char number_of_refs; /* size of array: */
- dst_sect_ref_t refs[dst_dummy_array_size] ALIGNED1;
- }
- dst_rec_sect_info_tab_t ALIGNED1;
+ {
+ unsigned char tag; /* currently can only be zero */
+ unsigned char number_of_refs; /* size of array: */
+ dst_sect_ref_t refs[dst_dummy_array_size] ALIGNED1;
+ }
+dst_rec_sect_info_tab_t ALIGNED1;
/*=================================================*/
/*========== RECORDS IN .symbols SECTION ==========*/
*/
typedef struct
- {
- float r; /* real part */
- float i; /* imaginary part */
- }
- dst_complex_t;
+ {
+ float r; /* real part */
+ float i; /* imaginary part */
+ }
+dst_complex_t;
typedef struct
- {
- double dr; /* real part */
- double di; /* imaginary part */
- }
- dst_double_complex_t;
+ {
+ double dr; /* real part */
+ double di; /* imaginary part */
+ }
+dst_double_complex_t;
/* The following record provides a way of describing constant values with
non-standard type and no limit on size.
-*/
+ */
typedef union
- {
- char char_data[dst_dummy_array_size];
- short int_data [dst_dummy_array_size];
- long long_data[dst_dummy_array_size];
- }
- dst_big_kon_t;
+ {
+ char char_data[dst_dummy_array_size];
+ short int_data[dst_dummy_array_size];
+ long long_data[dst_dummy_array_size];
+ }
+dst_big_kon_t;
/* Representation of the value of a general constant.
-*/
+ */
typedef struct
- {
- unsigned short length; /* size of constant value (bytes) */
+ {
+ unsigned short length; /* size of constant value (bytes) */
union
- {
- unsigned short kon_int8;
- short kon_int16;
- long kon_int32 ALIGNED1;
- float kon_real ALIGNED1;
- double kon_dbl ALIGNED1;
- dst_complex_t kon_cplx ALIGNED1;
- dst_double_complex_t kon_dcplx ALIGNED1;
- char kon_char;
- dst_big_kon_t kon ALIGNED1;
- }
- val; /* value data of constant */
- }
- dst_const_t ALIGNED1;
+ {
+ unsigned short kon_int8;
+ short kon_int16;
+ long kon_int32 ALIGNED1;
+ float kon_real ALIGNED1;
+ double kon_dbl ALIGNED1;
+ dst_complex_t kon_cplx ALIGNED1;
+ dst_double_complex_t kon_dcplx ALIGNED1;
+ char kon_char;
+ dst_big_kon_t kon ALIGNED1;
+ }
+ val; /* value data of constant */
+ }
+dst_const_t ALIGNED1;
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of const definition */
- dst_type_t type_desc; /* type of this (manifest) constant */
- dst_const_t value;
- }
- dst_rec_const_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of const definition */
+ dst_type_t type_desc; /* type of this (manifest) constant */
+ dst_const_t value;
+ }
+dst_rec_const_t ALIGNED1;
/*----------------
VARIABLE record
/* Variable attributes. These define certain variable semantics to the
debugger.
-*/
+ */
typedef enum
- {
- dst_var_attr_read_only, /* is read-only (a program literal) */
- dst_var_attr_volatile, /* same as compiler's VOLATILE attribute */
- dst_var_attr_global, /* is a global definition or reference */
- dst_var_attr_compiler_gen, /* is compiler-generated */
- dst_var_attr_static, /* has static location */
+ {
+ dst_var_attr_read_only, /* is read-only (a program literal) */
+ dst_var_attr_volatile, /* same as compiler's VOLATILE attribute */
+ dst_var_attr_global, /* is a global definition or reference */
+ dst_var_attr_compiler_gen, /* is compiler-generated */
+ dst_var_attr_static, /* has static location */
dst_var_attr_END_OF_ENUM
- }
- dst_var_attr_t;
+ }
+dst_var_attr_t;
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_rel_offset_t loffset; /* offset to loc string */
- dst_src_loc_t src_loc; /* file/line of variable definition */
- dst_type_t type_desc; /* type descriptor */
- unsigned short attributes; /* mask of dst_var_attr_t flags */
- }
- dst_rec_variable_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_rel_offset_t loffset; /* offset to loc string */
+ dst_src_loc_t src_loc; /* file/line of variable definition */
+ dst_type_t type_desc; /* type descriptor */
+ unsigned short attributes; /* mask of dst_var_attr_t flags */
+ }
+dst_rec_variable_t ALIGNED1;
/*----------------
*/
typedef enum
- {
+ {
dst_var_loc_unknown, /* Actually defined as "unknown" */
dst_var_loc_abs, /* Absolute address */
dst_var_loc_sect_off, /* Absolute address as a section offset */
dst_var_loc_pc_rel, /* PC relative. Really. */
dst_var_loc_external, /* External */
dst_var_loc_END_OF_ENUM
- }
- dst_var_loc_t;
+ }
+dst_var_loc_t;
-/* Locations come in two versions. The sort, and the long. The difference
+/* Locations come in two versions. The short, and the long. The difference
* between the short and the long is the addition of a statement number
* field to the start andend of the range of the long, and and unkown
* purpose field in the middle. Also, loc_type and loc_index aren't
* bitfields in the long version.
*/
-typedef struct
- {
- unsigned short loc_type : 4;
- unsigned short loc_index : 12;
- long location;
- short start_line; /* start_line and end_line? */
- short end_line; /* I'm guessing here. */
- } dst_var_loc_short_t;
+typedef struct
+ {
+ unsigned short loc_type:4;
+ unsigned short loc_index:12;
+ long location;
+ short start_line; /* start_line and end_line? */
+ short end_line; /* I'm guessing here. */
+ }
+dst_var_loc_short_t;
typedef struct
- {
- unsigned short loc_type;
- unsigned short loc_index;
- long location;
- short unknown; /* Always 0003 or 3b3c. Why? */
- short start_statement;
- short start_line;
- short end_statement;
- short end_line;
- } dst_var_loc_long_t;
+ {
+ unsigned short loc_type;
+ unsigned short loc_index;
+ long location;
+ short unknown; /* Always 0003 or 3b3c. Why? */
+ short start_statement;
+ short start_line;
+ short end_statement;
+ short end_line;
+ }
+dst_var_loc_long_t;
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of description */
- dst_type_t type_desc; /* Type description */
- unsigned short attributes; /* mask of dst_var_attr_t flags */
- unsigned short no_of_locs : 15;/* Number of locations */
- unsigned short short_locs : 1; /* True if short locations. */
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of description */
+ dst_type_t type_desc; /* Type description */
+ unsigned short attributes; /* mask of dst_var_attr_t flags */
+ unsigned short no_of_locs:15; /* Number of locations */
+ unsigned short short_locs:1; /* True if short locations. */
union
- {
+ {
dst_var_loc_short_t shorts[dst_dummy_array_size];
dst_var_loc_long_t longs[dst_dummy_array_size];
- } locs;
- } dst_rec_var_t;
+ }
+ locs;
+ }
+dst_rec_var_t;
/*----------------
old LABEL record
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of description */
- char location[12]; /* location string */
- }
- dst_rec_old_label_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of description */
+ char location[12]; /* location string */
+ }
+dst_rec_old_label_t ALIGNED1;
/*----------------
POINTER record
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to the name string for this type */
- dst_src_loc_t src_loc; /* file/line of definition */
- dst_type_t type_desc; /* base type of this pointer */
- }
- dst_rec_pointer_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to the name string for this type */
+ dst_src_loc_t src_loc; /* file/line of definition */
+ dst_type_t type_desc; /* base type of this pointer */
+ }
+dst_rec_pointer_t ALIGNED1;
/*-------------
*/
typedef enum
- {
- dst_use_span_field,
+ {
+ dst_use_span_field,
dst_compute_from_prev,
- dst_compute_from_next,
+ dst_compute_from_next,
dst_span_comp_END_OF_ENUM
- }
- dst_span_comp_t;
+ }
+dst_span_comp_t;
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of definition */
- dst_type_t elem_type_desc; /* array element type */
- dst_type_t indx_type_desc; /* array index type */
- long lo_bound; /* lower bound of index */
- long hi_bound; /* upper bound of index */
- unsigned long span; /* see above */
- unsigned long size; /* total array size (bytes) */
- boolean multi_dim : 1;
- boolean is_packed : 1; /* true if packed array */
- boolean is_signed : 1; /* true if packed elements are signed */
- dst_span_comp_t span_comp : 2; /* how to compute span */
- boolean column_major : 1;
- unsigned short reserved : 2; /* must be zero */
- unsigned short elem_size : 8; /* element size if packed (bits) */
- }
- dst_rec_array_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of definition */
+ dst_type_t elem_type_desc; /* array element type */
+ dst_type_t indx_type_desc; /* array index type */
+ long lo_bound; /* lower bound of index */
+ long hi_bound; /* upper bound of index */
+ unsigned long span; /* see above */
+ unsigned long size; /* total array size (bytes) */
+ boolean multi_dim:1;
+ boolean is_packed:1; /* true if packed array */
+ boolean is_signed:1; /* true if packed elements are signed */
+ dst_span_comp_t span_comp:2; /* how to compute span */
+ boolean column_major:1;
+ unsigned short reserved:2; /* must be zero */
+ unsigned short elem_size:8; /* element size if packed (bits) */
+ }
+dst_rec_array_t ALIGNED1;
/*-----------------
/* Variable subrange bounds are described by auxiliary records; if aux_var_bound
records are present, the lo_bound and hi_bound fields of this record are
ignored by the debugger.
-*/
+ */
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of subrange definition */
- dst_type_t type_desc; /* parent type */
- long lo_bound; /* lower bound of subrange */
- long hi_bound; /* upper bound of subrange */
- unsigned short size; /* storage size (bytes) */
- }
- dst_rec_subrange_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of subrange definition */
+ dst_type_t type_desc; /* parent type */
+ long lo_bound; /* lower bound of subrange */
+ long hi_bound; /* upper bound of subrange */
+ unsigned short size; /* storage size (bytes) */
+ }
+dst_rec_subrange_t ALIGNED1;
/*---------------
/* Variable subrange bounds are described by auxiliary records; if aux_var_bound
records are present, the lo_bound and hi_bound fields of this record are
ignored by the debugger.
-*/
+ */
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of string definition */
- dst_type_t elem_type_desc; /* element type */
- dst_type_t indx_type_desc; /* index type */
- long lo_bound; /* lower bound */
- long hi_bound; /* upper bound */
- unsigned long size; /* total string size (bytes) if fixed */
- }
- dst_rec_string_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of string definition */
+ dst_type_t elem_type_desc; /* element type */
+ dst_type_t indx_type_desc; /* index type */
+ long lo_bound; /* lower bound */
+ long hi_bound; /* upper bound */
+ unsigned long size; /* total string size (bytes) if fixed */
+ }
+dst_rec_string_t ALIGNED1;
/*---------------
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of definition */
- dst_type_t type_desc; /* element type */
- unsigned short nbits; /* number of bits in set */
- unsigned short size; /* storage size (bytes) */
- }
- dst_rec_set_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of definition */
+ dst_type_t type_desc; /* element type */
+ unsigned short nbits; /* number of bits in set */
+ unsigned short size; /* storage size (bytes) */
+ }
+dst_rec_set_t ALIGNED1;
/*-----------------------------
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of definition */
- unsigned short nelems; /* number of elements in enumeration */
- unsigned short size; /* storage size (bytes) */
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of definition */
+ unsigned short nelems; /* number of elements in enumeration */
+ unsigned short size; /* storage size (bytes) */
/* offsets to name strings of elements 0, 1, 2, ... */
- dst_rel_offset_t elem_noffsets[dst_dummy_array_size];
- }
- dst_rec_implicit_enum_t ALIGNED1;
+ dst_rel_offset_t elem_noffsets[dst_dummy_array_size];
+ }
+dst_rec_implicit_enum_t ALIGNED1;
/*-----------------------------
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to element name string */
- long value; /* element value */
- }
- dst_enum_elem_t;
+ {
+ dst_rel_offset_t noffset; /* offset to element name string */
+ long value; /* element value */
+ }
+dst_enum_elem_t;
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of definition */
- unsigned short nelems; /* number of elements in enumeration */
- unsigned short size; /* storage size (bytes) */
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of definition */
+ unsigned short nelems; /* number of elements in enumeration */
+ unsigned short size; /* storage size (bytes) */
/* name/value pairs, one describing each enumeration value: */
- dst_enum_elem_t elems[dst_dummy_array_size];
- }
- dst_rec_explicit_enum_t ALIGNED1;
+ dst_enum_elem_t elems[dst_dummy_array_size];
+ }
+dst_rec_explicit_enum_t ALIGNED1;
/*-----------------------
Record field descriptor, short form. This form handles only fields which
are an even number of bytes long, located some number of bytes from the
start of the record.
-*/
+ */
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to field name string */
- dst_type_t type_desc; /* field type */
- unsigned short foffset; /* field offset from start of record (bytes) */
- }
- dst_short_field_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to field name string */
+ dst_type_t type_desc; /* field type */
+ unsigned short foffset; /* field offset from start of record (bytes) */
+ }
+dst_short_field_t ALIGNED1;
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_type_t type_desc; /* field type */
- unsigned short foffset; /* byte offset */
- unsigned short is_packed : 1; /* True if field is packed */
- unsigned short bit_offset : 6; /* Bit offset */
- unsigned short size : 6; /* Size in bits */
- unsigned short sign : 1; /* True if signed */
- unsigned short pad : 2; /* Padding. Must be 0 */
- }
- dst_old_field_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_type_t type_desc; /* field type */
+ unsigned short foffset; /* byte offset */
+ unsigned short is_packed:1; /* True if field is packed */
+ unsigned short bit_offset:6; /* Bit offset */
+ unsigned short size:6; /* Size in bits */
+ unsigned short sign:1; /* True if signed */
+ unsigned short pad:2; /* Padding. Must be 0 */
+ }
+dst_old_field_t ALIGNED1;
/* Tag enumeration for long record field descriptor:
-*/
+ */
typedef enum
- {
+ {
dst_field_byte,
dst_field_bit,
dst_field_loc,
dst_field_END_OF_ENUM
- }
- dst_field_format_t;
+ }
+dst_field_format_t;
/*
Record field descriptor, long form. The format of the field information
located some number of bits from the start of the record. The field_loc
variant allows the location of the field to be described by a general loc
string.
-*/
+ */
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name of field */
- dst_type_t type_desc; /* type of field */
+ {
+ dst_rel_offset_t noffset; /* offset to name of field */
+ dst_type_t type_desc; /* type of field */
union
- {
- struct {
- dst_field_format_t format_tag: 2; /* dst_field_byte */
- unsigned long offset: 30; /* offset of field in bytes */
- }
- field_byte ALIGNED1;
- struct {
- dst_field_format_t format_tag: 2; /* dst_field_bit */
- unsigned long nbits: 6; /* bit size of field */
- unsigned long is_signed: 1; /* signed/unsigned attribute */
- unsigned long bit_offset: 3; /* bit offset from byte boundary */
- int pad: 4; /* must be zero */
- unsigned short byte_offset; /* offset of byte boundary */
- }
- field_bit ALIGNED1;
- struct {
- dst_field_format_t format_tag: 2; /* dst_field_loc */
- int loffset: 30; /* dst_rel_offset_t to loc string */
- }
- field_loc ALIGNED1;
- }
- f ALIGNED1;
- }
- dst_field_t;
+ {
+ struct
+ {
+ dst_field_format_t format_tag:2; /* dst_field_byte */
+ unsigned long offset:30; /* offset of field in bytes */
+ }
+ field_byte ALIGNED1;
+ struct
+ {
+ dst_field_format_t format_tag:2; /* dst_field_bit */
+ unsigned long nbits:6; /* bit size of field */
+ unsigned long is_signed:1; /* signed/unsigned attribute */
+ unsigned long bit_offset:3; /* bit offset from byte boundary */
+ int pad:4; /* must be zero */
+ unsigned short byte_offset; /* offset of byte boundary */
+ }
+ field_bit ALIGNED1;
+ struct
+ {
+ dst_field_format_t format_tag:2; /* dst_field_loc */
+ int loffset:30; /* dst_rel_offset_t to loc string */
+ }
+ field_loc ALIGNED1;
+ }
+ f ALIGNED1;
+ }
+dst_field_t;
/* The field_loc.loffset field is a 30-bit signed value. Some versions of C do
not support signed bit fields. The following macro will extract that field
as a signed value:
-*/
+ */
#define dst_field_loffset(field_rec) \
( ((int) ((field_rec).f.field_loc.loffset << 2)) >> 2 )
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to record name string */
- dst_src_loc_t src_loc; /* file/line where this record is defined */
- unsigned short size; /* storage size (bytes) */
- unsigned short nfields; /* number of fields in this record */
+ {
+ dst_rel_offset_t noffset; /* offset to record name string */
+ dst_src_loc_t src_loc; /* file/line where this record is defined */
+ unsigned short size; /* storage size (bytes) */
+ unsigned short nfields; /* number of fields in this record */
union
- {
- dst_field_t fields[dst_dummy_array_size];
- dst_short_field_t sfields[dst_dummy_array_size];
- dst_old_field_t ofields[dst_dummy_array_size];
- }
- f; /* array of fields */
- }
- dst_rec_record_t ALIGNED1;
+ {
+ dst_field_t fields[dst_dummy_array_size];
+ dst_short_field_t sfields[dst_dummy_array_size];
+ dst_old_field_t ofields[dst_dummy_array_size];
+ }
+ f; /* array of fields */
+ }
+dst_rec_record_t ALIGNED1;
/*-------------
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line where type was defined */
- dst_type_t type_desc; /* file element type */
- }
- dst_rec_file_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line where type was defined */
+ dst_type_t type_desc; /* file element type */
+ }
+dst_rec_file_t ALIGNED1;
/*---------------
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to the name string */
- dst_src_loc_t src_loc; /* file/line of definition */
- dst_type_t area_type_desc; /* area type */
- dst_type_t base_type_desc; /* base type */
- long lo_bound; /* low bound of the offset range */
- long hi_bound; /* high bound of the offset range */
- long bias; /* bias */
- unsigned short scale; /* scale factor */
- unsigned short size; /* storage size (bytes) */
- }
- dst_rec_offset_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to the name string */
+ dst_src_loc_t src_loc; /* file/line of definition */
+ dst_type_t area_type_desc; /* area type */
+ dst_type_t base_type_desc; /* base type */
+ long lo_bound; /* low bound of the offset range */
+ long hi_bound; /* high bound of the offset range */
+ long bias; /* bias */
+ unsigned short scale; /* scale factor */
+ unsigned short size; /* storage size (bytes) */
+ }
+dst_rec_offset_t ALIGNED1;
/*--------------
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of definition */
- dst_type_t type_desc; /* parent type */
- }
- dst_rec_alias_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of definition */
+ dst_type_t type_desc; /* parent type */
+ }
+dst_rec_alias_t ALIGNED1;
/*------------------
/* Enumeration of argument semantics. Note that most are mutually
exclusive.
-*/
+ */
typedef enum
- {
- dst_arg_attr_val, /* passed by value */
- dst_arg_attr_ref, /* passed by reference */
- dst_arg_attr_name, /* passed by name */
- dst_arg_attr_in, /* readable in the callee */
- dst_arg_attr_out, /* writable in the callee */
- dst_arg_attr_hidden, /* not visible in the caller */
+ {
+ dst_arg_attr_val, /* passed by value */
+ dst_arg_attr_ref, /* passed by reference */
+ dst_arg_attr_name, /* passed by name */
+ dst_arg_attr_in, /* readable in the callee */
+ dst_arg_attr_out, /* writable in the callee */
+ dst_arg_attr_hidden, /* not visible in the caller */
dst_arg_attr_END_OF_ENUM
- }
- dst_arg_attr_t;
+ }
+dst_arg_attr_t;
/* Argument descriptor. Actually points to a variable record for most of the
information.
-*/
+ */
typedef struct
- {
- dst_rel_offset_t var_offset; /* offset to variable record */
- unsigned short attributes; /* a mask of dst_arg_attr_t flags */
- }
- dst_arg_t ALIGNED1;
+ {
+ dst_rel_offset_t var_offset; /* offset to variable record */
+ unsigned short attributes; /* a mask of dst_arg_attr_t flags */
+ }
+dst_arg_t ALIGNED1;
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to name string */
- dst_src_loc_t src_loc; /* file/line of function definition */
- dst_rel_offset_t result; /* offset to function result variable record */
- unsigned short nargs; /* number of arguments */
- dst_arg_t args[dst_dummy_array_size];
- }
- dst_rec_signature_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to name string */
+ dst_src_loc_t src_loc; /* file/line of function definition */
+ dst_rel_offset_t result; /* offset to function result variable record */
+ unsigned short nargs; /* number of arguments */
+ dst_arg_t args[dst_dummy_array_size];
+ }
+dst_rec_signature_t ALIGNED1;
/*--------------
SCOPE record
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* Name offset */
- dst_src_loc_t start_line; /* Starting line */
- dst_src_loc_t end_line; /* Ending line */
- }
- dst_rec_scope_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* Name offset */
+ dst_src_loc_t start_line; /* Starting line */
+ dst_src_loc_t end_line; /* Ending line */
+ }
+dst_rec_scope_t ALIGNED1;
/*--------------
ENTRY record
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to entry name string */
- dst_rel_offset_t loffset; /* where to jump to call this entry */
- dst_src_loc_t src_loc; /* file/line of definition */
- dst_rel_offset_t sig_desc; /* offset to signature descriptor */
- unsigned int entry_number: 8;
- int pad: 8; /* must be zero */
- }
- dst_rec_entry_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to entry name string */
+ dst_rel_offset_t loffset; /* where to jump to call this entry */
+ dst_src_loc_t src_loc; /* file/line of definition */
+ dst_rel_offset_t sig_desc; /* offset to signature descriptor */
+ unsigned int entry_number:8;
+ int pad:8; /* must be zero */
+ }
+dst_rec_entry_t ALIGNED1;
/*-----------------------
Old format ENTRY record
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* Offset to entry name string */
- dst_src_loc_t src_loc; /* Location in source */
- dst_rel_offset_t sig_desc; /* Signature description */
- char unknown[36];
- }
- dst_rec_old_entry_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* Offset to entry name string */
+ dst_src_loc_t src_loc; /* Location in source */
+ dst_rel_offset_t sig_desc; /* Signature description */
+ char unknown[36];
+ }
+dst_rec_old_entry_t ALIGNED1;
/*--------------
LABEL record
*/
typedef struct
- {
- dst_rel_offset_t noffset; /* offset to label string */
- dst_rel_offset_t loffset; /* offset to loc string */
- dst_src_loc_t src_loc; /* file/line of definition */
- }
- dst_rec_label_t ALIGNED1;
+ {
+ dst_rel_offset_t noffset; /* offset to label string */
+ dst_rel_offset_t loffset; /* offset to loc string */
+ dst_src_loc_t src_loc; /* file/line of definition */
+ }
+dst_rec_label_t ALIGNED1;
/*-----------------------
*/
typedef struct
- {
- unsigned long size; /* size (bytes) */
- }
- dst_rec_aux_size_t ALIGNED1;
+ {
+ unsigned long size; /* size (bytes) */
+ }
+dst_rec_aux_size_t ALIGNED1;
/*-----------------------
*/
typedef struct
- {
- unsigned short alignment; /* # of low order zero bits */
- }
- dst_rec_aux_align_t ALIGNED1;
+ {
+ unsigned short alignment; /* # of low order zero bits */
+ }
+dst_rec_aux_align_t ALIGNED1;
/*-----------------------------
*/
typedef struct
- {
- unsigned short field_no; /* field number */
- unsigned long size; /* size (bits) */
- }
- dst_rec_aux_field_size_t ALIGNED1;
+ {
+ unsigned short field_no; /* field number */
+ unsigned long size; /* size (bits) */
+ }
+dst_rec_aux_field_size_t ALIGNED1;
*/
typedef struct
- {
- unsigned short field_no; /* field number */
- unsigned long foffset; /* offset */
- }
- dst_rec_aux_field_off_t ALIGNED1;
+ {
+ unsigned short field_no; /* field number */
+ unsigned long foffset; /* offset */
+ }
+dst_rec_aux_field_off_t ALIGNED1;
/*-----------------------------
*/
typedef struct
- {
- unsigned short field_no; /* field number */
- unsigned short alignment; /* number of low order zero bits */
- }
- dst_rec_aux_field_align_t ALIGNED1;
+ {
+ unsigned short field_no; /* field number */
+ unsigned short alignment; /* number of low order zero bits */
+ }
+dst_rec_aux_field_align_t ALIGNED1;
/*----------------------------
*/
typedef enum
- {
- dst_low_bound, /* the low bound is variable */
- dst_high_bound, /* the high bound is variable */
+ {
+ dst_low_bound, /* the low bound is variable */
+ dst_high_bound, /* the high bound is variable */
dst_var_bound_END_OF_ENUM
- }
- dst_var_bound_t;
+ }
+dst_var_bound_t;
typedef struct
- {
- unsigned short which; /* which bound */
- dst_rel_offset_t voffset ALIGNED1; /* variable that defines bound */
- }
- dst_rec_aux_var_bound_t ALIGNED1;
+ {
+ unsigned short which; /* which bound */
+ dst_rel_offset_t voffset ALIGNED1; /* variable that defines bound */
+ }
+dst_rec_aux_var_bound_t ALIGNED1;
/*----------------------------------
*/
typedef struct
- {
- dst_type_t parent_type; /* reference to inherited type */
+ {
+ dst_type_t parent_type; /* reference to inherited type */
unsigned short orig_field_no;
- boolean orig_is_pointer: 1;
- int unused: 15; /* must be zero */
- }
- dst_rec_aux_type_deriv_t ALIGNED1;
+ boolean orig_is_pointer:1;
+ int unused:15; /* must be zero */
+ }
+dst_rec_aux_type_deriv_t ALIGNED1;
/*------------------------------------
*/
typedef struct
- {
+ {
dst_rel_offset_t loffset;
- }
- dst_rec_aux_lifetime_t ALIGNED1;
+ }
+dst_rec_aux_lifetime_t ALIGNED1;
/*-------------------------------
*/
typedef struct
- {
+ {
dst_rel_offset_t voffset;
- }
- dst_rec_aux_ptr_base_t ALIGNED1;
+ }
+dst_rec_aux_ptr_base_t ALIGNED1;
/*---------------------------------
*/
typedef struct
- {
- unsigned short reg; /* identifies register to set (isp enum) */
- dst_rel_offset_t loffset; /* references a location string */
- }
- dst_rec_aux_reg_val_t ALIGNED1;
+ {
+ unsigned short reg; /* identifies register to set (isp enum) */
+ dst_rel_offset_t loffset; /* references a location string */
+ }
+dst_rec_aux_reg_val_t ALIGNED1;
/*==========================================================*/
*/
typedef struct
- {
- unsigned long length;
- char text[dst_dummy_array_size];
- }
- dst_rec_string_tab_t ALIGNED1;
+ {
+ unsigned long length;
+ char text[dst_dummy_array_size];
+ }
+dst_rec_string_tab_t ALIGNED1;
/*-----------------------
*/
typedef struct
- {
- dst_rel_offset_t lang_qual_name;
- }
- dst_rec_aux_qual_t ALIGNED1;
+ {
+ dst_rel_offset_t lang_qual_name;
+ }
+dst_rec_aux_qual_t ALIGNED1;
/*----------------
*/
typedef struct
- {
- dst_rel_offset_t rec_off;
- }
- dst_rec_forward_t ALIGNED1;
+ {
+ dst_rel_offset_t rec_off;
+ }
+dst_rec_forward_t ALIGNED1;
/*-------------------------------
*/
typedef struct
- {
- dst_src_loc_t first_line; /* first source line */
- dst_src_loc_t last_line; /* last source line */
- }
- dst_rec_aux_src_range_t ALIGNED1;
+ {
+ dst_src_loc_t first_line; /* first source line */
+ dst_src_loc_t last_line; /* last source line */
+ }
+dst_rec_aux_src_range_t ALIGNED1;
/*------------------
*/
typedef struct
- {
- unsigned short rec_size; /* record size (bytes) */
- unsigned short ext_type; /* defined by whoever generates it */
- unsigned short ext_data; /* place-holder for arbitrary amount of data */
- }
- dst_rec_extension_t ALIGNED1;
+ {
+ unsigned short rec_size; /* record size (bytes) */
+ unsigned short ext_type; /* defined by whoever generates it */
+ unsigned short ext_data; /* place-holder for arbitrary amount of data */
+ }
+dst_rec_extension_t ALIGNED1;
/*
-** DEBUG SYMBOL record -- The wrapper for all .blocks and .symbols records.
-**
-** This record ties together all previous .blocks and .symbols records
-** together in a union with a common header. The rec_type field of the
-** header identifies the record type. The rec_flags field currently only
-** defines auxiliary record lists.
-**
-** If a record carries with it a non-null auxiliary record list, its
-** dst_flag_has_aux_recs flag is set, and each of the records that follow
-** it are treated as its auxiliary records, until the end of the compilation
-** unit or scope is reached, or until an auxiliary record with its
-** dst_flag_last_aux_rec flag set is reached.
-*/
+ ** DEBUG SYMBOL record -- The wrapper for all .blocks and .symbols records.
+ **
+ ** This record ties together all previous .blocks and .symbols records
+ ** together in a union with a common header. The rec_type field of the
+ ** header identifies the record type. The rec_flags field currently only
+ ** defines auxiliary record lists.
+ **
+ ** If a record carries with it a non-null auxiliary record list, its
+ ** dst_flag_has_aux_recs flag is set, and each of the records that follow
+ ** it are treated as its auxiliary records, until the end of the compilation
+ ** unit or scope is reached, or until an auxiliary record with its
+ ** dst_flag_last_aux_rec flag set is reached.
+ */
typedef enum
- {
+ {
dst_flag_has_aux_recs,
dst_flag_last_aux_rec,
dst_rec_flag_END_OF_ENUM
- }
- dst_rec_flags_t;
+ }
+dst_rec_flags_t;
typedef struct
- {
- dst_rec_type_t rec_type : 8; /* record type */
- int rec_flags: 8; /* mask of dst_rec_flags_t */
- union /* switched on rec_type field above */
- {
- /* dst_typ_pad requires no additional fields */
- dst_rec_comp_unit_t comp_unit_;
- dst_rec_section_tab_t section_tab_;
- dst_rec_file_tab_t file_tab_;
- dst_rec_block_t block_;
- dst_rec_var_t var_;
- dst_rec_pointer_t pointer_;
- dst_rec_array_t array_;
- dst_rec_subrange_t subrange_;
- dst_rec_set_t set_;
- dst_rec_implicit_enum_t implicit_enum_;
- dst_rec_explicit_enum_t explicit_enum_;
- /* dst_typ_short_{rec,union} are represented by 'rec' (below) */
- dst_rec_file_t file_;
- dst_rec_offset_t offset_;
- dst_rec_alias_t alias_;
- dst_rec_signature_t signature_;
- dst_rec_old_label_t old_label_;
- dst_rec_scope_t scope_;
- /* dst_typ_end_scope requires no additional fields */
- dst_rec_string_tab_t string_tab_;
- /* dst_typ_global_name_tab is represented by 'string_tab' (above) */
- dst_rec_forward_t forward_;
- dst_rec_aux_size_t aux_size_;
- dst_rec_aux_align_t aux_align_;
- dst_rec_aux_field_size_t aux_field_size_;
- dst_rec_aux_field_off_t aux_field_off_;
- dst_rec_aux_field_align_t aux_field_align_;
- dst_rec_aux_qual_t aux_qual_;
- dst_rec_aux_var_bound_t aux_var_bound_;
- dst_rec_extension_t extension_;
- dst_rec_string_t string_;
- dst_rec_const_t const_;
- /* dst_typ_reference is represented by 'pointer' (above) */
- dst_rec_record_t record_;
- /* dst_typ_union is represented by 'record' (above) */
- dst_rec_aux_type_deriv_t aux_type_deriv_;
- /* dst_typ_locpool is represented by 'string_tab' (above) */
- dst_rec_variable_t variable_;
- dst_rec_label_t label_;
- dst_rec_entry_t entry_;
- dst_rec_aux_lifetime_t aux_lifetime_;
- dst_rec_aux_ptr_base_t aux_ptr_base_;
- dst_rec_aux_src_range_t aux_src_range_;
- dst_rec_aux_reg_val_t aux_reg_val_;
- dst_rec_name_tab_t aux_unit_names_;
- dst_rec_sect_info_tab_t aux_sect_info_;
- }
- rec_data ALIGNED1;
- }
- dst_rec_t, *dst_rec_ptr_t;
+ {
+ dst_rec_type_t rec_type:8; /* record type */
+ int rec_flags:8; /* mask of dst_rec_flags_t */
+ union /* switched on rec_type field above */
+ {
+ /* dst_typ_pad requires no additional fields */
+ dst_rec_comp_unit_t comp_unit_;
+ dst_rec_section_tab_t section_tab_;
+ dst_rec_file_tab_t file_tab_;
+ dst_rec_block_t block_;
+ dst_rec_var_t var_;
+ dst_rec_pointer_t pointer_;
+ dst_rec_array_t array_;
+ dst_rec_subrange_t subrange_;
+ dst_rec_set_t set_;
+ dst_rec_implicit_enum_t implicit_enum_;
+ dst_rec_explicit_enum_t explicit_enum_;
+ /* dst_typ_short_{rec,union} are represented by 'rec' (below) */
+ dst_rec_file_t file_;
+ dst_rec_offset_t offset_;
+ dst_rec_alias_t alias_;
+ dst_rec_signature_t signature_;
+ dst_rec_old_label_t old_label_;
+ dst_rec_scope_t scope_;
+ /* dst_typ_end_scope requires no additional fields */
+ dst_rec_string_tab_t string_tab_;
+ /* dst_typ_global_name_tab is represented by 'string_tab' (above) */
+ dst_rec_forward_t forward_;
+ dst_rec_aux_size_t aux_size_;
+ dst_rec_aux_align_t aux_align_;
+ dst_rec_aux_field_size_t aux_field_size_;
+ dst_rec_aux_field_off_t aux_field_off_;
+ dst_rec_aux_field_align_t aux_field_align_;
+ dst_rec_aux_qual_t aux_qual_;
+ dst_rec_aux_var_bound_t aux_var_bound_;
+ dst_rec_extension_t extension_;
+ dst_rec_string_t string_;
+ dst_rec_const_t const_;
+ /* dst_typ_reference is represented by 'pointer' (above) */
+ dst_rec_record_t record_;
+ /* dst_typ_union is represented by 'record' (above) */
+ dst_rec_aux_type_deriv_t aux_type_deriv_;
+ /* dst_typ_locpool is represented by 'string_tab' (above) */
+ dst_rec_variable_t variable_;
+ dst_rec_label_t label_;
+ dst_rec_entry_t entry_;
+ dst_rec_aux_lifetime_t aux_lifetime_;
+ dst_rec_aux_ptr_base_t aux_ptr_base_;
+ dst_rec_aux_src_range_t aux_src_range_;
+ dst_rec_aux_reg_val_t aux_reg_val_;
+ dst_rec_name_tab_t aux_unit_names_;
+ dst_rec_sect_info_tab_t aux_sect_info_;
+ }
+ rec_data ALIGNED1;
+ }
+dst_rec_t, *dst_rec_ptr_t;
/*===============================================*/
/*========== .lines SECTION DEFINITIONS =========*/
/*===============================================*/
/*
- The .lines section contains a sequence of line number tables. There is no
- record structure within the section. The start of the table for a routine
- is pointed to by the block record, and the end of the table is signaled by
- an escape code.
-
- A line number table is a sequence of bytes. The default entry contains a line
- number delta (-7..+7) in the high 4 bits and a pc delta (0..15) in the low 4
- bits. Special cases, including when one or both of the values is too large
- to fit in 4 bits and other special cases are handled through escape entries.
- Escape entries are identified by the value 0x8 in the high 4 bits. The low 4
- bits are occupied by a function code. Some escape entries are followed by
- additional arguments, which may be bytes, words, or longwords. This data is
- not aligned.
-
- The initial PC offset, file number and line number are zero. Normally, the
- table begins with a dst_ln_file escape which establishes the initial file
- and line number. All PC deltas are unsigned (thus the table is ordered by
- increasing PC); line number deltas are signed. The table ends with a
- dst_ln_end escape, which is followed by a final table entry whose PC delta
- gives the code size of the last statement.
-
- Escape Semantic
- --------- ------------------------------------------------------------
- file Changes file state. The current source file remains constant
- until another file escape. Though the line number state is
- also updated by a file escape, a file escape does NOT
- constitute a line table entry.
-
- statement Alters the statement number of the next table entry. By
- default, all table entries refer to the first statement on a
- line. Statement number one is the second statement, and so on.
-
- entry Identifies the next table entry as the position of an entry
- point for the current block. The PC position should follow
- any procedure prologue code. An argument specifies the entry
- number, which is keyed to the entry number of the corresponding
- .symbols ENTRY record.
-
- exit Identifies the next table entry as the last position within
- the current block before a procedure epiloge and subsequent
- procedure exit.
-
- gap By default, the executable code corresponding to a table entry
- is assumed to extend to the beginning of the next table entry.
- If this is not the case--there is a "hole" in the table--then
- a gap escape should follow the first table entry to specify
- where the code for that entry ends.
-*/
+ The .lines section contains a sequence of line number tables. There is no
+ record structure within the section. The start of the table for a routine
+ is pointed to by the block record, and the end of the table is signaled by
+ an escape code.
+
+ A line number table is a sequence of bytes. The default entry contains a line
+ number delta (-7..+7) in the high 4 bits and a pc delta (0..15) in the low 4
+ bits. Special cases, including when one or both of the values is too large
+ to fit in 4 bits and other special cases are handled through escape entries.
+ Escape entries are identified by the value 0x8 in the high 4 bits. The low 4
+ bits are occupied by a function code. Some escape entries are followed by
+ additional arguments, which may be bytes, words, or longwords. This data is
+ not aligned.
+
+ The initial PC offset, file number and line number are zero. Normally, the
+ table begins with a dst_ln_file escape which establishes the initial file
+ and line number. All PC deltas are unsigned (thus the table is ordered by
+ increasing PC); line number deltas are signed. The table ends with a
+ dst_ln_end escape, which is followed by a final table entry whose PC delta
+ gives the code size of the last statement.
+
+ Escape Semantic
+ --------- ------------------------------------------------------------
+ file Changes file state. The current source file remains constant
+ until another file escape. Though the line number state is
+ also updated by a file escape, a file escape does NOT
+ constitute a line table entry.
+
+ statement Alters the statement number of the next table entry. By
+ default, all table entries refer to the first statement on a
+ line. Statement number one is the second statement, and so on.
+
+ entry Identifies the next table entry as the position of an entry
+ point for the current block. The PC position should follow
+ any procedure prologue code. An argument specifies the entry
+ number, which is keyed to the entry number of the corresponding
+ .symbols ENTRY record.
+
+ exit Identifies the next table entry as the last position within
+ the current block before a procedure epiloge and subsequent
+ procedure exit.
+
+ gap By default, the executable code corresponding to a table entry
+ is assumed to extend to the beginning of the next table entry.
+ If this is not the case--there is a "hole" in the table--then
+ a gap escape should follow the first table entry to specify
+ where the code for that entry ends.
+ */
-#define dst_ln_escape_flag -8
+#define dst_ln_escape_flag -8
/*
- Escape function codes:
-*/
+ Escape function codes:
+ */
typedef enum
- {
- dst_ln_pad, /* pad byte */
- dst_ln_file, /* file escape. Next 4 bytes are a dst_src_loc_t */
- dst_ln_dln1_dpc1, /* 1 byte line delta, 1 byte pc delta */
- dst_ln_dln2_dpc2, /* 2 bytes line delta, 2 bytes pc delta */
- dst_ln_ln4_pc4, /* 4 bytes ABSOLUTE line number, 4 bytes ABSOLUTE pc */
- dst_ln_dln1_dpc0, /* 1 byte line delta, pc delta = 0 */
- dst_ln_ln_off_1, /* statement escape, stmt # = 1 (2nd stmt on line) */
- dst_ln_ln_off, /* statement escape, stmt # = next byte */
- dst_ln_entry, /* entry escape, next byte is entry number */
- dst_ln_exit, /* exit escape */
- dst_ln_stmt_end, /* gap escape, 4 bytes pc delta */
- dst_ln_escape_11, /* reserved */
- dst_ln_escape_12, /* reserved */
- dst_ln_escape_13, /* reserved */
- dst_ln_nxt_byte, /* next byte contains the real escape code */
- dst_ln_end, /* end escape, final entry follows */
+ {
+ dst_ln_pad, /* pad byte */
+ dst_ln_file, /* file escape. Next 4 bytes are a dst_src_loc_t */
+ dst_ln_dln1_dpc1, /* 1 byte line delta, 1 byte pc delta */
+ dst_ln_dln2_dpc2, /* 2 bytes line delta, 2 bytes pc delta */
+ dst_ln_ln4_pc4, /* 4 bytes ABSOLUTE line number, 4 bytes ABSOLUTE pc */
+ dst_ln_dln1_dpc0, /* 1 byte line delta, pc delta = 0 */
+ dst_ln_ln_off_1, /* statement escape, stmt # = 1 (2nd stmt on line) */
+ dst_ln_ln_off, /* statement escape, stmt # = next byte */
+ dst_ln_entry, /* entry escape, next byte is entry number */
+ dst_ln_exit, /* exit escape */
+ dst_ln_stmt_end, /* gap escape, 4 bytes pc delta */
+ dst_ln_escape_11, /* reserved */
+ dst_ln_escape_12, /* reserved */
+ dst_ln_escape_13, /* reserved */
+ dst_ln_nxt_byte, /* next byte contains the real escape code */
+ dst_ln_end, /* end escape, final entry follows */
dst_ln_escape_END_OF_ENUM
- }
- dst_ln_escape_t;
+ }
+dst_ln_escape_t;
/*
- Line number table entry
-*/
+ Line number table entry
+ */
typedef union
- {
+ {
struct
- {
- unsigned int ln_delta : 4; /* 4 bit line number delta */
- unsigned int pc_delta : 4; /* 4 bit pc delta */
- }
- delta;
-
+ {
+ unsigned int ln_delta:4; /* 4 bit line number delta */
+ unsigned int pc_delta:4; /* 4 bit pc delta */
+ }
+ delta;
+
struct
- {
- unsigned int esc_flag : 4; /* alias for ln_delta */
- dst_ln_escape_t esc_code : 4; /* escape function code */
- }
- esc;
-
- char sdata; /* signed data byte */
- unsigned char udata; /* unsigned data byte */
- }
- dst_ln_entry_t,
- *dst_ln_entry_ptr_t,
- dst_ln_table_t[dst_dummy_array_size];
+ {
+ unsigned int esc_flag:4; /* alias for ln_delta */
+ dst_ln_escape_t esc_code:4; /* escape function code */
+ }
+ esc;
+
+ char sdata; /* signed data byte */
+ unsigned char udata; /* unsigned data byte */
+ }
+dst_ln_entry_t,
+ *dst_ln_entry_ptr_t,
+ dst_ln_table_t[dst_dummy_array_size];
/* The following macro will extract the ln_delta field as a signed value:
-*/
+ */
#define dst_ln_ln_delta(ln_rec) \
( ((short) ((ln_rec).delta.ln_delta << 12)) >> 12 )
-typedef struct dst_sec_struct {
- char *buffer;
- long position;
- long size;
- long base;
-} dst_sec;
+typedef struct dst_sec_struct
+ {
+ char *buffer;
+ long position;
+ long size;
+ long base;
+ }
+dst_sec;
/* Macros for access to the data */
/*
* Type codes for loc strings. I'm not entirely certain about all of
* these, but they seem to work.
- * troy@cbme.unsw.EDU.AU
+ * troy@cbme.unsw.EDU.AU
* If you find a variable whose location can't be decoded, you should
* find out it's code using "dstdump -s filename". It will record an
* entry for the variable, and give a text representation of what
* occur.
*/
typedef enum
-{
- dst_lsc_end, /* End of string */
- dst_lsc_indirect, /* Indirect through previous. Arg == 6 */
- /* Or register ax (x=arg) */
- dst_lsc_dreg, /* register dx (x=arg) */
- dst_lsc_03,
- dst_lsc_section, /* Section (arg+1) */
- dst_lsc_05,
- dst_lsc_06,
- dst_lsc_add, /* Add (arg+1)*2 */
- dst_lsc_sub, /* Subtract (arg+1)*2 */
- dst_lsc_09,
- dst_lsc_0a,
- dst_lsc_sec_byte, /* Section of next byte+1 */
- dst_lsc_add_byte, /* Add next byte (arg == 5) or next word
+ {
+ dst_lsc_end, /* End of string */
+ dst_lsc_indirect, /* Indirect through previous. Arg == 6 */
+ /* Or register ax (x=arg) */
+ dst_lsc_dreg, /* register dx (x=arg) */
+ dst_lsc_03,
+ dst_lsc_section, /* Section (arg+1) */
+ dst_lsc_05,
+ dst_lsc_06,
+ dst_lsc_add, /* Add (arg+1)*2 */
+ dst_lsc_sub, /* Subtract (arg+1)*2 */
+ dst_lsc_09,
+ dst_lsc_0a,
+ dst_lsc_sec_byte, /* Section of next byte+1 */
+ dst_lsc_add_byte, /* Add next byte (arg == 5) or next word
* (arg == 6)
*/
- dst_lsc_sub_byte, /* Subtract next byte. (arg == 1) or next
+ dst_lsc_sub_byte, /* Subtract next byte. (arg == 1) or next
* word (arg == 6 ?)
*/
- dst_lsc_sbreg, /* Stack base register (frame pointer). Arg==0*/
- dst_lsc_0f,
- dst_lsc_ranged, /* location is pc dependent */
- dst_lsc_11,
- dst_lsc_12,
- dst_lsc_13,
- dst_lsc_14,
- dst_lsc_15,
- dst_lsc_16,
- dst_lsc_17,
- dst_lsc_18,
- dst_lsc_19,
- dst_lsc_1a,
- dst_lsc_1b,
- dst_lsc_1c,
- dst_lsc_1d,
- dst_lsc_1e,
- dst_lsc_1f
-} dst_loc_string_code_t;
+ dst_lsc_sbreg, /* Stack base register (frame pointer). Arg==0 */
+ dst_lsc_0f,
+ dst_lsc_ranged, /* location is pc dependent */
+ dst_lsc_11,
+ dst_lsc_12,
+ dst_lsc_13,
+ dst_lsc_14,
+ dst_lsc_15,
+ dst_lsc_16,
+ dst_lsc_17,
+ dst_lsc_18,
+ dst_lsc_19,
+ dst_lsc_1a,
+ dst_lsc_1b,
+ dst_lsc_1c,
+ dst_lsc_1d,
+ dst_lsc_1e,
+ dst_lsc_1f
+ }
+dst_loc_string_code_t;
/* If the following occurs after an addition/subtraction, that addition
* or subtraction should be multiplied by 256. It's a complete byte, not
#define dst_multiply_256 ((char) 0x73)
typedef struct
-{
- char code : 5;
- char arg : 3;
-} dst_loc_header_t ALIGNED1;
+ {
+ char code:5;
+ char arg:3;
+ }
+dst_loc_header_t ALIGNED1;
typedef union
-{
- dst_loc_header_t header;
- char data;
-} dst_loc_entry_t ALIGNED1;
+ {
+ dst_loc_header_t header;
+ char data;
+ }
+dst_loc_entry_t ALIGNED1;
#undef ALIGNED1
-#endif /* apollo_dst_h */
+#endif /* apollo_dst_h */
projects / deliverable / binutils-gdb.git / blobdiff