Skip to content

R
riscv-gcc-1
Commit 45f7cb60 by Kazu Hirata Committed by Kazu Hirata
Options

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
parent 38b974a6
Showing with 38 additions and 32 deletions
gcc/ada/ChangeLog
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.
......
gcc/ada/adaint.c
......@@ -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)
......
gcc/ada/cal.c
......@@ -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;
......
gcc/ada/decl.c
......@@ -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;
......
gcc/ada/gigi.h
......@@ -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);
......
gcc/ada/gmem.c
......@@ -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).
*/
......
gcc/ada/init.c
......@@ -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)
......
gcc/ada/link.c
......@@ -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. */
......
gcc/ada/raise.c
......@@ -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,
......
gcc/ada/tracebak.c
......@@ -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. */
......
gcc/ada/trans.c
......@@ -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)
......
gcc/ada/utils.c
......@@ -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
......
gcc/ada/utils2.c
......@@ -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)
......
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