Associate .dg files to Ada
authorJoel Brobecker <brobecker@gnat.com>
Tue, 27 Apr 2010 21:01:57 +0000 (21:01 +0000)
committerJoel Brobecker <brobecker@gnat.com>
Tue, 27 Apr 2010 21:01:57 +0000 (21:01 +0000)
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.

gdb/ChangeLog
gdb/symfile.c

index a80e564fa83bf334b5f5c99587ceacc989bfbd53..8a45894e23beac2749a91d73a552fe9978ffecfa 100644 (file)
@@ -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
index 0528488c3cff73f0f6cd9604eca8f6305b205d47..a02b2d2a4ddf3a602d6071fd570f82c75398daf6 100644 (file)
@@ -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);
     }
 }