07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Copyright (C) 2000,2004,2006 Silicon Graphics, Inc. All Rights Reserved.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Portions Copyright (C) 2007-2010 David Anderson. All Rights Reserved.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Portions Copyright 2002-2010 Sun Microsystems, Inc. All rights reserved.
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe This program is free software; you can redistribute it and/or modify it
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe under the terms of version 2.1 of the GNU Lesser General Public License
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe as published by the Free Software Foundation.
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe This program is distributed in the hope that it would be useful, but
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WITHOUT ANY WARRANTY; without even the implied warranty of
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe Further, this software is distributed without any warranty that it is
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe free of the rightful claim of any third person regarding infringement
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe or the like. Any license provided herein, whether implied or
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe otherwise, applies only to this software file. Patent licenses, if
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe any, provided herein do not apply to combinations of this program with
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe other software, or any other product whatsoever.
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe You should have received a copy of the GNU Lesser General Public
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe License along with this program; if not, write the Free Software
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston MA 02110-1301,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Contact information: Silicon Graphics, Inc., 1500 Crittenden Lane,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe Mountain View, CA 94043, or:
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe For further information regarding this notice, see:
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe http://oss.sgi.com/projects/GenInfo/NoticeExplan
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe SGI has moved from the Crittenden Lane address.
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/* if this is not defined, we probably don't need it: just use 0 */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/* must match up with pro_section.h defines of DEBUG_INFO etc
07dc1947c362e187fb955d283b692f8769dd5defRichard Loweand sectnames (below). REL_SEC_PREFIX is either ".rel" or ".rela"
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe REL_SEC_PREFIX ".debug_abbrev", /* no relocations on this, really */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe REL_SEC_PREFIX ".debug_funcnames", /* sgi extension */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe REL_SEC_PREFIX ".debug_typenames", /* sgi extension */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe REL_SEC_PREFIX ".debug_varnames", /* sgi extension */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe REL_SEC_PREFIX ".debug_weaknames", /* sgi extension */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/* names of sections. Ensure that it matches the defines
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe in pro_section.h, in the same order
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe Must match also _dwarf_rel_section_names above
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe ".debug_info",
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe ".debug_line",
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe ".debug_abbrev",
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe ".debug_frame",
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe ".debug_aranges",
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe ".debug_pubnames",
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe ".debug_str",
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe ".debug_macinfo",
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe ".debug_loc"
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowestatic Dwarf_Ubyte std_opcode_len[] = { 0, /* DW_LNS_copy */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe 0, /* DW_LNS_negate_stmt */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe 0, /* DW_LNS_set_basic_block */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe 0, /* DW_LNS_const_add_pc */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/* struct to hold relocation entries. Its mantained as a linked
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe list of relocation structs, and will then be written at as a
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe whole into the relocation section. Whether its 32 bit or
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe 64 bit will be obtained from Dwarf_Debug pointer.
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowetypedef struct Dwarf_P_Rel_Head_s *Dwarf_P_Rel_Head;
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowestatic int _dwarf_pro_generate_debugline(Dwarf_P_Debug dbg,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowestatic int _dwarf_pro_generate_debugframe(Dwarf_P_Debug dbg,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowestatic int _dwarf_pro_generate_debuginfo(Dwarf_P_Debug dbg,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowestatic Dwarf_P_Abbrev _dwarf_pro_getabbrev(Dwarf_P_Die, Dwarf_P_Abbrev);
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe (Dwarf_P_Attribute, Dwarf_P_Abbrev, int no_attr);
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/* these macros used as return value for below functions */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowestatic int _dwarf_pro_get_opc(Dwarf_Unsigned addr_adv, int line_adv);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe/* BEGIN_LEN_SIZE is the size of the 'length' field in total.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Which may be 4,8, or 12 bytes!
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe 4 is standard DWARF2.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe 8 is non-standard MIPS-IRIX 64-bit.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe 12 is standard DWARF3 for 64 bit offsets.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Used in various routines: local variable names
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe must match the names here.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe#define BEGIN_LEN_SIZE (uwordb_size + extension_size)
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Return TRUE if we need the section, FALSE otherwise
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe If any of the 'line-data-related' calls were made
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe including file or directory entries,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe produce .debug_line .
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowedwarf_need_debug_line_section(Dwarf_P_Debug dbg)
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dbg->de_lines == NULL && dbg->de_file_entries == NULL
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe Convert debug information to a format such that
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe it can be written on disk.
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe Called exactly once per execution.
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowedwarf_transform_to_disk_form(Dwarf_P_Debug dbg, Dwarf_Error * error)
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe Section data in written out in a number of buffers. Each
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe _generate_*() function returns a cumulative count of buffers for
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe all the sections. get_section_bytes() returns pointers to these
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe buffers one at a time. */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dbg->de_version_magic_number != PRO_VERSION_MAGIC) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_IA, DW_DLV_NOCOUNT);
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* Create dwarf section headers */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe for (sect = 0; sect < NUM_DEBUG_SECTIONS; sect++) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (dwarf_need_debug_line_section(dbg) == FALSE) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (dbg->de_simple_name_headers[dwarf_snk_pubname].
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (dbg->de_simple_name_headers[dwarf_snk_funcname].
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (dbg->de_simple_name_headers[dwarf_snk_typename].
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (dbg->de_simple_name_headers[dwarf_snk_varname].
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (dbg->de_simple_name_headers[dwarf_snk_weakname].
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* not handled yet */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* logic error: missing a case */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_ELF_SECT_ERR, DW_DLV_NOCOUNT);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe dbg->de_callback_func_b(_dwarf_sectnames[sect],
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Changing the order in which the sections are generated may cause
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe problems because of relocations. */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dwarf_need_debug_line_section(dbg) == TRUE) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe nbufs = _dwarf_pro_generate_debugline(dbg, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe nbufs = _dwarf_pro_generate_debugframe(dbg, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_DEBUGFRAME_ERROR,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe nbufs = _dwarf_pro_transform_macro_info_to_disk(dbg, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_DEBUGMACINFO_ERROR,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe nbufs = _dwarf_pro_generate_debuginfo(dbg, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe nbufs = _dwarf_transform_arange_to_disk(dbg, error);
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dbg->de_simple_name_headers[dwarf_snk_pubname].sn_head) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe nbufs = _dwarf_transform_simplename_to_disk(dbg,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dbg->de_simple_name_headers[dwarf_snk_funcname].sn_head) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe nbufs = _dwarf_transform_simplename_to_disk(dbg,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dbg->de_simple_name_headers[dwarf_snk_typename].sn_head) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe nbufs = _dwarf_transform_simplename_to_disk(dbg,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dbg->de_simple_name_headers[dwarf_snk_varname].sn_head) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe nbufs = _dwarf_transform_simplename_to_disk(dbg,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dbg->de_simple_name_headers[dwarf_snk_weakname].sn_head) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe nbufs = _dwarf_transform_simplename_to_disk(dbg,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = dbg->de_transform_relocs_to_disk(dbg, &new_secs);
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/*---------------------------------------------------------------
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Generate debug_line section
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe---------------------------------------------------------------*/
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe_dwarf_pro_generate_debugline(Dwarf_P_Debug dbg, Dwarf_Error * error)
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* all data named cur* are used to loop thru linked lists */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe unsigned char *data = 0; /* holds disk form data */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe unsigned char *start_line_sec = 0; /* pointer to the buffer at
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe section start */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* temps for memcpy */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe int extension_size = dbg->de_64bit_extension ? 4 : 0;
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* include directories */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe prolog_size++; /* last null following last directory
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* file entries */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe strlen(curentry->dfe_name) + 1 + curentry->dfe_nbytes;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe prolog_size += BEGIN_LEN_SIZE + sizeof_uhalf(dbg) + /* version # */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* length of table specifying # of opnds */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe GET_CHUNK(dbg, elfsectno, data, prolog_size, error);
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* copy over the data */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* total_length */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &x,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &du,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &dh,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* header length */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe du = prolog_size - (BEGIN_LEN_SIZE + sizeof(Dwarf_Half) +
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &du,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) std_opcode_len,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe sizeof(std_opcode_len), sizeof(std_opcode_len));
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* copy over include directories */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* copy file entries */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* copies of leb numbers, no endian issues */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) curentry->dfe_args, curentry->dfe_nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe _dwarf_p_get_alloc(dbg, sizeof(struct Dwarf_P_Line_s));
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* generate opcodes for line numbers */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe int no_lns_copy; /* if lns copy opcode doesnt need to be
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe generated, if special opcode or end
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe int line_adv; /* supposed to be a reasonably small
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe number, so the size should not be a
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe problem. ? */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe int inst_bytes; /* no of bytes in extended opcode */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Advance pc to end of text section. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe addr_adv = curline->dpl_address - prevline->dpl_address;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* leb, no endianness issue */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) buff1, nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* first null byte */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, sizeof(Dwarf_Ubyte),
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* write length of extended opcode */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe _dwarf_pro_encode_leb128_nm(inst_bytes, &str_nbytes,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, str_nbytes, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) buff1, str_nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* write extended opcode */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, sizeof(Dwarf_Ubyte),
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* reset value to original values */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* this is set only for end_sequence, so that a
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe dw_lns_copy is not generated */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* first null byte */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, sizeof(Dwarf_Ubyte),
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* write length of extended opcode */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe inst_bytes = sizeof(Dwarf_Ubyte) + upointer_size;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe _dwarf_pro_encode_leb128_nm(inst_bytes, &str_nbytes,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, str_nbytes, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* leb number, no endian issue */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) str, str_nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* write extended opcode */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, upointer_size +
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* reloc for address */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* write offset (address) */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &du,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) arg, nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (curline->dpl_column != prevline->dpl_column) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = _dwarf_pro_encode_leb128_nm(curline->dpl_column,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) arg, nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (curline->dpl_is_stmt != prevline->dpl_is_stmt) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, sizeof(Dwarf_Ubyte),
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, sizeof(Dwarf_Ubyte),
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe prevline->dpl_basic_block = curline->dpl_basic_block;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe addr_adv = curline->dpl_address - prevline->dpl_address;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe line_adv = (int) (curline->dpl_line - prevline->dpl_line);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_WRONG_ADDRESS, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if ((opc = _dwarf_pro_get_opc(addr_adv, line_adv)) > 0) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, sizeof(Dwarf_Ubyte),
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) arg, nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = _dwarf_pro_encode_signed_leb128_nm(line_adv,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) arg, nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe } /* ends else for opc != 0 */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (no_lns_copy == 0) { /* if not a special or dw_lne_end_seq
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe generate a matrix line */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, sizeof(Dwarf_Ubyte), error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &db,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* write total length field */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/*---------------------------------------------------------------
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Generate debug_frame section
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe---------------------------------------------------------------*/
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe_dwarf_pro_generate_debugframe(Dwarf_P_Debug dbg, Dwarf_Error * error)
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe int pad = 0; /* Pad for padding to align cies and fdes */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe long *cie_offs = 0; /* Holds byte offsets for links to fde's */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe int extension_size = dbg->de_64bit_extension ? 4 : 0;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Dwarf_Unsigned cur_off = 0; /* current offset of written data, held
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe for relocation info */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe _dwarf_p_get_alloc(dbg, sizeof(long) * dbg->de_n_cie);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CIE_OFFS_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Generate cie number as we go along. This writes
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe all CIEs first before any FDEs, which is rather
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe different from the order a compiler might like (which
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe might be each CIE followed by its FDEs then the next CIE, and
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = _dwarf_pro_encode_leb128_nm(curcie->cie_code_align,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CIE_OFFS_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Before April 1999, the following was using an unsigned
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe encode. That worked ok even though the decoder used the
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe correct signed leb read, but doing the encode correctly
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (according to the dwarf spec) saves space in the output file
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe and is completely compatible.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Note the actual stored amount on MIPS was 10 bytes (!) to
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe store the value -4. (hex)fc ffffffff ffffffff 01 The
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe libdwarf consumer consumed all 10 bytes too!
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe old version res =
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe _dwarf_pro_encode_leb128_nm(curcie->cie_data_align,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe below is corrected signed version. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = _dwarf_pro_encode_signed_leb128_nm(curcie->cie_data_align,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CIE_OFFS_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* get the correct offset */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (strcmp(augmentation, DW_CIE_AUGMENTER_STRING_V0) == 0) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = _dwarf_pro_encode_leb128_nm(augmented_fields_length,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CIE_OFFS_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe strlen(curcie->cie_aug) + 1 + /* augmentation */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe strlen(curcie->cie_aug) + 1 + /* augmentation */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe c_bytes + d_bytes + sizeof(Dwarf_Ubyte) + /* return
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe pad = (int) PADDING(cie_length, upointer_size);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &x,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* total length of cie */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* cie-id is a special value. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &du,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) code_al, c_bytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) data_al, d_bytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (strcmp(augmentation, DW_CIE_AUGMENTER_STRING_V0) == 0) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) augmented_al, a_bytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) curcie->cie_inst,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe for (i = 0; i < pad; i++) {
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* calculate current offset */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe cur_off = cie_offs[cie_no - 2] + cie_length + BEGIN_LEN_SIZE;
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* write out fde's */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe unsigned char *fde_start_point = 0;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Find the CIE associated with this fde. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe index = 1; /* The cie_index of the first cie is 1,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (strcmp(cie_ptr->cie_aug, DW_CIE_AUGMENTER_STRING_V0) == 0) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* encode the length of augmented fields. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CIE_OFFS_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe fde_length = curfde->fde_n_bytes + BEGIN_LEN_SIZE + /* cie
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe fde_length = curfde->fde_n_bytes + BEGIN_LEN_SIZE + /* cie
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* IRIX/MIPS extension:
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Using fde offset, generate DW_AT_MIPS_fde attribute for the
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe die corresponding to this fde. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if(_dwarf_pro_add_AT_fde(dbg, curfde->fde_die, cur_off,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* store relocation for cie pointer */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = dbg->de_reloc_name(dbg, DEBUG_FRAME, cur_off +
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* store relocation information for initial location */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Store the relocation information for the
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe offset_into_exception_info field, if the offset is valid (0
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe is a valid offset). */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe curfde->fde_offset_into_exception_tables >= 0) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* r_offset, where in cie this
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe field starts */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_CHUNK_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* adjust for padding */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe pad = (int) PADDING(fde_length, upointer_size);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* write out fde */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno, data, fde_length + BEGIN_LEN_SIZE,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &x,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* length */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &du,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* offset to cie */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &du,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &du,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* symbolic reloc, need reloc for length What if we
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe really know the length? If so, should use the other
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe part of 'if'. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* DEBUG_ARANGES, */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DEBUG_FRAME, cur_off + 2 * uwordb_size + upointer_size, /* r_offset
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* arrange pre-calc so assem text can do .word end -
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe begin + val (gets val from stream) */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &val,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &du,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* write the encoded augmented field length. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) afl_buff, afl_length);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* write the offset_into_exception_tables field. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (Dwarf_sfixed) curfde->fde_offset_into_exception_tables;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &dsw,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe unsigned long size = curfde->fde_inst_block_size;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) curfde->fde_block, size);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* r_offset = */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (data - fde_start_point) + cur_off + uwordb_size,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* padding */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe for (i = 0; i < pad; i++) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe These functions remember all the markers we see along
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe with the right offset in the .debug_info section so that
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe we can dump them all back to the user with the section info.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe dbg->de_markers = _dwarf_p_get_alloc(dbg, sizeof(struct Dwarf_P_Marker_s) *
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (dbg->de_marker_n_alloc >= (dbg->de_marker_n_used + 1)) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Dwarf_P_Marker * marker_list, /* pointer to a pointer */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (marker_list == NULL || marker_count == NULL) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_IA, DW_DLV_BADADDR);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (dbg->de_marker_n_used != dbg->de_marker_n_alloc) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_MAF, DW_DLV_BADADDR);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe/* These functions provide the offsets of DW_FORM_string
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe attributes in the section section_index. These information
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe will enable a producer app that is generating assembly
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe text output to easily emit those attributes in ascii form
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe without having to decode the byte stream.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Dwarf_P_Per_Sect_String_Attrs sect_sa = &dbg->de_sect_string_attr[section_index];
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe sect_sa->sect_sa_section_number = section_index;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe sect_sa->sect_sa_list = _dwarf_p_get_alloc(dbg,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Dwarf_P_Per_Sect_String_Attrs sect_sa = &dbg->de_sect_string_attr[section_index];
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (sect_sa->sect_sa_n_alloc >= (sect_sa->sect_sa_n_used + 1)) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe sect_sa->sect_sa_list[n].sa_nbytes = attr->ar_nbytes;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowedwarf_get_string_attributes_count(Dwarf_P_Debug dbg,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe for (i = 0; i < NUM_DEBUG_SECTIONS; ++i) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (dbg->de_sect_string_attr[i].sect_sa_n_used > 0) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe *count_of_sa_sections = (Dwarf_Unsigned) count;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe *drd_buffer_version = DWARF_DRD_BUFFER_VERSION;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowedwarf_get_string_attributes_info(Dwarf_P_Debug dbg,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Dwarf_P_Per_Sect_String_Attrs sect_sa = &dbg->de_sect_string_attr[i];
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe *elf_section_index = sect_sa->sect_sa_section_number;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe *sect_sa_buffer_count = sect_sa->sect_sa_n_used;
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/*---------------------------------------------------------------
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Generate debug_info and debug_abbrev sections
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe---------------------------------------------------------------*/
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe_dwarf_pro_generate_debuginfo(Dwarf_P_Debug dbg, Dwarf_Error * error)
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Dwarf_Half version = 0; /* Need 2 byte quantity. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Dwarf_Unsigned die_off = 0; /* Offset of die in debug_info. */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe int extension_size = dbg->de_64bit_extension ? 4 : 0;
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe elfsectno_of_debug_info = dbg->de_elf_sects[DEBUG_INFO];
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* write cu header */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe cu_header_size = BEGIN_LEN_SIZE + sizeof(Dwarf_Half) + /* version
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe sizeof(Dwarf_Ubyte); /* size of target address */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe GET_CHUNK(dbg, elfsectno_of_debug_info, data, cu_header_size,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &du, sizeof(du), extension_size);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe this field itself (unknown at this
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe version = CURRENT_VERSION_STAMP; /* assume this length will not
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &version,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* We have filled the chunk we got with GET_CHUNK. At this point we
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe no longer dare use "data" or "start_info_sec" as a pointer any
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe longer except to refer to that first small chunk for the cu
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* create AT_macro_info if appropriate */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (_dwarf_pro_add_AT_macro_info(dbg, curdie, 0, error) < 0)
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* create AT_stmt_list attribute if necessary */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dwarf_need_debug_line_section(dbg) == TRUE)
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (_dwarf_pro_add_AT_stmt_list(dbg, curdie, error) < 0)
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe Relocation for abbrev offset in cu header store relocation
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe record in linked list */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = dbg->de_reloc_name(dbg, DEBUG_INFO, BEGIN_LEN_SIZE +
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* r_offset */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* pass 0: only top level dies, add at_sibling attribute to those
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe dies with children */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* pass 1: create abbrev info, get die offsets, calc relocations */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe curabbrev = _dwarf_pro_getabbrev(curdie, abbrev_head);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_ABBREV_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* check if its a new abbreviation, if yes, add to tail */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = _dwarf_pro_encode_leb128_nm(curabbrev->abb_idx,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_ABBREV_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_ABBREV_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Resorting the attributes!! */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe for (i = 0; i < (int)curabbrev->abb_n_attr; i++) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* The following should always find an attribute! */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe ca && curabbrev->abb_attrs[i] != ca->ar_attribute;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg,DW_DLE_ABBREV_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Remove the attribute from the old list. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Add the attribute to the new list. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = dbg->de_reloc_name(dbg, DEBUG_INFO, die_off + curattr->ar_rel_offset, /* r_offset
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (curattr->ar_attribute_form == DW_FORM_string) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* depth first search */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe while (curdie != NULL && curdie->di_right == NULL) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe die_off++; /* since we are writing a null die at
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe the end of each sibling chain */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe } /* end while (curdie != NULL) */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = string_attr_init(dbg, DEBUG_INFO, string_attr_count);
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* Pass 2: Write out the die information Here 'data' is a
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe temporary, one block for each GET_CHUNK. 'data' is overused. */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = marker_add(dbg, curdie->di_offset, curdie->di_marker);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* index to abbreviation table */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Attribute values - need to fill in all form attributes */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe string_attr_offset = curdie->di_offset + curdie->di_abbrev_nbytes;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (unsigned) 0xff) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_OFFSET_UFLW, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (unsigned) 0xffff) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_OFFSET_UFLW, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &dh,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* curattr->ar_ref_die == NULL!
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe * ref_addr doesn't take a CU-offset.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe * This is different than other refs.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe * This value will be set by the user of the
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe * producer library using a relocation.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe * No need to set a value here.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* ref to offset of die */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &du,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (unsigned) 0xffffffff) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_OFFSET_UFLW, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe dw = (Dwarf_Word) curattr->ar_ref_die->di_offset;
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &dw,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (const void *) &du,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe { /* unsigned leb128 offset */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_ABBREV_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (curattr->ar_attribute_form == DW_FORM_string) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe string_attr_add(dbg, DEBUG_INFO, string_attr_offset, curattr);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* depth first search */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe while (curdie != NULL && curdie->di_right == NULL) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, elfsectno_of_debug_info, data, 1, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe } /* end while (curdir != NULL) */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* Write out debug_info size */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* Dont include length field or extension bytes */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe WRITE_UNALIGNED(dbg, (void *) (start_info_sec + extension_size),
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* Write out debug_abbrev section */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe abbrevsectno = dbg->de_elf_sects[DEBUG_ABBREV];
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = _dwarf_pro_encode_leb128_nm(curabbrev->abb_idx, &nbytes,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_ABBREV_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, abbrevsectno, data, nbytes, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) val, nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = _dwarf_pro_encode_leb128_nm(curabbrev->abb_tag, &nbytes,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_ABBREV_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, abbrevsectno, data, nbytes, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) val, nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, abbrevsectno, data, sizeof(Dwarf_Ubyte), error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe WRITE_UNALIGNED(dbg, (void *) data, (const void *) &db,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* add attributes and forms */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe for (idx = 0; idx < curabbrev->abb_n_attr; idx++) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = _dwarf_pro_encode_leb128_nm(curabbrev->abb_attrs[idx],
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_ABBREV_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, abbrevsectno, data, nbytes, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) val, nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe res = _dwarf_pro_encode_leb128_nm(curabbrev->abb_forms[idx],
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe DWARF_P_DBG_ERROR(dbg, DW_DLE_ABBREV_ALLOC, -1);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, abbrevsectno, data, nbytes, error);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe memcpy((void *) data, (const void *) val, nbytes);
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, abbrevsectno, data, 2, error); /* two zeros,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe GET_CHUNK(dbg, abbrevsectno, data, 1, error); /* one zero,
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/*---------------------------------------------------------------------
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Get a buffer of section data.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe section_idx is the elf-section number that this data applies to.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe length shows length of returned data
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe----------------------------------------------------------------------*/
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dbg->de_version_magic_number != PRO_VERSION_MAGIC) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* no more data !! */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (dbg->de_debug_sects->ds_elf_sect_no == MAGIC_SECT_NO) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* no data ever entered !! */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe *section_idx = dbg->de_debug_sects->ds_elf_sect_no;
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe buf = (Dwarf_Ptr *) dbg->de_debug_sects->ds_data;
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe dbg->de_debug_sects = dbg->de_debug_sects->ds_next;
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* We may want to call the section stuff more than once: see
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe dwarf_reset_section_bytes() do not do: dbg->de_n_debug_sect--; */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe No errors possible.
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe dbg->de_debug_sects = dbg->de_first_debug_sect;
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* No need to reset; commented out decrement. dbg->de_n_debug_sect
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe Storage handler. Gets either a new chunk of memory, or
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe a pointer in existing memory, from the linked list attached
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe to dbg at de_debug_sects, depending on size of nbytes
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe Assume dbg not null, checked in top level routine
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe Returns a pointer to the allocated buffer space for the
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe lib to fill in, predincrements next-to-use count so the
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe space requested is already counted 'used'
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe when this returns (ie, reserved).
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* By using MAGIC_SECT_NO we allow the following MAGIC_SECT_NO must
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe not match any legit section number. test to have just two
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe clauses (no NULL pointer test) See dwarf_producer_init(). */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe ((cursect->ds_nbytes + nbytes) > cursect->ds_orig_alloc)
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Either the elf section has changed or there is not enough
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe space in the current section.
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Create a new Dwarf_P_Section_Data_s for the chunk. and have
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe space 'on the end' for the buffer itself so we just do one
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe malloc (not two).
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* _dwarf_p_get_alloc zeroes the space... */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe cursect->ds_nbytes = nbytes; /* reserve this number of bytes
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe of space for caller to fill
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* Now link on the end of the list, and mark this one as the
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe current one */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (dbg->de_debug_sects->ds_elf_sect_no == MAGIC_SECT_NO) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* the only entry is the special one for 'no entry' so
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe delete that phony one while adding this initial real
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe dbg->de_current_active_section->ds_next = cursect;
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* There is enough space in the current buffer */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Dwarf_Small *space_for_caller = (Dwarf_Small *)
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/*------------------------------------------------------------
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Given address advance and line advance, it gives
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe either special opcode, or a number < 0
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe------------------------------------------------------------*/
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe_dwarf_pro_get_opc(Dwarf_Unsigned addr_adv, int line_adv)
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe if (line_adv >= LINE_BASE && line_adv < LINE_BASE + LINE_RANGE) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe (line_adv - LINE_BASE) + (addr_adv * LINE_RANGE) +
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/*-----------------------------------------------------------------------
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Handles abbreviations. It takes a die, searches through
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe current list of abbreviations for matching one. If it
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe finds one, it returns a pointer to it, and if it doesnt,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe it returns a new one. Upto the user of this function to
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe link it up to the abbreviation head. If its a new one,
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe abb_idx has 0.
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe-----------------------------------------------------------------------*/
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe_dwarf_pro_getabbrev(Dwarf_P_Die die, Dwarf_P_Abbrev head)
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe /* There is a chance of a match. */
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe /* no match, create new abbreviation */
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe _dwarf_p_get_alloc(die->di_dbg, sizeof(struct Dwarf_P_Abbrev_s));
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe/*------------------------------------------------------------------
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe Tries to see if given attribute and form combination
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe exists in the given abbreviation
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe-------------------------------------------------------------------*/
49d3bc91e27cd871b950d56c01398fa2f2e12ab4Richard Lowe for (i = 0; i < no_attr; i++) {
07dc1947c362e187fb955d283b692f8769dd5defRichard Lowe if (attr->ar_attribute == abbrev->abb_attrs[i] &&