Emit .debug_line with empty program for each table

diff --git a/libdw/c++/output-shape.cc b/libdw/c++/output-shape.cc
index e4d469edde4efa46257b04ca3d32e99ee297995f..f6fe95f22761d6372bf220b03361bb3ff6e1e379 100644 (file)
--- a/libdw/c++/output-shape.cc
+++ b/libdw/c++/output-shape.cc
@@ -50,8 +50,11 @@
 #include <config.h>
 #include <cstdarg>
 #include <byteswap.h>
+#include <tr1/unordered_set>
+#include <tr1/functional>
 #include "dwarf_output"
 #include "../../src/dwarfstrings.h"
+#include "../../src/dwarf-opcodes.h"
 
 using namespace elfutils;
 
@@ -780,6 +783,14 @@ namespace
       (std::string ("Don't know whether value fits ")
        + dwarf_form_string (form));
   }
+
+  void
+  write_version (section_appender &appender,
+                bool big_endian,
+                unsigned version)
+  {
+    ::dw_write<2> (appender.alloc (2), version, big_endian);
+  }
 }
 
 void
@@ -1396,11 +1407,8 @@ dwarf_output::writer::output_debug_info (section_appender &appender)
       // Remember where the unit started for DIE offset calculation.
       size_t cu_start = appender.size ();
 
-      // Unit length.
       length_field lf (appender, _m_dwarf_64, _m_big_endian);
-
-      // Version.
-      ::dw_write<2> (appender.alloc (2), 3, _m_big_endian);
+      ::write_version (appender, _m_big_endian, 3);
 
       // Debug abbrev offset.  Use the single abbrev table that we
       // emit at offset 0.
@@ -1416,10 +1424,114 @@ dwarf_output::writer::output_debug_info (section_appender &appender)
     }
 }
 
+namespace
+{
+  struct emit_extended_opcode
+  {
+    emit_extended_opcode (section_appender &appender, int opcode)
+    {
+      appender.push_back (0); // first byte is zero
+      appender.push_back (1); // uleb128, number of bytes of instruction
+      appender.push_back (opcode); // ubyte opcode
+    }
+  };
+}
+
 void
-dwarf_output::writer::output_debug_line (section_appender &appender
-                                        __attribute__ ((unused)))
+dwarf_output::writer::output_debug_line (section_appender &appender)
 {
+  std::back_insert_iterator <section_appender> inserter
+    = std::back_inserter (appender);
+
+  for (subr::value_set<dwarf_output::value::value_lineptr>::const_iterator it
+        = _m_col._m_line_info.begin ();
+       it != _m_col._m_line_info.end (); ++it)
+    {
+      dwarf_output::line_info_table const &lt = it->second;
+
+      length_field lf (appender, _m_dwarf_64, _m_big_endian);
+      ::write_version (appender, _m_big_endian, 3);
+      length_field header_length (appender, _m_dwarf_64, _m_big_endian);
+
+      // minimum_instruction_length
+      appender.push_back (1);
+
+      // default_is_stmt
+      appender.push_back (1);
+
+      // line_base, line_range
+      appender.push_back (uint8_t (int8_t (0)));
+      appender.push_back (1);
+
+#define DW_LNS_0(OP) 0,
+#define DW_LNS_1(OP, OP1) 1,
+      uint8_t opcode_lengths[] = {
+       DW_LNS_OPERANDS
+      };
+#undef DW_LNS_1
+#undef DW_LNS_0
+
+      // opcode_base
+      appender.push_back (sizeof (opcode_lengths) + 1);
+
+      // standard_opcode_lengths (array of ubyte)
+      std::copy (opcode_lengths, opcode_lengths + sizeof (opcode_lengths),
+                inserter);
+
+      // include_directories
+      dwarf_output::directory_table const &dirs = lt.include_directories ();
+      for (dwarf_output::directory_table::const_iterator dir_it
+            = dirs.begin (); dir_it != dirs.end (); ++dir_it)
+       if (*dir_it != "")
+         write_string (*dir_it, DW_FORM_string, appender);
+      *inserter++ = 0;
+
+      // file_names
+      typedef std::tr1::unordered_set<dwarf_output::source_file,
+       dwarf_output::source_file::hasher>
+       source_file_set;
+      source_file_set source_files;
+      dwarf_output::line_table const &lines = lt.lines ();
+      for (dwarf_output::line_table::const_iterator line_it = lines.begin ();
+          line_it != lines.end (); ++line_it)
+       {
+         dwarf_output::line_entry const &line = *line_it;
+         source_files.insert (line.file ());
+       }
+      for (source_file_set::const_iterator sfit = source_files.begin ();
+          sfit != source_files.end (); ++sfit)
+       {
+         dwarf_output::source_file const &sf = *sfit;
+
+         // Find the best-fitting directory for this filename.
+         size_t dir_index = 0;
+         size_t match_len = 0;
+         for (dwarf_output::directory_table::const_iterator dir_it
+                = dirs.begin () + 1; dir_it != dirs.end (); ++dir_it)
+           {
+             std::string const &dir = *dir_it;
+             if (dir.length () > match_len
+                 && sf.name ().substr (0, dir.length ()) == dir)
+               {
+                 dir_index = dir_it - dirs.begin ();
+                 match_len = dir.length ();
+               }
+           }
+
+         write_string (sf.name ().substr (match_len + 1),
+                       DW_FORM_string, appender);
+         ::dw_write_uleb128 (inserter, dir_index);
+         ::dw_write_uleb128 (inserter, sf.mtime ());
+         ::dw_write_uleb128 (inserter, sf.size ());
+       }
+      *inserter++ = 0;
+
+      header_length.finish ();
+
+      emit_extended_opcode (appender, DW_LNE_end_sequence);
+
+      lf.finish ();
+    }
 }
 
 void

diff --git a/src/dwarf-opcodes.h b/src/dwarf-opcodes.h
index 739676b24f5b04fbbddf79d2748154cea69966a6..77139d40172764b5961a06a29a330a73758295a1 100644 (file)
--- a/src/dwarf-opcodes.h
+++ b/src/dwarf-opcodes.h
@@ -1,4 +1,4 @@
-/*
+/* Number and type of operands for each opcode.
    Copyright (C) 2009 Red Hat, Inc.
    This file is part of Red Hat elfutils.
 
@@ -202,3 +202,25 @@
   DW_OP_0 (DW_OP_call_frame_cfa)                               \
   DW_OP_2 (DW_OP_bit_piece, DW_FORM_udata, DW_FORM_udata)      \
   DW_OP_0 (DW_OP_GNU_uninit)
+
+/* Needs to be kept in the order of increasing opcode number.  */
+#define DW_LNS_OPERANDS                                        \
+  DW_LNS_0 (DW_LNS_copy)                               \
+  DW_LNS_1 (DW_LNS_advance_pc, DW_FORM_sdata)          \
+  DW_LNS_1 (DW_LNS_advance_line, DW_FORM_sdata)                \
+  DW_LNS_1 (DW_LNS_set_file, DW_FORM_udata)            \
+  DW_LNS_1 (DW_LNS_set_column, DW_FORM_udata)          \
+  DW_LNS_0 (DW_LNS_negate_stmt)                                \
+  DW_LNS_0 (DW_LNS_set_basic_block)                    \
+  DW_LNS_0 (DW_LNS_const_add_pc)                       \
+  DW_LNS_1 (DW_LNS_fixed_advance_pc, DW_FORM_data2)    \
+  DW_LNS_0 (DW_LNS_set_prologue_end)                   \
+  DW_LNS_0 (DW_LNS_set_epilogue_begin)                 \
+  DW_LNS_1 (DW_LNS_set_isa, DW_FORM_udata)
+
+#define DW_LNE_OPERANDS                                        \
+  DW_LNE_0 (DW_LNE_end_sequence)                       \
+  DW_LNE_1 (DW_LNE_set_address, DW_FORM_addr)          \
+  DW_LNE_4 (DW_LNE_define_file,                                \
+           DW_FORM_string, DW_FORM_udata,              \
+           DW_FORM_udata, DW_FORM_udata)