Skip to content

R
riscv-gcc-1
Commit c01fe451 by Eric Botcazou Committed by Eric Botcazou
Options

decl.c (gnat_to_gnu_entity): Adjust warning message. 

	* gcc-interface/decl.c (gnat_to_gnu_entity): Adjust warning message.
	Fix nits in comments.
	* gcc-interface/misc.c (gnat_init_gcc_eh): Likewise.
	* gcc-interface/trans.c (gigi): Likewise.
	(Attribute_to_gnu): Likewise.
	(Case_Statement_to_gnu): Likewise.
	(gnat_to_gnu): Adjust warning message.
	* gcc-interface/utils.c (create_var_decl_1): Fix nits in comments.
	(build_vms_descriptor32): Likewise.

From-SVN: r160048
parent f59292da
Showing with 35 additions and 18 deletions
gcc/ada/ChangeLog
2010-05-30 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity): Adjust warning message.
Fix nits in comments.
* gcc-interface/misc.c (gnat_init_gcc_eh): Likewise.
* gcc-interface/trans.c (gigi): Likewise.
(Attribute_to_gnu): Likewise.
(Case_Statement_to_gnu): Likewise.
(gnat_to_gnu): Adjust warning message.
* gcc-interface/utils.c (create_var_decl_1): Fix nits in comments.
(build_vms_descriptor32): Likewise.
2010-05-27 Steven Bosscher <steven@gcc.gnu.org>
* gcc-interface/decl.c: Pretend to be a backend file by undefining
......
gcc/ada/gcc-interface/decl.c
......@@ -448,7 +448,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
the regular processing take place, which leaves us with a regular
exception data object for VMS exceptions too. The condition code
mapping is taken care of by the front end and the bitmasking by the
runtime library. */
run-time library. */
goto object;
case E_Discriminant:
......@@ -1220,7 +1220,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
if (TREE_CODE (TYPE_SIZE_UNIT (gnu_alloc_type)) == INTEGER_CST
&& TREE_OVERFLOW (TYPE_SIZE_UNIT (gnu_alloc_type))
&& !Is_Imported (gnat_entity))
post_error ("?Storage_Error will be raised at run-time!",
post_error ("?`Storage_Error` will be raised at run time!",
gnat_entity);
gnu_expr
......@@ -3713,7 +3713,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
gnu_type = ptr_void_type_node;
else
{
/* The runtime representation is the equivalent type. */
/* The run-time representation is the equivalent type. */
gnu_type = gnat_to_gnu_type (gnat_equiv_type);
maybe_present = true;
}
......
gcc/ada/gcc-interface/misc.c
......@@ -460,10 +460,10 @@ gnat_init_gcc_eh (void)
right exception regions. */
using_eh_for_cleanups ();
/* Turn on -fexceptions and -fnon-call-exceptions. The first one triggers
the generation of the necessary exception runtime tables. The second one
is useful for two reasons: 1/ we map some asynchronous signals like SEGV
to exceptions, so we need to ensure that the insns which can lead to such
/* Turn on -fexceptions and -fnon-call-exceptions. The first one triggers
the generation of the necessary exception tables. The second one is
useful for two reasons: 1/ we map some asynchronous signals like SEGV to
exceptions, so we need to ensure that the insns which can lead to such
signals are correctly attached to the exception region they pertain to,
2/ Some calls to pure subprograms are handled as libcall blocks and then
marked as "cannot trap" if the flag is not set (see emit_libcall_block).
......
gcc/ada/gcc-interface/targtyps.c
......@@ -6,7 +6,7 @@
* *
* Body *
* *
* Copyright (C) 1992-2009, Free Software Foundation, Inc. *
* Copyright (C) 1992-2010, Free Software Foundation, Inc. *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
......
gcc/ada/gcc-interface/trans.c
......@@ -358,7 +358,7 @@ gigi (Node_Id gnat_root, int max_gnat_node, int number_name ATTRIBUTE_UNUSED,
void_ftype = build_function_type (void_type_node, NULL_TREE);
ptr_void_ftype = build_pointer_type (void_ftype);
/* Now declare runtime functions. */
/* Now declare run-time functions. */
t = tree_cons (NULL_TREE, void_type_node, NULL_TREE);
/* malloc is a function declaration tree for a function to allocate
......@@ -1683,7 +1683,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute)
gnu_result = SUBSTITUTE_PLACEHOLDER_IN_EXPR (gnu_result, gnu_prefix);
/* Cache the expression we have just computed. Since we want to do it
at runtime, we force the use of a SAVE_EXPR and let the gimplifier
at run time, we force the use of a SAVE_EXPR and let the gimplifier
create the temporary. */
if (pa)
{
......@@ -1930,8 +1930,8 @@ Case_Statement_to_gnu (Node_Id gnat_node)
is parenthesized. This still has the Etype of the name, but since it is
not a name, para 7 does not apply, and we need to go to the base type.
This is the only case where parenthesization affects the dynamic
semantics (i.e. the range of possible values at runtime that is covered
by the others alternative.
semantics (i.e. the range of possible values at run time that is covered
by the others alternative).
Another exception is if the subtype of the expression is non-static. In
that case, we also have to use the base type. */
......@@ -2002,7 +2002,7 @@ Case_Statement_to_gnu (Node_Id gnat_node)
}
/* If the case value is a subtype that raises Constraint_Error at
run-time because of a wrong bound, then gnu_low or gnu_high is
run time because of a wrong bound, then gnu_low or gnu_high is
not translated into an INTEGER_CST. In such a case, we need
to ensure that the when statement is not added in the tree,
otherwise it will crash the gimplifier. */
......@@ -5566,7 +5566,7 @@ gnat_to_gnu (Node_Id gnat_node)
/* If the result is a constant that overflowed, raise Constraint_Error. */
if (TREE_CODE (gnu_result) == INTEGER_CST && TREE_OVERFLOW (gnu_result))
{
post_error ("Constraint_Error will be raised at run-time?", gnat_node);
post_error ("?`Constraint_Error` will be raised at run time", gnat_node);
gnu_result
= build1 (NULL_EXPR, gnu_result_type,
build_call_raise (CE_Overflow_Check_Failed, gnat_node,
......
gcc/ada/gcc-interface/utils.c
......@@ -1380,7 +1380,7 @@ create_var_decl_1 (tree var_name, tree asm_name, tree type, tree var_init,
/* For an external constant whose initializer is not absolute, do not emit
debug info. In DWARF this would mean a global relocation in a read-only
section which runs afoul of the PE-COFF runtime relocation mechanism. */
section which runs afoul of the PE-COFF run-time relocation mechanism. */
if (extern_flag
&& constant_p
&& initializer_constant_valid_p (var_init, TREE_TYPE (var_init))
......@@ -2445,7 +2445,7 @@ build_vms_descriptor32 (tree type, Mechanism_Type mech, Entity_Id gnat_entity)
make_descriptor_field ("CLASS", gnat_type_for_size (8, 1),
record_type, size_int (klass)));
/* Of course this will crash at run-time if the address space is not
/* Of course this will crash at run time if the address space is not
within the low 32 bits, but there is nothing else we can do. */
pointer32_type = build_pointer_type_for_mode (type, SImode, false);
......
gcc/testsuite/ChangeLog
2010-05-30 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/array11.adb: Adjust dg-warning directive.
* gnat.dg/object_overflow.adb: Likewise.
2010-05-29 Sebastian Pop <sebastian.pop@amd.com>
PR middle-end/44306
......
gcc/testsuite/gnat.dg/array11.adb
......@@ -9,7 +9,7 @@ procedure Array11 is
type Arr2 is array (Long_Integer) of aliased Rec; -- { dg-warning "padded" }
A1 : Arr1;
A2 : Arr2; -- { dg-warning "Storage_Error will be raised" }
A2 : Arr2; -- { dg-warning "Storage_Error" }
begin
null;
......
gcc/testsuite/gnat.dg/object_overflow.adb
......@@ -5,7 +5,7 @@ procedure Object_Overflow is
procedure Proc (x : Boolean) is begin null; end;
type Arr is array(Long_Integer) of Boolean;
Obj : Arr; -- { dg-warning "Storage_Error will be raised" }
Obj : Arr; -- { dg-warning "Storage_Error" }
begin
Obj(1) := True;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment