This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[PATCH] Add d_main_name to dlang.c
- From: Iain Buclaw <ibuclaw at gdcproject dot org>
- To: gdb-patches at sourceware dot org
- Date: Mon, 18 Nov 2013 23:03:38 +0000
- Subject: [PATCH] Add d_main_name to dlang.c
- Authentication-results: sourceware.org; auth=none
Hi,
This is the first patch of a few that will eventually get sent across
as I write them. Adds support for gdb to discover the source location
of D main function.
Regards,
Iain.
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2013-11-18 Iain Buclaw <ibuclaw@gdcproject.org>
+
+ * d-lang.h (d_main_name): Add declaration.
+ * d-lang.c (d_main_name): New function.
+ * symtab.c (find_main_name): Add call to d_main_name.
+
2013-11-18 Tom Tromey <tromey@redhat.com>
* common/gdb_stat.h: Remove.
diff --git a/gdb/d-lang.c b/gdb/d-lang.c
index 35d92ea..d8067f2 100644
--- a/gdb/d-lang.c
+++ b/gdb/d-lang.c
@@ -29,6 +29,27 @@
#include <ctype.h>
+/* The main function in the main package. */
+static const char D_MAIN[] = "D main";
+
+/* Function returning the special symbol name used by D for the main
+ procedure in the main program if it is found in minimal symbol list.
+ This function tries to find minimal symbols so that it finds them even
+ if the program was compiled without debugging information. */
+
+const char *
+d_main_name (void)
+{
+ struct minimal_symbol *msym;
+
+ msym = lookup_minimal_symbol (D_MAIN, NULL, NULL);
+ if (msym != NULL)
+ return D_MAIN;
+
+ /* No known entry procedure found, the main program is probably not D. */
+ return NULL;
+}
+
/* Extract identifiers from MANGLED_STR and append it to TEMPBUF.
Return 1 on success or 0 on failure. */
static int
diff --git a/gdb/d-lang.h b/gdb/d-lang.h
index fb6678a..4933431 100644
--- a/gdb/d-lang.h
+++ b/gdb/d-lang.h
@@ -22,6 +22,10 @@
#include "symtab.h"
+/* Defined in d-lang.c */
+
+extern const char *d_main_name (void);
+
extern char *d_demangle (const char *mangled, int options);
extern void d_val_print (struct type *type, const gdb_byte *valaddr,
diff --git a/gdb/symtab.c b/gdb/symtab.c
index 8fac0be..6467313 100644
--- a/gdb/symtab.c
+++ b/gdb/symtab.c
@@ -5018,6 +5018,13 @@ find_main_name (void)
return;
}
+ new_main_name = d_main_name ();
+ if (new_main_name != NULL)
+ {
+ set_main_name (new_main_name);
+ return;
+ }
+
new_main_name = go_main_name ();
if (new_main_name != NULL)
{