/*

  Copyright (C) 2000, 2004, 2006 Silicon Graphics, Inc.  All Rights Reserved.

  This program is free software; you can redistribute it and/or modify it

  under the terms of version 2.1 of the GNU Lesser General Public License 

  as published by the Free Software Foundation.

  This program is distributed in the hope that it would be useful, but

  WITHOUT ANY WARRANTY; without even the implied warranty of

  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  

  Further, this software is distributed without any warranty that it is

  free of the rightful claim of any third person regarding infringement 

  or the like.  Any license provided herein, whether implied or 

  otherwise, applies only to this software file.  Patent licenses, if

  any, provided herein do not apply to combinations of this program with 

  other software, or any other product whatsoever.  

  You should have received a copy of the GNU Lesser General Public

  License along with this program; if not, write the Free Software

  Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston MA 02110-1301,

  USA.

  Contact information:  Silicon Graphics, Inc., 1500 Crittenden Lane,

  Mountain View, CA 94043, or:

  http://www.sgi.com

  For further information regarding this notice, see:

  http://oss.sgi.com/projects/GenInfo/NoticeExplan

*/

#define DW_EXTENDED_OPCODE	0

/*

    This is used as the starting value for an algorithm

    to get the minimum difference between 2 values.

    UINT_MAX is used as our approximation to infinity.

*/

#define MAX_LINE_DIFF       UINT_MAX

/*

    This structure is used to build a list of all the

    files that are used in the current compilation unit.

    All of the fields execpt fi_next have meanings that

    are obvious from section 6.2.4 of the Libdwarf Doc.

*/

struct Dwarf_File_Entry_s {

    /* Points to string naming the file. */

    Dwarf_Small *fi_file_name;

    /* 

       Index into the list of directories of the directory in which

       this file exits. */

    Dwarf_Sword fi_dir_index;

    /* Time of last modification of the file. */

    Dwarf_Unsigned fi_time_last_mod;

    /* Length in bytes of the file. */

    Dwarf_Unsigned fi_file_length;

    /* Pointer for chaining file entries. */

    Dwarf_File_Entry fi_next;

};

typedef struct Dwarf_Line_Context_s *Dwarf_Line_Context;

/* 

    This structure provides the context in which the fields of 

    a Dwarf_Line structure are interpreted.  They come from the 

    statement program prologue.  **Updated by dwarf_srclines in 

    dwarf_line.c.

*/

struct Dwarf_Line_Context_s {

    /* 

       Points to a chain of entries providing info about source files

       for the current set of Dwarf_Line structures. File number

       'li_file 1' is last on the list, the first list entry is the

       file numbered lc_file_entry_count. The numbering of the file

       names matches the dwarf2/3 line table specification file table

       and DW_LNE_define_file numbering rules.  */

    Dwarf_File_Entry lc_file_entries;

    /* 

       Count of number of source files for this set of Dwarf_Line

       structures. */

    Dwarf_Sword lc_file_entry_count;

    /* 

       Points to the portion of .debug_line section that contains a

       list of strings naming the included directories. */

    Dwarf_Small *lc_include_directories;

    /* Count of the number of included directories. */

    Dwarf_Sword lc_include_directories_count;

    /* Count of the number of lines for this cu. */

    Dwarf_Sword lc_line_count;

    /* Points to name of compilation directory. */

    Dwarf_Small *lc_compilation_directory;

    Dwarf_Debug lc_dbg;

    Dwarf_Half lc_version_number;	/* DWARF2/3 version number, 2

					   for DWARF2, 3 for DWARF3. */

};

/*

    This structure defines a row of the line table.

    All of the fields except li_offset have the exact 

    same meaning that is defined in Section 6.2.2 

    of the Libdwarf Document. 

    li_offset is used by _dwarf_addr_finder() which is called

    by rqs(1), an sgi utility for 'moving' shared libraries

    as if the static linker (ld) had linked the shared library

    at the newly-specified address.  Most libdwarf-using 

    apps will ignore li_offset and _dwarf_addr_finder().

*/

struct Dwarf_Line_s {

    Dwarf_Addr li_address;	/* pc value of machine instr */

    union addr_or_line_s {

	struct li_inner_s {

	    Dwarf_Sword li_file;	/* int identifying src file */

	    /* li_file is a number 1-N, indexing into a conceptual

	       source file table as described in dwarf2/3 spec line

	       table doc. (see Dwarf_File_Entry lc_file_entries; and

	       Dwarf_Sword lc_file_entry_count;) */

	    Dwarf_Sword li_line;	/* source file line number. */

	    Dwarf_Half li_column;	/* source file column number */

	    Dwarf_Small li_isa;

	    /* To save space, use bit flags. */

	    /* indicate start of stmt */

	    unsigned char li_is_stmt:1;

	    /* indicate start basic block */

	    unsigned char li_basic_block:1;

	    /* first post sequence instr */

	    unsigned char li_end_sequence:1;

	    unsigned char li_prologue_end:1;

	    unsigned char li_epilogue_begin:1;

	} li_l_data;

	Dwarf_Off li_offset;	/* for rqs */

    } li_addr_line;

    Dwarf_Line_Context li_context;	/* assoc Dwarf_Line_Context_s */

};

int _dwarf_line_address_offsets(Dwarf_Debug dbg,

				Dwarf_Die die,

				Dwarf_Addr ** addrs,

				Dwarf_Off ** offs,

				Dwarf_Unsigned * returncount,

				Dwarf_Error * err);

int _dwarf_internal_srclines(Dwarf_Die die,

			     Dwarf_Line ** linebuf,

			     Dwarf_Signed * count,

			     Dwarf_Bool doaddrs,

			     Dwarf_Bool dolines, Dwarf_Error * error);

/* The LOP, WHAT_IS_OPCODE stuff is here so it can

   be reused in 3 places.  Seemed hard to keep

   the 3 places the same without an inline func or

   a macro.

   Handling the line section where the header and the

   file being processed do not match (unusual, but

   planned for in the  design of .debug_line)

   is too tricky to recode this several times and keep

   it right.

   As it is the code starting up line-reading is duplicated

   and that is just wrong to do. FIXME!

*/

#define LOP_EXTENDED 1

#define LOP_DISCARD  2

#define LOP_STANDARD 3

#define LOP_SPECIAL  4

#define WHAT_IS_OPCODE(type,opcode,base,opcode_length,line_ptr,highest_std) \

        if( (opcode) < (base) ) {                          \

           /* we know we must treat as a standard op       \

                or a special case.                         \

           */                                              \

           if((opcode) == DW_EXTENDED_OPCODE) {            \

                type = LOP_EXTENDED;                       \

           } else  if( ((highest_std)+1) >=  (base)) {     \

                /* == Standard case: compile of            \

                   dwarf_line.c and object                 \

                   have same standard op codes set.        \

                                                           \

                   >  Special case: compile of dwarf_line.c\

                   has things in standard op codes list    \

                   in dwarf.h header not                   \

                   in the object: handle this as a standard\

                   op code in switch below.                \

                   The header special ops overlap the      \

                   object standard ops.                    \

                   The new standard op codes will not      \

                   appear in the object.                   \

                */                                         \

                type = LOP_STANDARD;                       \

           } else  {                                       \

                /* These are standard opcodes in the object\

                ** that were not defined  in the header    \

                ** at the time dwarf_line.c                \

                ** was compiled. Provides the ability of   \

                ** out-of-date dwarf reader to read newer  \

                ** line table data transparently.          \

                */                                         \

                type = LOP_DISCARD;                         \

           }                                                \

                                                            \

        } else {                                            \

	   /* Is  a special op code.                        \

	   */                                               \

           type =  LOP_SPECIAL;                             \

        }

/* The following is from  the dwarf definition of 'ubyte'

   and is specifically  mentioned in section  6.2.5.1, page 54

   of the Rev 2.0.0 dwarf specification.

*/

#define MAX_LINE_OP_CODE  255

/* The following structs (Line_Table_File_Entry_s,Line_Table_Prefix_s)

   and functions allow refactoring common code into a single

   reader routine.

*/

/* There can be zero of more of these needed for 1 line prologue. */

struct Line_Table_File_Entry_s {

    Dwarf_Small *lte_filename;

    Dwarf_Unsigned lte_directory_index;

    Dwarf_Unsigned lte_last_modification_time;

    Dwarf_Unsigned lte_length_of_file;

};

/* Data  picked up from the line table prologue for a single

CU. */

struct Line_Table_Prefix_s {

    /* pf_total_length is the value of the length field for the line

       table of this CU. So it does not count the length of itself (the 

       length value) for consistency with the say lenghts recorded in

       DWARF2/3. */

    Dwarf_Unsigned pf_total_length;

    /* Length of the initial length field itself. */

    Dwarf_Half pf_length_field_length;

    /* The version is 2 for DWARF2, 3 for DWARF3 */

    Dwarf_Half pf_version;

    Dwarf_Unsigned pf_prologue_length;

    Dwarf_Small pf_minimum_instruction_length;

    /* Start and end of this CU line area. pf_line_ptr_start +

       pf_total_length + pf_length_field_length == pf_line_ptr_end.

       Meaning pf_line_ptr_start is before the length info. */

    Dwarf_Small *pf_line_ptr_start;

    Dwarf_Small *pf_line_ptr_end;

    /* Used to check that decoding of the line prologue is done right. */

    Dwarf_Small *pf_line_prologue_start;

    Dwarf_Small pf_default_is_stmt;

    Dwarf_Sbyte pf_line_base;

    Dwarf_Small pf_line_range;

    /* Highest std opcode (+1).  */

    Dwarf_Small pf_opcode_base;

    /* pf_opcode_base -1 entries (each a count, normally the value of

       each entry is 0 or 1). */

    Dwarf_Small *pf_opcode_length_table;

    Dwarf_Unsigned pf_include_directories_count;

    /* Array of pointers to dir strings. pf_include_directories_count

       entriesin the array. */

    Dwarf_Small **pf_include_directories;

    /* Count of entries in line_table_file_entries array. */

    Dwarf_Unsigned pf_files_count;

    struct Line_Table_File_Entry_s *pf_line_table_file_entries;

    /* The number to treat as standard ops. This is a special

       accomodation of gcc using the new standard opcodes but not

       updating the version number. It's legal dwarf2, but much better

       for the user to understand as dwarf3 when 'it looks ok'. */

    Dwarf_Bool pf_std_op_count;

};

void dwarf_init_line_table_prefix(struct Line_Table_Prefix_s *pf);

void dwarf_free_line_table_prefix(struct Line_Table_Prefix_s *pf);

int

  dwarf_read_line_table_prefix(Dwarf_Debug dbg,

			       Dwarf_Small * data_start,

			       Dwarf_Unsigned data_length,

			       Dwarf_Small ** updated_data_start_out,

			       struct Line_Table_Prefix_s *prefix_out,

			       Dwarf_Error * err);