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.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a80e564fa83bf334b5f5c99587ceacc989bfbd53..8a45894e23beac2749a91d73a552fe9978ffecfa 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gdb/symfile.c b/gdb/symfile.c
index 0528488c3cff73f0f6cd9604eca8f6305b205d47..a02b2d2a4ddf3a602d6071fd570f82c75398daf6 100644 (file)
--- 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);
     }
 }