adaint.c, [...]: Fix comment typos.
* adaint.c, cal.c, decl.c, gigi.h, gmem.c, init.c, link.c, raise.c, tracebak.c, trans.c, utils2.c, utils.c: Fix comment typos. From-SVN: r97369
This commit is contained in:
parent
38b974a6cf
commit
45f7cb6018
|
@ -1,3 +1,9 @@
|
|||
2005-04-01 Kazu Hirata <kazu@cs.umass.edu>
|
||||
|
||||
* adaint.c, cal.c, decl.c, gigi.h, gmem.c, init.c, link.c,
|
||||
raise.c, tracebak.c, trans.c, utils2.c, utils.c: Fix comment
|
||||
typos.
|
||||
|
||||
2005-03-30 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* decl.c (gnat_substitute_in_type): Don't handle FILE_TYPE.
|
||||
|
|
|
@ -1643,7 +1643,7 @@ __gnat_dup (int oldfd)
|
|||
}
|
||||
|
||||
/* Make newfd be the copy of oldfd, closing newfd first if necessary.
|
||||
Return -1 if an error occured. */
|
||||
Return -1 if an error occurred. */
|
||||
|
||||
int
|
||||
__gnat_dup2 (int oldfd, int newfd)
|
||||
|
|
|
@ -31,7 +31,7 @@
|
|||
****************************************************************************/
|
||||
|
||||
/* This file contains those routines named by Import pragmas in package */
|
||||
/* GNAT.Calendar. It is used to to Duration to timeval convertion. */
|
||||
/* GNAT.Calendar. It is used to do Duration to timeval conversion. */
|
||||
/* These are simple wrappers function to abstarct the fact that the C */
|
||||
/* struct timeval fields type are not normalized (they are generaly */
|
||||
/* defined as int or long values). */
|
||||
|
@ -75,7 +75,7 @@ __gnat_timeval_to_duration (struct timeval *t, long *sec, long *usec)
|
|||
void
|
||||
__gnat_duration_to_timeval (long sec, long usec, struct timeval *t)
|
||||
{
|
||||
/* here we are doing implicit convertion from a long to the struct timeval
|
||||
/* here we are doing implicit conversion from a long to the struct timeval
|
||||
fields types. */
|
||||
|
||||
t->tv_sec = sec;
|
||||
|
|
|
@ -1039,7 +1039,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
|
|||
gnu_ext_name = create_concat_name (gnat_entity, 0);
|
||||
|
||||
/* If this is constant initialized to a static constant and the
|
||||
object has an aggregrate type, force it to be statically
|
||||
object has an aggregate type, force it to be statically
|
||||
allocated. */
|
||||
if (const_flag && gnu_expr && TREE_CONSTANT (gnu_expr)
|
||||
&& host_integerp (TYPE_SIZE_UNIT (gnu_type), 1)
|
||||
|
@ -2884,7 +2884,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
|
|||
/* If we are pointing to an incomplete type whose completion is an
|
||||
unconstrained array, make a fat pointer type instead of a pointer
|
||||
to VOID. The two types in our fields will be pointers to VOID and
|
||||
will be replaced in update_pointer_to. Similiarly, if the type
|
||||
will be replaced in update_pointer_to. Similarly, if the type
|
||||
itself is a dummy type or an unconstrained array. Also make
|
||||
a dummy TYPE_OBJECT_RECORD_TYPE in case we have any thin
|
||||
pointers to it. */
|
||||
|
@ -3421,7 +3421,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
|
|||
post_error ("unsupported mechanism for&", gnat_param);
|
||||
|
||||
/* If this is either a foreign function or if the
|
||||
underlying type won't be passed by refererence, strip off
|
||||
underlying type won't be passed by reference, strip off
|
||||
possible padding type. */
|
||||
if (TREE_CODE (gnu_param_type) == RECORD_TYPE
|
||||
&& TYPE_IS_PADDING_P (gnu_param_type)
|
||||
|
@ -4348,7 +4348,7 @@ copy_alias_set (tree gnu_new_type, tree gnu_old_type)
|
|||
/* Return a TREE_LIST describing the substitutions needed to reflect
|
||||
discriminant substitutions from GNAT_SUBTYPE to GNAT_TYPE and add
|
||||
them to GNU_LIST. If GNAT_TYPE is not specified, use the base type
|
||||
of GNAT_SUBTYPE. The substitions can be in any order. TREE_PURPOSE
|
||||
of GNAT_SUBTYPE. The substitutions can be in any order. TREE_PURPOSE
|
||||
gives the tree for the discriminant and TREE_VALUES is the replacement
|
||||
value. They are in the form of operands to substitute_in_expr.
|
||||
DEFINITION is as in gnat_to_gnu_entity. */
|
||||
|
@ -4617,7 +4617,7 @@ elaborate_expression (Node_Id gnat_expr, Entity_Id gnat_entity,
|
|||
&& Ekind (Entity (gnat_expr)) == E_Discriminant)))
|
||||
return 0;
|
||||
|
||||
/* Otherwise, convert this tree to its GCC equivalant. */
|
||||
/* Otherwise, convert this tree to its GCC equivalent. */
|
||||
gnu_expr
|
||||
= elaborate_expression_1 (gnat_expr, gnat_entity, gnat_to_gnu (gnat_expr),
|
||||
gnu_name, definition, need_debug);
|
||||
|
@ -5211,7 +5211,7 @@ gnat_to_gnu_field (Entity_Id gnat_field, tree gnu_record_type, int packed,
|
|||
}
|
||||
|
||||
/* If Aliased, the size must match exactly the rounded size. We
|
||||
used to be more accomodating here and accept greater sizes, but
|
||||
used to be more accommodating here and accept greater sizes, but
|
||||
fully supporting this case on big-endian platforms would require
|
||||
switching to a more involved layout for the field. */
|
||||
else if (Is_Aliased (gnat_field)
|
||||
|
@ -5703,7 +5703,7 @@ annotate_value (tree gnu_size)
|
|||
/* For negative values, use NEGATE_EXPR of the supplied value. */
|
||||
if (tree_int_cst_sgn (gnu_size) < 0)
|
||||
{
|
||||
/* The rediculous code below is to handle the case of the largest
|
||||
/* The ridiculous code below is to handle the case of the largest
|
||||
negative integer. */
|
||||
tree negative_size = size_diffop (bitsize_zero_node, gnu_size);
|
||||
bool adjust = false;
|
||||
|
|
|
@ -200,7 +200,7 @@ extern int gnat_gimplify_expr (tree *expr_p, tree *pre_p,
|
|||
|
||||
/* Do the processing for the declaration of a GNAT_ENTITY, a type. If
|
||||
a separate Freeze node exists, delay the bulk of the processing. Otherwise
|
||||
make a GCC type for GNAT_ENTITY and set up the correspondance. */
|
||||
make a GCC type for GNAT_ENTITY and set up the correspondence. */
|
||||
extern void process_type (Entity_Id gnat_entity);
|
||||
|
||||
/* Convert Sloc into *LOCUS (a location_t). Return true if this Sloc
|
||||
|
@ -623,7 +623,7 @@ extern tree remove_conversions (tree exp, bool true_address);
|
|||
likewise return an expression pointing to the underlying array. */
|
||||
extern tree maybe_unconstrained_array (tree exp);
|
||||
|
||||
/* Return an expression that does an unchecked converstion of EXPR to TYPE.
|
||||
/* Return an expression that does an unchecked conversion of EXPR to TYPE.
|
||||
If NOTRUNC_P is true, truncation operations should be suppressed. */
|
||||
extern tree unchecked_convert (tree type, tree expr, bool notrunc_p);
|
||||
|
||||
|
|
|
@ -83,7 +83,7 @@ gmem_read_backtrace (void)
|
|||
}
|
||||
|
||||
/* initialize gmem feature from the dumpname file. It returns 1 if the
|
||||
dumpname has beed generated by GMEM (instrumented malloc/free) and 0 if not
|
||||
dumpname has been generated by GMEM (instrumented malloc/free) and 0 if not
|
||||
(i.e. probably a GDB generated file).
|
||||
*/
|
||||
|
||||
|
|
|
@ -291,7 +291,7 @@ __gnat_set_globals (int main_priority,
|
|||
as the faulting instruction address in the corresponding signal context
|
||||
pushed by the kernel. Leaving this address untouched may loose, because if
|
||||
the triggering instruction happens to be the very first of a region, the
|
||||
later adjustements performed by the unwinder would yield an address outside
|
||||
later adjustments performed by the unwinder would yield an address outside
|
||||
that region. We need to compensate for those adjustments at some point,
|
||||
which we currently do in the GCC unwinding fallback macro.
|
||||
|
||||
|
@ -1291,7 +1291,7 @@ extern Exception_Code Base_Code_In (Exception_Code);
|
|||
|
||||
/* Define macro symbols for the VMS conditions that become Ada exceptions.
|
||||
Most of these are also defined in the header file ssdef.h which has not
|
||||
yet been converted to be recoginized by Gnu C. Some, which couldn't be
|
||||
yet been converted to be recognized by Gnu C. Some, which couldn't be
|
||||
located, are assigned names based on the DEC test suite tests which
|
||||
raise them. */
|
||||
|
||||
|
@ -1337,7 +1337,7 @@ long __gnat_error_handler (int *, void *);
|
|||
??? This is not a perfect solution to deal with the possible
|
||||
interactions between the GNAT and the DECAda exception handling
|
||||
models and better (more general) schemes are studied. This is so
|
||||
just provided as a conveniency workaround in the meantime, and
|
||||
just provided as a convenient workaround in the meantime, and
|
||||
should be use with caution since the implementation has been kept
|
||||
very simple. */
|
||||
|
||||
|
@ -1761,7 +1761,7 @@ __gnat_init_float (void)
|
|||
asm ("mtfsb0 26");
|
||||
#endif
|
||||
|
||||
/* Similarily for sparc64. Achieved by masking bits in the Trap Enable Mask
|
||||
/* Similarly for sparc64. Achieved by masking bits in the Trap Enable Mask
|
||||
field of the Floating-point Status Register (see the Sparc Architecture
|
||||
Manual Version 9, p 48). */
|
||||
#if defined (sparc64)
|
||||
|
|
|
@ -30,7 +30,7 @@
|
|||
* *
|
||||
****************************************************************************/
|
||||
|
||||
/* This file contains host-specific parameters describing the behaviour */
|
||||
/* This file contains host-specific parameters describing the behavior */
|
||||
/* of the linker. It is used by gnatlink as well as all tools that use */
|
||||
/* Mlib. */
|
||||
|
||||
|
|
|
@ -469,7 +469,7 @@ db_phases (int phases)
|
|||
|
||||
/* This is an incomplete "proxy" of the structure of exception objects as
|
||||
built by the GNAT runtime library. Accesses to other fields than the common
|
||||
header are performed through subprogram calls to aleviate the need of an
|
||||
header are performed through subprogram calls to alleviate the need of an
|
||||
exact counterpart here and potential alignment/size issues for the common
|
||||
header. See a-exexpr.adb. */
|
||||
|
||||
|
@ -854,7 +854,7 @@ is_handled_by (_Unwind_Ptr choice, _GNAT_Exception * propagated_exception)
|
|||
|
||||
/* Base matching rules: An exception data (id) matches itself, "when
|
||||
all_others" matches anything and "when others" matches anything unless
|
||||
explicitely stated otherwise in the propagated occurrence. */
|
||||
explicitly stated otherwise in the propagated occurrence. */
|
||||
|
||||
bool is_handled =
|
||||
choice == E
|
||||
|
@ -970,7 +970,7 @@ get_action_description_for (_Unwind_Context *uw_context,
|
|||
|
||||
/* Setup in UW_CONTEXT the eh return target IP and data registers, which will
|
||||
be restored with the others and retrieved by the landing pad once the jump
|
||||
occured. */
|
||||
occurred. */
|
||||
|
||||
static void
|
||||
setup_to_install (_Unwind_Context *uw_context,
|
||||
|
|
|
@ -344,7 +344,7 @@ struct layout
|
|||
libgcc, and the stage1 compiler is unlikely to be linked against a post 3.3
|
||||
library. It actually disables the support for backtraces in this compiler
|
||||
for targets defining USE_GCC_UNWINDER, which is OK since we don't use the
|
||||
traceback capablity in the compiler anyway.
|
||||
traceback capability in the compiler anyway.
|
||||
|
||||
The condition is expressed the way above because we cannot reliably rely on
|
||||
any other macro from the base compiler when compiling stage1. */
|
||||
|
|
|
@ -348,7 +348,7 @@ Identifier_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p)
|
|||
}
|
||||
else
|
||||
{
|
||||
/* Expand the type of this identitier first, in case it is an enumeral
|
||||
/* Expand the type of this identifier first, in case it is an enumeral
|
||||
literal, which only get made when the type is expanded. There is no
|
||||
order-of-elaboration issue here. We want to use the Actual_Subtype if
|
||||
it has already been elaborated, otherwise the Etype. Avoid using
|
||||
|
@ -1335,7 +1335,7 @@ Subprogram_Body_to_gnu (Node_Id gnat_node)
|
|||
/* Save debug output mode in case it is reset. */
|
||||
enum debug_info_type save_write_symbols = write_symbols;
|
||||
const struct gcc_debug_hooks *const save_debug_hooks = debug_hooks;
|
||||
/* Definining identifier of a parameter to the subprogram. */
|
||||
/* Defining identifier of a parameter to the subprogram. */
|
||||
Entity_Id gnat_param;
|
||||
/* The defining identifier for the subprogram body. Note that if a
|
||||
specification has appeared before for this body, then the identifier
|
||||
|
@ -3641,7 +3641,7 @@ gnat_to_gnu (Node_Id gnat_node)
|
|||
|
||||
case N_Defining_Program_Unit_Name:
|
||||
/* For a child unit identifier go up a level to get the
|
||||
specificaton. We get this when we try to find the spec of
|
||||
specification. We get this when we try to find the spec of
|
||||
a child unit package that is the compilation unit being compiled. */
|
||||
gnu_result = gnat_to_gnu (Parent (gnat_node));
|
||||
break;
|
||||
|
@ -3969,7 +3969,7 @@ gnat_to_gnu (Node_Id gnat_node)
|
|||
/* If the result is a pointer type, see if we are either converting
|
||||
from a non-pointer or from a pointer to a type with a different
|
||||
alias set and warn if so. If the result defined in the same unit as
|
||||
this unchecked convertion, we can allow this because we can know to
|
||||
this unchecked conversion, we can allow this because we can know to
|
||||
make that type have alias set 0. */
|
||||
{
|
||||
tree gnu_source_type = gnat_to_gnu_type (Source_Type (gnat_node));
|
||||
|
@ -5351,7 +5351,7 @@ addressable_p (tree gnu_expr)
|
|||
|
||||
/* Do the processing for the declaration of a GNAT_ENTITY, a type. If
|
||||
a separate Freeze node exists, delay the bulk of the processing. Otherwise
|
||||
make a GCC type for GNAT_ENTITY and set up the correspondance. */
|
||||
make a GCC type for GNAT_ENTITY and set up the correspondence. */
|
||||
|
||||
void
|
||||
process_type (Entity_Id gnat_entity)
|
||||
|
|
|
@ -1554,7 +1554,7 @@ value_factor_p (tree value, HOST_WIDE_INT factor)
|
|||
|
||||
/* Given 2 consecutive field decls PREV_FIELD and CURR_FIELD, return true
|
||||
unless we can prove these 2 fields are laid out in such a way that no gap
|
||||
exist between the end of PREV_FIELD and the begining of CURR_FIELD. OFFSET
|
||||
exist between the end of PREV_FIELD and the beginning of CURR_FIELD. OFFSET
|
||||
is the distance in bits between the end of PREV_FIELD and the starting
|
||||
position of CURR_FIELD. It is ignored if null. */
|
||||
|
||||
|
@ -1573,7 +1573,7 @@ potential_alignment_gap (tree prev_field, tree curr_field, tree offset)
|
|||
if (TREE_CODE (TREE_TYPE (prev_field)) == QUAL_UNION_TYPE)
|
||||
return false;
|
||||
|
||||
/* If the distance between the end of prev_field and the begining of
|
||||
/* If the distance between the end of prev_field and the beginning of
|
||||
curr_field is constant, then there is a gap if the value of this
|
||||
constant is not null. */
|
||||
if (offset && host_integerp (offset, 1))
|
||||
|
@ -2705,7 +2705,7 @@ convert (tree type, tree expr)
|
|||
|
||||
/* If the result type is a padded type with a self-referentially-sized
|
||||
field and the expression type is a record, do this as an
|
||||
unchecked converstion. */
|
||||
unchecked conversion. */
|
||||
else if (TREE_CODE (etype) == RECORD_TYPE
|
||||
&& CONTAINS_PLACEHOLDER_P (DECL_SIZE (TYPE_FIELDS (type))))
|
||||
return unchecked_convert (type, expr, false);
|
||||
|
@ -3075,7 +3075,7 @@ maybe_unconstrained_array (tree exp)
|
|||
return exp;
|
||||
}
|
||||
|
||||
/* Return an expression that does an unchecked converstion of EXPR to TYPE.
|
||||
/* Return an expression that does an unchecked conversion of EXPR to TYPE.
|
||||
If NOTRUNC_P is true, truncation operations should be suppressed. */
|
||||
|
||||
tree
|
||||
|
|
|
@ -504,7 +504,7 @@ nonbinary_modular_operation (enum tree_code op_code, tree type, tree lhs,
|
|||
rhs = fold (build2 (MINUS_EXPR, type, modulus, rhs)), op_code = MINUS_EXPR;
|
||||
|
||||
/* For the logical operations, we only need PRECISION bits. For
|
||||
addition and subraction, we need one more and for multiplication we
|
||||
addition and subtraction, we need one more and for multiplication we
|
||||
need twice as many. But we never want to make a size smaller than
|
||||
our size. */
|
||||
if (op_code == PLUS_EXPR || op_code == MINUS_EXPR)
|
||||
|
|
Loading…
Reference in New Issue