diff -rcp ../binutils-2.19.51.0.14.original/bfd/ChangeLog ./bfd/ChangeLog

*** ../binutils-2.19.51.0.14.original/bfd/ChangeLog	2010-04-08 09:52:50.000000000 +0100

--- ./bfd/ChangeLog	2010-04-08 09:55:41.000000000 +0100

***************

*** 1,3 ****

--- 1,31 ----

+ 2010-04-08  Nick Clifton  <nickc@redhat.com>

+ 

+ 	Import these patches from the mainline:

+ 

+ 	2010-04-05  Jakub Jelinek  <jakub@redhat.com>

+ 

+ 	* elf-eh-frame.c (_bfd_elf_parse_eh_frame): Handle CIE version 4

+ 	provided that it has the expected address size and zero segment

+ 	length.

+ 	* dwarf2.c (struct line_head): Add maximum_ops_per_insn field.

+ 	(struct line_info): Add op_index field, change end_sequence type to

+ 	unsigned char.

+ 	(new_line_sorts_after): For the same address compare op_index.

+ 	(add_line_info): Add op_index argument, store it into the structure.

+ 	(decode_line_info): Complain about unknown versions of .debug_line.

+ 	Initialize maximum_ops_per_insn.  Add op_index state register and

+ 	track it.

+ 

+ 	2010-04-01  Jakub Jelinek  <jakub@redhat.com>

+ 

+ 	* dwarf2.c (read_attribute_value): Handle CU version 4

+ 	for DW_FORM_ref_addr, handle DW_FORM_sec_offset, DW_FORM_exprloc

+ 	and DW_FORM_flag_present.  For unknown form value return NULL.

+ 	(scan_unit_for_symbols): For DW_AT_location handle DW_FORM_exprloc

+ 	like DW_FORM_block.

+ 	(parse_comp_unit): Allow CU version 4.

+ 

+ 

  2010-04-07  Nick Clifton  <nickc@redhat.com>

  	Import this patch from the mainline:

diff -rcp ../binutils-2.19.51.0.14.original/bfd/dwarf2.c ./bfd/dwarf2.c

*** ../binutils-2.19.51.0.14.original/bfd/dwarf2.c	2010-04-08 09:52:50.000000000 +0100

--- ./bfd/dwarf2.c	2010-04-08 09:53:13.000000000 +0100

*************** struct line_head

*** 45,50 ****

--- 45,51 ----

    unsigned short version;

    bfd_vma prologue_length;

    unsigned char minimum_instruction_length;

+   unsigned char maximum_ops_per_insn;

    unsigned char default_is_stmt;

    int line_base;

    unsigned char line_range;

*************** read_attribute_value (struct attribute *

*** 750,756 ****

      case DW_FORM_ref_addr:

        /* DW_FORM_ref_addr is an address in DWARF2, and an offset in

  	 DWARF3.  */

!       if (unit->version == 3)

  	{

  	  if (unit->offset_size == 4)

  	    attr->u.val = read_4_bytes (unit->abfd, info_ptr);

--- 751,757 ----

      case DW_FORM_ref_addr:

        /* DW_FORM_ref_addr is an address in DWARF2, and an offset in

  	 DWARF3.  */

!       if (unit->version == 3 || unit->version == 4)

  	{

  	  if (unit->offset_size == 4)

  	    attr->u.val = read_4_bytes (unit->abfd, info_ptr);

*************** read_attribute_value (struct attribute *

*** 764,769 ****

--- 765,777 ----

        attr->u.val = read_address (unit, info_ptr);

        info_ptr += unit->addr_size;

        break;

+     case DW_FORM_sec_offset:

+       if (unit->offset_size == 4)

+ 	attr->u.val = read_4_bytes (unit->abfd, info_ptr);

+       else

+ 	attr->u.val = read_8_bytes (unit->abfd, info_ptr);

+       info_ptr += unit->offset_size;

+       break;

      case DW_FORM_block2:

        amt = sizeof (struct dwarf_block);

        blk = bfd_alloc (abfd, amt);

*************** read_attribute_value (struct attribute *

*** 802,807 ****

--- 810,816 ----

        attr->u.str = read_indirect_string (unit, info_ptr, &bytes_read);

        info_ptr += bytes_read;

        break;

+     case DW_FORM_exprloc:

      case DW_FORM_block:

        amt = sizeof (struct dwarf_block);

        blk = bfd_alloc (abfd, amt);

*************** read_attribute_value (struct attribute *

*** 828,833 ****

--- 837,845 ----

        attr->u.val = read_1_byte (abfd, info_ptr);

        info_ptr += 1;

        break;

+     case DW_FORM_flag_present:

+       attr->u.val = 1;

+       break;

      case DW_FORM_sdata:

        attr->u.sval = read_signed_leb128 (abfd, info_ptr, &bytes_read);

        info_ptr += bytes_read;

*************** read_attribute_value (struct attribute *

*** 865,870 ****

--- 877,883 ----

        (*_bfd_error_handler) (_("Dwarf Error: Invalid or unhandled FORM value: %u."),

  			     form);

        bfd_set_error (bfd_error_bad_value);

+       return NULL;

      }

    return info_ptr;

  }

*************** struct line_info

*** 894,900 ****

    char *filename;

    unsigned int line;

    unsigned int column;

!   int end_sequence;		/* End of (sequential) code sequence.  */

  };

  struct fileinfo

--- 907,914 ----

    char *filename;

    unsigned int line;

    unsigned int column;

!   unsigned char op_index;

!   unsigned char end_sequence;		/* End of (sequential) code sequence.  */

  };

  struct fileinfo

*************** new_line_sorts_after (struct line_info *

*** 960,966 ****

  {

    return (new_line->address > line->address

  	  || (new_line->address == line->address

! 	      && new_line->end_sequence < line->end_sequence));

  }

--- 974,982 ----

  {

    return (new_line->address > line->address

  	  || (new_line->address == line->address

! 	      && (new_line->op_index > line->op_index

! 		  || (new_line->op_index == line->op_index

! 		      && new_line->end_sequence < line->end_sequence))));

  }

*************** new_line_sorts_after (struct line_info *

*** 972,977 ****

--- 988,994 ----

  static void

  add_line_info (struct line_info_table *table,

  	       bfd_vma address,

+ 	       unsigned char op_index,

  	       char *filename,

  	       unsigned int line,

  	       unsigned int column,

*************** add_line_info (struct line_info_table *t

*** 982,987 ****

--- 999,1005 ----

    /* Set member data of 'info'.  */

    info->address = address;

+   info->op_index = op_index;

    info->line = line;

    info->column = column;

    info->end_sequence = end_sequence;

*************** add_line_info (struct line_info_table *t

*** 1012,1017 ****

--- 1030,1036 ----

    if (table->last_line

        && table->last_line->address == address

+       && table->last_line->op_index == op_index

        && table->last_line->end_sequence == end_sequence)

      {

        /* We only keep the last entry with the same address and end

*************** decode_line_info (struct comp_unit *unit

*** 1222,1227 ****

--- 1241,1253 ----

      }

    line_end = line_ptr + lh.total_length;

    lh.version = read_2_bytes (abfd, line_ptr);

+   if (lh.version < 2 || lh.version > 4)

+     {

+       (*_bfd_error_handler)

+ 	(_("Dwarf Error: Unhandled .debug_line version %d."), lh.version);

+       bfd_set_error (bfd_error_bad_value);

+       return NULL;

+     }

    line_ptr += 2;

    if (offset_size == 4)

      lh.prologue_length = read_4_bytes (abfd, line_ptr);

*************** decode_line_info (struct comp_unit *unit

*** 1230,1235 ****

--- 1256,1275 ----

    line_ptr += offset_size;

    lh.minimum_instruction_length = read_1_byte (abfd, line_ptr);

    line_ptr += 1;

+   if (lh.version >= 4)

+     {

+       lh.maximum_ops_per_insn = read_1_byte (abfd, line_ptr);

+       line_ptr += 1;

+     }

+   else

+     lh.maximum_ops_per_insn = 1;

+   if (lh.maximum_ops_per_insn == 0)

+     {

+       (*_bfd_error_handler)

+ 	(_("Dwarf Error: Invalid maximum operations per instruction."));

+       bfd_set_error (bfd_error_bad_value);

+       return NULL;

+     }

    lh.default_is_stmt = read_1_byte (abfd, line_ptr);

    line_ptr += 1;

    lh.line_base = read_1_signed_byte (abfd, line_ptr);

*************** decode_line_info (struct comp_unit *unit

*** 1317,1322 ****

--- 1357,1363 ----

      {

        /* State machine registers.  */

        bfd_vma address = 0;

+       unsigned char op_index = 0;

        char * filename = table->num_files ? concat_filename (table, 1) : NULL;

        unsigned int line = 1;

        unsigned int column = 0;

*************** decode_line_info (struct comp_unit *unit

*** 1340,1350 ****

  	    {

  	      /* Special operand.  */

  	      adj_opcode = op_code - lh.opcode_base;

! 	      address += (adj_opcode / lh.line_range)

! 		* lh.minimum_instruction_length;

  	      line += lh.line_base + (adj_opcode % lh.line_range);

  	      /* Append row to matrix using current values.  */

! 	      add_line_info (table, address, filename, line, column, 0);

  	      if (address < low_pc)

  		low_pc = address;

  	      if (address > high_pc)

--- 1381,1401 ----

  	    {

  	      /* Special operand.  */

  	      adj_opcode = op_code - lh.opcode_base;

! 	      if (lh.maximum_ops_per_insn == 1)

! 		address += (adj_opcode / lh.line_range)

! 			   * lh.minimum_instruction_length;

! 	      else

! 		{

! 		  address += ((op_index + (adj_opcode / lh.line_range))

! 			      / lh.maximum_ops_per_insn)

! 			     * lh.minimum_instruction_length;

! 		  op_index = (op_index + (adj_opcode / lh.line_range))

! 			     % lh.maximum_ops_per_insn;

! 		}

  	      line += lh.line_base + (adj_opcode % lh.line_range);

  	      /* Append row to matrix using current values.  */

! 	      add_line_info (table, address, op_index, filename,

! 			     line, column, 0);

  	      if (address < low_pc)

  		low_pc = address;

  	      if (address > high_pc)

*************** decode_line_info (struct comp_unit *unit

*** 1362,1369 ****

  		{

  		case DW_LNE_end_sequence:

  		  end_sequence = 1;

! 		  add_line_info (table, address, filename, line, column,

! 				 end_sequence);

  		  if (address < low_pc)

  		    low_pc = address;

  		  if (address > high_pc)

--- 1413,1420 ----

  		{

  		case DW_LNE_end_sequence:

  		  end_sequence = 1;

! 		  add_line_info (table, address, op_index, filename,

! 				 line, column, end_sequence);

  		  if (address < low_pc)

  		    low_pc = address;

  		  if (address > high_pc)

*************** decode_line_info (struct comp_unit *unit

*** 1372,1377 ****

--- 1423,1429 ----

  		  break;

  		case DW_LNE_set_address:

  		  address = read_address (unit, line_ptr);

+ 		  op_index = 0;

  		  line_ptr += unit->addr_size;

  		  break;

  		case DW_LNE_define_file:

*************** decode_line_info (struct comp_unit *unit

*** 1419,1433 ****

  		}

  	      break;

  	    case DW_LNS_copy:

! 	      add_line_info (table, address, filename, line, column, 0);

  	      if (address < low_pc)

  		low_pc = address;

  	      if (address > high_pc)

  		high_pc = address;

  	      break;

  	    case DW_LNS_advance_pc:

! 	      address += lh.minimum_instruction_length

! 		* read_unsigned_leb128 (abfd, line_ptr, &bytes_read);

  	      line_ptr += bytes_read;

  	      break;

  	    case DW_LNS_advance_line:

--- 1471,1496 ----

  		}

  	      break;

  	    case DW_LNS_copy:

! 	      add_line_info (table, address, op_index,

! 			     filename, line, column, 0);

  	      if (address < low_pc)

  		low_pc = address;

  	      if (address > high_pc)

  		high_pc = address;

  	      break;

  	    case DW_LNS_advance_pc:

! 	      if (lh.maximum_ops_per_insn == 1)

! 		address += lh.minimum_instruction_length

! 			   * read_unsigned_leb128 (abfd, line_ptr,

! 						   &bytes_read);

! 	      else

! 		{

! 		  bfd_vma adjust = read_unsigned_leb128 (abfd, line_ptr,

! 							 &bytes_read);

! 		  address = ((op_index + adjust) / lh.maximum_ops_per_insn)

! 			    * lh.minimum_instruction_length;

! 		  op_index = (op_index + adjust) % lh.maximum_ops_per_insn;

! 		}

  	      line_ptr += bytes_read;

  	      break;

  	    case DW_LNS_advance_line:

*************** decode_line_info (struct comp_unit *unit

*** 1457,1467 ****

  	    case DW_LNS_set_basic_block:

  	      break;

  	    case DW_LNS_const_add_pc:

! 	      address += lh.minimum_instruction_length

! 		      * ((255 - lh.opcode_base) / lh.line_range);

  	      break;

  	    case DW_LNS_fixed_advance_pc:

  	      address += read_2_bytes (abfd, line_ptr);

  	      line_ptr += 2;

  	      break;

  	    default:

--- 1520,1539 ----

  	    case DW_LNS_set_basic_block:

  	      break;

  	    case DW_LNS_const_add_pc:

! 	      if (lh.maximum_ops_per_insn == 1)

! 		address += lh.minimum_instruction_length

! 			   * ((255 - lh.opcode_base) / lh.line_range);

! 	      else

! 		{

! 		  bfd_vma adjust = ((255 - lh.opcode_base) / lh.line_range);

! 		  address += lh.minimum_instruction_length

! 			     * ((op_index + adjust) / lh.maximum_ops_per_insn);

! 		  op_index = (op_index + adjust) % lh.maximum_ops_per_insn;

! 		}

  	      break;

  	    case DW_LNS_fixed_advance_pc:

  	      address += read_2_bytes (abfd, line_ptr);

+ 	      op_index = 0;

  	      line_ptr += 2;

  	      break;

  	    default:

*************** scan_unit_for_symbols (struct comp_unit 

*** 1994,1999 ****

--- 2066,2072 ----

  		    case DW_FORM_block1:

  		    case DW_FORM_block2:

  		    case DW_FORM_block4:

+ 		    case DW_FORM_exprloc:

  		      if (*attr.u.blk->data == DW_OP_addr)

  			{

  			  var->stack = 0;

*************** parse_comp_unit (struct dwarf2_debug *st

*** 2095,2103 ****

    addr_size = read_1_byte (abfd, info_ptr);

    info_ptr += 1;

!   if (version != 2 && version != 3)

      {

!       (*_bfd_error_handler) (_("Dwarf Error: found dwarf version '%u', this reader only handles version 2 and 3 information."), version);

        bfd_set_error (bfd_error_bad_value);

        return 0;

      }

--- 2168,2176 ----

    addr_size = read_1_byte (abfd, info_ptr);

    info_ptr += 1;

!   if (version != 2 && version != 3 && version != 4)

      {

!       (*_bfd_error_handler) (_("Dwarf Error: found dwarf version '%u', this reader only handles version 2, 3 and 4 information."), version);

        bfd_set_error (bfd_error_bad_value);

        return 0;

      }

diff -rcp ../binutils-2.19.51.0.14.original/bfd/elf-eh-frame.c ./bfd/elf-eh-frame.c

*** ../binutils-2.19.51.0.14.original/bfd/elf-eh-frame.c	2010-04-08 09:52:50.000000000 +0100

--- ./bfd/elf-eh-frame.c	2010-04-08 09:53:24.000000000 +0100

*************** _bfd_elf_parse_eh_frame (bfd *abfd, stru

*** 610,616 ****

  	  REQUIRE (read_byte (&buf, end, &cie->version));

  	  /* Cannot handle unknown versions.  */

! 	  REQUIRE (cie->version == 1 || cie->version == 3);

  	  REQUIRE (strlen ((char *) buf) < sizeof (cie->augmentation));

  	  strcpy (cie->augmentation, (char *) buf);

--- 610,618 ----

  	  REQUIRE (read_byte (&buf, end, &cie->version));

  	  /* Cannot handle unknown versions.  */

! 	  REQUIRE (cie->version == 1

! 		   || cie->version == 3

! 		   || cie->version == 4);

  	  REQUIRE (strlen ((char *) buf) < sizeof (cie->augmentation));

  	  strcpy (cie->augmentation, (char *) buf);

*************** _bfd_elf_parse_eh_frame (bfd *abfd, stru

*** 625,630 ****

--- 627,639 ----

  	      REQUIRE (skip_bytes (&buf, end, ptr_size));

  	      SKIP_RELOCS (buf);

  	    }

+ 	  if (cie->version >= 4)

+ 	    {

+ 	      REQUIRE (buf + 1 < end);

+ 	      REQUIRE (buf[0] == ptr_size);

+ 	      REQUIRE (buf[1] == 0);

+ 	      buf += 2;

+ 	    }

  	  REQUIRE (read_uleb128 (&buf, end, &cie->code_align));

  	  REQUIRE (read_sleb128 (&buf, end, &cie->data_align));

  	  if (cie->version == 1)

diff -rcp ../binutils-2.19.51.0.14.original/binutils/ChangeLog ./binutils/ChangeLog

*** ../binutils-2.19.51.0.14.original/binutils/ChangeLog	2010-04-08 09:52:41.000000000 +0100

--- ./binutils/ChangeLog	2010-04-08 09:56:22.000000000 +0100

***************

*** 1,3 ****

--- 1,31 ----

+ 2010-04-08  Nick Clifton  <nickc@redhat.com>

+ 

+ 	Import these patches from the mainline:

+ 

+ 	2010-04-05  Jakub Jelinek  <jakub@redhat.com>

+ 

+ 	* dwarf.c (struct Frame_Chunk): Add ptr_size and segment_size

+ 	fields.

+ 	(display_debug_frames): Handle CIE version 4.

+ 

+ 	* dwarf.c (struct State_Machine_Registers): Add op_index field,

+ 	change end_sequence type to unsigned char.

+ 	(reset_state_machine): Clear op_index.

+ 	(process_extended_line_op): For DW_LNE_set_address clear op_index.

+ 	(display_debug_lines_raw): Initialize li_max_ops_per_insn.

+ 	Track op_index state machine register and print it if

+ 	li_max_ops_per_insn is != 1.

+ 	(display_debug_lines_decoded): Likewise.

+ 

+ 	2010-04-01  Jakub Jelinek  <jakub@redhat.com>

+ 

+ 	* dwarf.c (read_and_display_attr_value): Don't reject

+ 	dwarf_version == 4.  Handle DW_FORM_sec_offset, DW_FORM_flag_present

+ 	and DW_FORM_exprloc.

+ 	(process_debug_info): Handle cu_version == 4.

+ 	(display_debug_lines_raw, display_debug_lines_decoded): Handle

+ 	li_version == 4.

+ 

  2009-07-20  H.J. Lu  <hongjiu.lu@intel.com>

  	* NEWS: Mention --insn-width.

diff -rcp ../binutils-2.19.51.0.14.original/binutils/dwarf.c ./binutils/dwarf.c

*** ../binutils-2.19.51.0.14.original/binutils/dwarf.c	2010-04-08 09:52:41.000000000 +0100

--- ./binutils/dwarf.c	2010-04-08 09:53:32.000000000 +0100

*************** typedef struct State_Machine_Registers

*** 253,259 ****

    unsigned int column;

    int is_stmt;

    int basic_block;

!   int end_sequence;

  /* This variable hold the number of the last entry seen

     in the File Table.  */

    unsigned int last_file_entry;

--- 253,260 ----

    unsigned int column;

    int is_stmt;

    int basic_block;

!   unsigned char op_index;

!   unsigned char end_sequence;

  /* This variable hold the number of the last entry seen

     in the File Table.  */

    unsigned int last_file_entry;

*************** static void

*** 265,270 ****

--- 266,272 ----

  reset_state_machine (int is_stmt)

  {

    state_machine_regs.address = 0;

+   state_machine_regs.op_index = 0;

    state_machine_regs.file = 1;

    state_machine_regs.line = 1;

    state_machine_regs.column = 0;

*************** process_extended_line_op (unsigned char 

*** 311,316 ****

--- 313,319 ----

        adr = byte_get (data, len - bytes_read - 1);

        printf (_("set Address to 0x%lx\n"), adr);

        state_machine_regs.address = adr;

+       state_machine_regs.op_index = 0;

        break;

      case DW_LNE_define_file:

*************** read_and_display_attr_value (unsigned lo

*** 1132,1145 ****

  	  uvalue = byte_get (data, pointer_size);

  	  data += pointer_size;

  	}

!       else if (dwarf_version == 3)

  	{

  	  uvalue = byte_get (data, offset_size);

  	  data += offset_size;

  	}

        else

  	{

! 	  error (_("Internal error: DWARF version is not 2 or 3.\n"));

  	}

        break;

--- 1135,1148 ----

  	  uvalue = byte_get (data, pointer_size);

  	  data += pointer_size;

  	}

!       else if (dwarf_version == 3 || dwarf_version == 4)

  	{

  	  uvalue = byte_get (data, offset_size);

  	  data += offset_size;

  	}

        else

  	{

! 	  error (_("Internal error: DWARF version is not 2, 3 or 4.\n"));

  	}

        break;

*************** read_and_display_attr_value (unsigned lo

*** 1149,1158 ****

--- 1152,1166 ----

        break;

      case DW_FORM_strp:

+     case DW_FORM_sec_offset:

        uvalue = byte_get (data, offset_size);

        data += offset_size;

        break;

+     case DW_FORM_flag_present:

+       uvalue = 1;

+       break;

+ 

      case DW_FORM_ref1:

      case DW_FORM_flag:

      case DW_FORM_data1:

*************** read_and_display_attr_value (unsigned lo

*** 1211,1220 ****

--- 1219,1230 ----

      case DW_FORM_data4:

      case DW_FORM_addr:

+     case DW_FORM_sec_offset:

        if (!do_loc)

  	printf (" 0x%lx", uvalue);

        break;

+     case DW_FORM_flag_present:

      case DW_FORM_flag:

      case DW_FORM_data1:

      case DW_FORM_data2:

*************** read_and_display_attr_value (unsigned lo

*** 1250,1255 ****

--- 1260,1266 ----

        break;

      case DW_FORM_block:

+     case DW_FORM_exprloc:

        uvalue = read_leb128 (data, & bytes_read, 0);

        block_start = data + bytes_read;

        if (do_loc)

*************** read_and_display_attr_value (unsigned lo

*** 1315,1321 ****

  	case DW_AT_segment:

  	case DW_AT_static_link:

  	case DW_AT_use_location:

!     	  if (form == DW_FORM_data4 || form == DW_FORM_data8)

  	    {

  	      /* Process location list.  */

  	      unsigned int max = debug_info_p->max_loc_offsets;

--- 1326,1334 ----

  	case DW_AT_segment:

  	case DW_AT_static_link:

  	case DW_AT_use_location:

!     	  if (form == DW_FORM_data4

! 	      || form == DW_FORM_data8

! 	      || form == DW_FORM_sec_offset)

  	    {

  	      /* Process location list.  */

  	      unsigned int max = debug_info_p->max_loc_offsets;

*************** read_and_display_attr_value (unsigned lo

*** 1344,1350 ****

  	  break;

  	case DW_AT_ranges:

! 	  if (form == DW_FORM_data4 || form == DW_FORM_data8)

  	    {

  	      /* Process range list.  */

  	      unsigned int max = debug_info_p->max_range_lists;

--- 1357,1365 ----

  	  break;

  	case DW_AT_ranges:

! 	  if (form == DW_FORM_data4

! 	      || form == DW_FORM_data8

! 	      || form == DW_FORM_sec_offset)

  	    {

  	      /* Process range list.  */

  	      unsigned int max = debug_info_p->max_range_lists;

*************** read_and_display_attr_value (unsigned lo

*** 1552,1558 ****

      case DW_AT_segment:

      case DW_AT_static_link:

      case DW_AT_use_location:

!       if (form == DW_FORM_data4 || form == DW_FORM_data8)

  	printf (_("(location list)"));

        /* Fall through.  */

      case DW_AT_allocated:

--- 1567,1575 ----

      case DW_AT_segment:

      case DW_AT_static_link:

      case DW_AT_use_location:

!       if (form == DW_FORM_data4

! 	  || form == DW_FORM_data8

! 	  || form == DW_FORM_sec_offset)

  	printf (_("(location list)"));

        /* Fall through.  */

      case DW_AT_allocated:

*************** process_debug_info (struct dwarf_section

*** 1949,1955 ****

        tags = hdrptr;

        start += compunit.cu_length + initial_length_size;

!       if (compunit.cu_version != 2 && compunit.cu_version != 3)

  	{

  	  warn (_("CU at offset %lx contains corrupt or unsupported version number: %d.\n"),

  		cu_offset, compunit.cu_version);

--- 1966,1974 ----

        tags = hdrptr;

        start += compunit.cu_length + initial_length_size;

!       if (compunit.cu_version != 2

! 	  && compunit.cu_version != 3

! 	  && compunit.cu_version != 4)

  	{

  	  warn (_("CU at offset %lx contains corrupt or unsupported version number: %d.\n"),

  		cu_offset, compunit.cu_version);

*************** display_debug_lines_raw (struct dwarf_se

*** 2166,2174 ****

        /* Check its version number.  */

        info.li_version = byte_get (hdrptr, 2);

        hdrptr += 2;

!       if (info.li_version != 2 && info.li_version != 3)

  	{

! 	  warn (_("Only DWARF version 2 and 3 line info is currently supported.\n"));

  	  return 0;

  	}

--- 2185,2195 ----

        /* Check its version number.  */

        info.li_version = byte_get (hdrptr, 2);

        hdrptr += 2;

!       if (info.li_version != 2

! 	  && info.li_version != 3

! 	  && info.li_version != 4)

  	{

! 	  warn (_("Only DWARF version 2, 3 and 4 line info is currently supported.\n"));

  	  return 0;

  	}

*************** display_debug_lines_raw (struct dwarf_se

*** 2176,2181 ****

--- 2197,2214 ----

        hdrptr += offset_size;

        info.li_min_insn_length = byte_get (hdrptr, 1);

        hdrptr++;

+       if (info.li_version >= 4)

+ 	{

+ 	  info.li_max_ops_per_insn = byte_get (hdrptr, 1);

+ 	  hdrptr++;

+ 	  if (info.li_max_ops_per_insn == 0)

+ 	    {

+ 	      warn (_("Invalid maximum operations per insn.\n"));

+ 	      return 0;

+ 	    }

+ 	}

+       else

+ 	info.li_max_ops_per_insn = 1;

        info.li_default_is_stmt = byte_get (hdrptr, 1);

        hdrptr++;

        info.li_line_base = byte_get (hdrptr, 1);

*************** display_debug_lines_raw (struct dwarf_se

*** 2194,2199 ****

--- 2227,2234 ----

        printf (_("  DWARF Version:               %d\n"), info.li_version);

        printf (_("  Prologue Length:             %d\n"), info.li_prologue_length);

        printf (_("  Minimum Instruction Length:  %d\n"), info.li_min_insn_length);

+       if (info.li_version >= 4)

+ 	printf (_("  Maximum Ops per Instruction: %d\n"), info.li_max_ops_per_insn);

        printf (_("  Initial value of 'is_stmt':  %d\n"), info.li_default_is_stmt);

        printf (_("  Line Base:                   %d\n"), info.li_line_base);

        printf (_("  Line Range:                  %d\n"), info.li_line_range);

*************** display_debug_lines_raw (struct dwarf_se

*** 2277,2286 ****

  	  if (op_code >= info.li_opcode_base)

  	    {

  	      op_code -= info.li_opcode_base;

! 	      uladv = (op_code / info.li_line_range) * info.li_min_insn_length;

! 	      state_machine_regs.address += uladv;

! 	      printf (_("  Special opcode %d: advance Address by %lu to 0x%lx"),

! 		      op_code, uladv, state_machine_regs.address);

  	      adv = (op_code % info.li_line_range) + info.li_line_base;

  	      state_machine_regs.line += adv;

  	      printf (_(" and Line by %d to %d\n"),

--- 2312,2338 ----

  	  if (op_code >= info.li_opcode_base)

  	    {

  	      op_code -= info.li_opcode_base;

! 	      uladv = (op_code / info.li_line_range);

! 	      if (info.li_max_ops_per_insn == 1)

! 		{

! 		  uladv *= info.li_min_insn_length;

! 		  state_machine_regs.address += uladv;

! 		  printf (_("  Special opcode %d: advance Address by %lu to 0x%lx"),

! 			  op_code, uladv, state_machine_regs.address);

! 		}

! 	      else

! 		{

! 		  state_machine_regs.address

! 		    += ((state_machine_regs.op_index + uladv)

! 			/ info.li_max_ops_per_insn)

! 		       * info.li_min_insn_length;

! 		  state_machine_regs.op_index

! 		    = (state_machine_regs.op_index + uladv)

! 		      % info.li_max_ops_per_insn;

! 		  printf (_("  Special opcode %d: advance Address by %lu to 0x%lx[%d]"),

! 			  op_code, uladv, state_machine_regs.address,

! 			  state_machine_regs.op_index);

! 		}

  	      adv = (op_code % info.li_line_range) + info.li_line_base;

  	      state_machine_regs.line += adv;

  	      printf (_(" and Line by %d to %d\n"),

*************** display_debug_lines_raw (struct dwarf_se

*** 2298,2308 ****

  	    case DW_LNS_advance_pc:

  	      uladv = read_leb128 (data, & bytes_read, 0);

- 	      uladv *= info.li_min_insn_length;

  	      data += bytes_read;

! 	      state_machine_regs.address += uladv;

! 	      printf (_("  Advance PC by %lu to 0x%lx\n"), uladv,

! 		      state_machine_regs.address);

  	      break;

  	    case DW_LNS_advance_line:

--- 2350,2376 ----

  	    case DW_LNS_advance_pc:

  	      uladv = read_leb128 (data, & bytes_read, 0);

  	      data += bytes_read;

! 	      if (info.li_max_ops_per_insn == 1)

! 		{

! 		  uladv *= info.li_min_insn_length;

! 		  state_machine_regs.address += uladv;

! 		  printf (_("  Advance PC by %lu to 0x%lx\n"), uladv,

! 			  state_machine_regs.address);

! 		}

! 	      else

! 		{

! 		  state_machine_regs.address

! 		    += ((state_machine_regs.op_index + uladv)

! 			/ info.li_max_ops_per_insn)

! 		       * info.li_min_insn_length;

! 		  state_machine_regs.op_index

! 		    = (state_machine_regs.op_index + uladv)

! 		      % info.li_max_ops_per_insn;

! 		  printf (_("  Advance PC by %lu to 0x%lx[%d]\n"), uladv,

! 			  state_machine_regs.address,

! 			  state_machine_regs.op_index);

! 		}

  	      break;

  	    case DW_LNS_advance_line:

*************** display_debug_lines_raw (struct dwarf_se

*** 2341,2357 ****

  	      break;

  	    case DW_LNS_const_add_pc:

! 	      uladv = (((255 - info.li_opcode_base) / info.li_line_range)

! 		      * info.li_min_insn_length);

! 	      state_machine_regs.address += uladv;

! 	      printf (_("  Advance PC by constant %lu to 0x%lx\n"), uladv,

! 		      state_machine_regs.address);

  	      break;

  	    case DW_LNS_fixed_advance_pc:

  	      uladv = byte_get (data, 2);

  	      data += 2;

  	      state_machine_regs.address += uladv;

  	      printf (_("  Advance PC by fixed size amount %lu to 0x%lx\n"),

  		      uladv, state_machine_regs.address);

  	      break;

--- 2409,2442 ----

  	      break;

  	    case DW_LNS_const_add_pc:

! 	      uladv = ((255 - info.li_opcode_base) / info.li_line_range);

! 	      if (info.li_max_ops_per_insn)

! 		{

! 		  uladv *= info.li_min_insn_length;

! 		  state_machine_regs.address += uladv;

! 		  printf (_("  Advance PC by constant %lu to 0x%lx\n"), uladv,

! 			  state_machine_regs.address);

! 		}

! 	      else

! 		{

! 		  state_machine_regs.address

! 		    += ((state_machine_regs.op_index + uladv)

! 			/ info.li_max_ops_per_insn)

! 		       * info.li_min_insn_length;

! 		  state_machine_regs.op_index

! 		    = (state_machine_regs.op_index + uladv)

! 		      % info.li_max_ops_per_insn;

! 		  printf (_("  Advance PC by constant %lu to 0x%lx[%d]\n"),

! 			  uladv, state_machine_regs.address,

! 			  state_machine_regs.op_index);

! 		}

  	      break;

  	    case DW_LNS_fixed_advance_pc:

  	      uladv = byte_get (data, 2);

  	      data += 2;

  	      state_machine_regs.address += uladv;

+ 	      state_machine_regs.op_index = 0;

  	      printf (_("  Advance PC by fixed size amount %lu to 0x%lx\n"),

  		      uladv, state_machine_regs.address);

  	      break;

*************** display_debug_lines_decoded (struct dwar

*** 2454,2462 ****

        /* Get this CU's Line Number Block version number.  */

        info.li_version = byte_get (hdrptr, 2);

        hdrptr += 2;

!       if (info.li_version != 2 && info.li_version != 3)

          {

!           warn (_("Only DWARF version 2 and 3 line info is currently "

                  "supported.\n"));

            return 0;

          }

--- 2539,2549 ----

        /* Get this CU's Line Number Block version number.  */

        info.li_version = byte_get (hdrptr, 2);

        hdrptr += 2;

!       if (info.li_version != 2

! 	  && info.li_version != 3