dwarf: setter for language and compilation dir

diff --git a/include/libfirm/be.h b/include/libfirm/be.h
index 41d5454..028b25d 100644 (file)
--- a/include/libfirm/be.h
+++ b/include/libfirm/be.h
@@ -69,6 +69,31 @@ typedef enum asm_constraint_flags_t {
 } asm_constraint_flags_t;
 ENUM_BITSET(asm_constraint_flags_t)
 
+/* Dwarf source language codes. */
+typedef enum {
+       DW_LANG_C89 = 0x0001,
+       DW_LANG_C = 0x0002,
+       DW_LANG_Ada83 = 0x0003,
+       DW_LANG_C_plus_plus = 0x0004,
+       DW_LANG_Cobol74 = 0x0005,
+       DW_LANG_Cobol85 = 0x0006,
+       DW_LANG_Fortran77 = 0x0007,
+       DW_LANG_Fortran90 = 0x0008,
+       DW_LANG_Pascal83 = 0x0009,
+       DW_LANG_Modula2 = 0x000a,
+       DW_LANG_Java = 0x000b,
+       DW_LANG_C99 = 0x000c,
+       DW_LANG_Ada95 = 0x000d,
+       DW_LANG_Fortran95 = 0x000e,
+       DW_LANG_PLI = 0x000f,
+       DW_LANG_ObjC = 0x0010,
+       DW_LANG_ObjC_plus_plus = 0x0011,
+       DW_LANG_UPC = 0x0012,
+       DW_LANG_D = 0x0013,
+       DW_LANG_Python = 0x0014,
+       DW_LANG_Go = 0x0016,
+} dwarf_source_language;
+
 /**
  * Build a Trampoline for the closure.
  * @param block       the block where to build the trampoline
@@ -193,6 +218,17 @@ FIRM_API asm_constraint_flags_t be_parse_asm_constraints(const char *constraints
  */
 FIRM_API int be_is_valid_clobber(const char *clobber);
 
+/**
+ * Sets source language for dwarf debug information.
+ */
+FIRM_API void be_dwarf_set_source_language(dwarf_source_language language);
+
+/**
+ * Sets working directory of the compiler (or directory where the compiler
+ * searched for sources) for dwarf debug information.
+ */
+FIRM_API void be_dwarf_set_compilation_directory(const char *directory);
+
 /** @} */
 
 #include "end.h"

diff --git a/ir/be/bedwarf.c b/ir/be/bedwarf.c
index a334a7a..62d7cfc 100644 (file)
--- a/ir/be/bedwarf.c
+++ b/ir/be/bedwarf.c
@@ -432,6 +432,9 @@ typedef struct dwarf_t {
        unsigned                 last_line;
 } dwarf_t;
 
+static dwarf_source_language language;
+static const char           *comp_dir;
+
 static unsigned insert_file(dwarf_t *env, const char *filename)
 {
        unsigned num;
@@ -1090,7 +1093,10 @@ static void emit_compile_unit_abbrev(void)
        register_attribute(DW_AT_stmt_list, DW_FORM_data4);
        register_attribute(DW_AT_producer,  DW_FORM_string);
        register_attribute(DW_AT_name,      DW_FORM_string);
-       register_attribute(DW_AT_comp_dir,  DW_FORM_string);
+       if (language != 0)
+               register_attribute(DW_AT_language,  DW_FORM_data2);
+       if (comp_dir != NULL)
+               register_attribute(DW_AT_comp_dir,  DW_FORM_string);
        end_abbrev();
 }
 
@@ -1139,7 +1145,10 @@ static void dwarf_unit_begin(dbg_handle *handle, const char *filename)
                           ir_get_version_minor(),
                           ir_get_version_revision());
        emit_string(filename);
-       emit_string("/foo/bar/");
+       if (language != 0)
+               emit_int16(DW_LANG_C_plus_plus);
+       if (comp_dir != NULL)
+               emit_string(comp_dir);
 }
 
 static void dwarf_unit_end(dbg_handle *handle)
@@ -1202,3 +1211,13 @@ void be_init_dwarf(void)
 {
        be_register_dbgout_module("dwarf", be_dwarf_open);
 }
+
+void be_dwarf_set_source_language(dwarf_source_language new_language)
+{
+       language = new_language;
+}
+
+void be_dwarf_set_compilation_directory(const char *new_comp_dir)
+{
+       comp_dir = new_comp_dir;
+}