This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[commit] Associate .dg files to Ada
- From: Joel Brobecker <brobecker at adacore dot com>
- To: gdb-patches at sourceware dot org
- Date: Tue, 27 Apr 2010 14:11:08 -0700
- Subject: [commit] Associate .dg files to Ada
The .dg files are files containing the user's code, after the GNAT
expander was applied. The expansion replaces some of the complex
features by simpler pseudo-Ada code and the user can ask to see and
debug that code using the -gnatDG option...
For instance, given the following code where Circle is a tagged type
(aka as a class type in C++):
procedure Foo is
My_Shape : Circle := (X => 1, Y => 2, R => 3);
X : Integer;
begin
X := Position_X (My_Shape);
end Foo;
The expansion results in:
procedure foo is
my_shape : pck__circle := (
_parent => (
_tag => pck__circleP,
x => 1,
y => 2),
r => 3);
x : integer;
begin
x := pck__position_x (my_shape);
return;
end foo;
2010-04-27 Joel Brobecker <brobecker@adacore.com>
* symfile.c (init_filename_language_table): Register .dg files
with language_ada.
Tested on x86_64-linux. Checked in.
---
gdb/ChangeLog | 5 +++++
gdb/symfile.c | 1 +
2 files changed, 6 insertions(+), 0 deletions(-)
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a80e564..8a45894 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
2010-04-27 Joel Brobecker <brobecker@adacore.com>
+ * symfile.c (init_filename_language_table): Register .dg files
+ with language_ada.
+
+2010-04-27 Joel Brobecker <brobecker@adacore.com>
+
* gdbtypes.h (struct main_type): Expand comment about target_type
field.
diff --git a/gdb/symfile.c b/gdb/symfile.c
index 0528488..a02b2d2 100644
--- a/gdb/symfile.c
+++ b/gdb/symfile.c
@@ -2637,6 +2637,7 @@ init_filename_language_table (void)
add_filename_language (".ads", language_ada);
add_filename_language (".a", language_ada);
add_filename_language (".ada", language_ada);
+ add_filename_language (".dg", language_ada);
}
}
--
1.6.3.3