diff options
Diffstat (limited to 'gcc/ada/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 889b267cd17..8e6f9ac4e49 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. */ |