mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-01-11 21:16:00 +08:00
trans.c (tree_transform): Use location_t and input_location directly.
* trans.c (tree_transform): Use location_t and input_location directly. (build_unit_elab): Likewise. * utils.c (create_label_decl): Likewise. From-SVN: r66433
This commit is contained in:
parent
31423e30ee
commit
e7b5f0c9b4
@ -1,3 +1,10 @@
|
||||
2003-05-03 Nathan Sidwell <nathan@codesourcery.com>
|
||||
|
||||
* trans.c (tree_transform): Use location_t and input_location
|
||||
directly.
|
||||
(build_unit_elab): Likewise.
|
||||
* utils.c (create_label_decl): Likewise.
|
||||
|
||||
2003-05-01 Nathan Sidwell <nathan@codesourcery.com>
|
||||
|
||||
* trans.c (tree_transform, build_unit_elab,
|
||||
|
@ -2619,8 +2619,7 @@ tree_transform (gnat_node)
|
||||
the body so that the line number notes are written
|
||||
correctly. */
|
||||
set_lineno (gnat_node, 0);
|
||||
DECL_SOURCE_FILE (gnu_subprog_decl) = input_filename;
|
||||
DECL_SOURCE_LINE (gnu_subprog_decl) = input_line;
|
||||
DECL_SOURCE_LOCATION (gnu_subprog_decl) = input_location;
|
||||
|
||||
begin_subprog_body (gnu_subprog_decl);
|
||||
set_lineno (gnat_node, 1);
|
||||
@ -5342,8 +5341,7 @@ build_unit_elab (gnat_unit, body_p, gnu_elab_list)
|
||||
{
|
||||
tree lhs = TREE_PURPOSE (gnu_elab_list);
|
||||
|
||||
input_filename = DECL_SOURCE_FILE (lhs);
|
||||
input_line = DECL_SOURCE_LINE (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. */
|
||||
|
@ -1663,8 +1663,7 @@ create_label_decl (label_name)
|
||||
|
||||
DECL_CONTEXT (label_decl) = current_function_decl;
|
||||
DECL_MODE (label_decl) = VOIDmode;
|
||||
DECL_SOURCE_LINE (label_decl) = input_line;
|
||||
DECL_SOURCE_FILE (label_decl) = input_filename;
|
||||
DECL_SOURCE_LOCATION (label_decl) = input_location;
|
||||
|
||||
return label_decl;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user