diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 15:00:21 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 15:00:21 +0200 |
| commit | 002bdd685cc819e9a1609c97d5f2281f6109b297 (patch) | |
| tree | 44991ada9fe1828c27861ec37abc54dd10f99f7c /gcc/ada/gcc-interface/trans.c | |
| parent | 499769ec33c515c433e407ee25729018457ed295 (diff) | |
| download | gcc-002bdd685cc819e9a1609c97d5f2281f6109b297.zip gcc-002bdd685cc819e9a1609c97d5f2281f6109b297.tar.gz gcc-002bdd685cc819e9a1609c97d5f2281f6109b297.tar.bz2 | |
[multiple changes]
2011-08-02 Geert Bosch <bosch@adacore.com>
* gcc-interface/gigi.h, gcc-interface/misc.c (enumerate_modes): New
function.
* gcc-interface/Make-lang.in: Update dependencies.
2011-08-02 Olivier Hainque <hainque@adacore.com>
* gcc-interface/trans.c (Subprogram_Body_to_gnu): Set the function
end_locus.
From-SVN: r177141
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index b0b83b3..f9acdcd 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -2762,6 +2762,12 @@ Subprogram_Body_to_gnu (Node_Id gnat_node) end_subprog_body (gnu_result); + /* Attempt setting the end_locus of our GCC body tree, typically a + BIND_EXPR or STATEMENT_LIST, then the end_locus of our GCC subprogram + declaration tree. */ + set_end_locus_from_node (gnu_result, gnat_node); + set_end_locus_from_node (gnu_subprog_decl, gnat_node); + /* Finally annotate the parameters and disconnect the trees for parameters that we have turned into variables since they are now unusable. */ for (gnat_param = First_Formal_With_Extras (gnat_subprog_id); |