+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
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:
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
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;
}
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).
* *
* 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- *
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
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)
{
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. */
}
/* 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. */
/* 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,
/* 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))
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);
+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
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;
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;