OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans.c (tree_transform, [...]): Rename lineno to input_line.

Browse Source 
* trans.c (tree_transform, build_unit_elab,
	set_lineno): Rename lineno to input_line.

From-SVN: r66343
This commit is contained in:
Nathan Sidwell 2003-05-01 18:44:48 +00:00 committed by Nathan Sidwell
parent e1a4211d22
commit 561712fe49
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,7 +1,7 @@
2003-05-01 Nathan Sidwell <nathan@codesourcery.com> 2003-05-01 Nathan Sidwell <nathan@codesourcery.com>
* trans.c (build_unit_elab, set_lineno): Rename lineno to * trans.c (tree_transform, build_unit_elab,
input_line. set_lineno): Rename lineno to input_line.
* utils.c (pushdecl, create_label_decl, begin_subprog_body, * utils.c (pushdecl, create_label_decl, begin_subprog_body,
end_subprog_body): Likewise. end_subprog_body): Likewise.
* utils2.c (build_call_raise): Likewise. * utils2.c (build_call_raise): Likewise.

12
gcc/ada/trans.c
View File

@ -2620,7 +2620,7 @@ tree_transform (gnat_node)
correctly. */ correctly. */
set_lineno (gnat_node, 0); set_lineno (gnat_node, 0);
DECL_SOURCE_FILE (gnu_subprog_decl) = input_filename; DECL_SOURCE_FILE (gnu_subprog_decl) = input_filename;
DECL_SOURCE_LINE (gnu_subprog_decl) = lineno; DECL_SOURCE_LINE (gnu_subprog_decl) = input_line;
begin_subprog_body (gnu_subprog_decl); begin_subprog_body (gnu_subprog_decl);
set_lineno (gnat_node, 1); set_lineno (gnat_node, 1);
@ -3782,7 +3782,7 @@ tree_transform (gnat_node)
gnu_orig_out_list = nreverse (gnu_orig_out_list); gnu_orig_out_list = nreverse (gnu_orig_out_list);
expand_asm_operands (gnu_template, gnu_output_list, gnu_input_list, expand_asm_operands (gnu_template, gnu_output_list, gnu_input_list,
gnu_clobber_list, Is_Asm_Volatile (gnat_node), gnu_clobber_list, Is_Asm_Volatile (gnat_node),
input_filename, lineno); input_filename, input_line);
/* Copy all the intermediate outputs into the specified outputs. */ /* Copy all the intermediate outputs into the specified outputs. */
for (; gnu_output_list; for (; gnu_output_list;
@ -5351,7 +5351,7 @@ build_unit_elab (gnat_unit, body_p, gnu_elab_list)
&& TYPE_IS_PADDING_P (TREE_TYPE (lhs))) && TYPE_IS_PADDING_P (TREE_TYPE (lhs)))
lhs = convert (TREE_TYPE (TYPE_FIELDS (TREE_TYPE (lhs))), lhs); lhs = convert (TREE_TYPE (TYPE_FIELDS (TREE_TYPE (lhs))), lhs);
emit_line_note (input_filename, lineno); emit_line_note (input_filename, input_line);
expand_expr_stmt (build_binary_op (MODIFY_EXPR, NULL_TREE, expand_expr_stmt (build_binary_op (MODIFY_EXPR, NULL_TREE,
TREE_PURPOSE (gnu_elab_list), TREE_PURPOSE (gnu_elab_list),
TREE_VALUE (gnu_elab_list))); TREE_VALUE (gnu_elab_list)));
@ -5380,9 +5380,9 @@ build_unit_elab (gnat_unit, body_p, gnu_elab_list)
extern char *__gnat_to_canonical_file_spec PARAMS ((char *)); extern char *__gnat_to_canonical_file_spec PARAMS ((char *));
/* Determine the input_filename and the lineno from the source location /* Determine the input_filename and the input_line from the source location
(Sloc) of GNAT_NODE node. Set the global variable input_filename and (Sloc) of GNAT_NODE node. Set the global variable input_filename and
lineno. If WRITE_NOTE_P is true, emit a line number note. */ input_line. If WRITE_NOTE_P is true, emit a line number note. */
void void
set_lineno (gnat_node, write_note_p) set_lineno (gnat_node, write_note_p)
@ -5417,7 +5417,7 @@ set_lineno (gnat_node, write_note_p)
input_line = Get_Logical_Line_Number (source_location); input_line = Get_Logical_Line_Number (source_location);
if (write_note_p) if (write_note_p)
emit_line_note (input_filename, lineno); emit_line_note (input_filename, input_line);
} }
/* Post an error message. MSG is the error message, properly annotated. /* Post an error message. MSG is the error message, properly annotated.