diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-07 16:47:14 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-07 16:47:14 +0000 |
| commit | 5528562fe70cd7bc5d734b621bb421347e909064 (patch) | |
| tree | 0c50a184a39aa90f648ee732a7afd2a97049a7f2 /gcc/ada | |
| parent | 4ab03c8db8e9ab085f7f11376694eebefc3660ba (diff) | |
| download | gcc-5528562fe70cd7bc5d734b621bb421347e909064.tar.gz | |
* gcc-interface/gigi.h (enumerate_modes): Fix formatting.
* gcc-interface/trans.c (Subprogram_Body_to_gnu): Revert latest change.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177548 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 2 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 6 |
3 files changed, 5 insertions, 7 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6d4cad2f3a2..d986bd167ba 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -2,6 +2,10 @@ * gcc-interface/Makefile.in (raise-gcc.o): Fix previous change. + * gcc-interface/gigi.h (enumerate_modes): Fix formatting. + + * gcc-interface/trans.c (Subprogram_Body_to_gnu): Revert latest change. + 2011-08-05 Nicolas Roche <roche@adacore.com> * gcc-interface/Makefile.in: Don't use directly ../xgcc to build shared diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 8c3a2575636..26ba3fb1f1b 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -968,7 +968,7 @@ extern Nat get_target_double_scalar_alignment (void); /* This function is called by the front-end to enumerate all the supported modes for the machine, as well as some predefined C types. */ extern void enumerate_modes (void (*f) (const char *, int, int, int, int, int, - int)); + int)); #ifdef __cplusplus } diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index f9acdcdfeef..b0b83b3383b 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -2762,12 +2762,6 @@ 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); |