diff options
| author | Richard Henderson <rth@redhat.com> | 2003-09-21 22:09:32 -0700 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2003-09-21 22:09:32 -0700 |
| commit | f31686a322301454c5ea5b997997aa7c84c57781 (patch) | |
| tree | d942bc168b4a8f91e17acf863e1d2091ff773b6c /gcc/ada | |
| parent | 0f7fcd6a40a237b634e0f93f1206724add7354d3 (diff) | |
| download | gcc-f31686a322301454c5ea5b997997aa7c84c57781.zip gcc-f31686a322301454c5ea5b997997aa7c84c57781.tar.gz gcc-f31686a322301454c5ea5b997997aa7c84c57781.tar.bz2 | |
Revert DECL_SOURCE_LOCATION -> TREE_LOCUS change.
From-SVN: r71641
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 4 | ||||
| -rw-r--r-- | gcc/ada/utils.c | 6 |
3 files changed, 9 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 51ba6b4..c84af19 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2003-09-21 Richard Henderson <rth@redhat.com> + * trans.c, utils.c: Revert. + +2003-09-21 Richard Henderson <rth@redhat.com> + * trans.c, utils.c: Update for DECL_SOURCE_LOCATION rename and change to const. diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 889b267..8e6f9ac 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -2611,7 +2611,7 @@ tree_transform (gnat_node) the body so that the line number notes are written correctly. */ set_lineno (gnat_node, 0); - set_tree_locus (gnu_subprog_decl, input_location); + DECL_SOURCE_LOCATION (gnu_subprog_decl) = input_location; begin_subprog_body (gnu_subprog_decl); set_lineno (gnat_node, 1); @@ -5333,7 +5333,7 @@ build_unit_elab (gnat_unit, body_p, gnu_elab_list) { tree lhs = TREE_PURPOSE (gnu_elab_list); - input_location = TREE_LOCUS (lhs); + input_location = DECL_SOURCE_LOCATION (lhs); /* If LHS has a padded type, convert it to the unpadded type so the assignment is done properly. */ diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index eddfb32..186b0fd 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -1655,9 +1655,9 @@ create_label_decl (label_name) { tree label_decl = build_decl (LABEL_DECL, label_name, void_type_node); - DECL_CONTEXT (label_decl) = current_function_decl; - DECL_MODE (label_decl) = VOIDmode; - set_tree_locus (label_decl, input_location); + DECL_CONTEXT (label_decl) = current_function_decl; + DECL_MODE (label_decl) = VOIDmode; + DECL_SOURCE_LOCATION (label_decl) = input_location; return label_decl; } |