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.
This commit is contained in:
parent
d09ce91e4f
commit
dde5918526
|
@ -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
|
||||
|
|
|
@ -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);
|
||||
}
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue