From: kazu Date: Fri, 1 Apr 2005 05:28:01 +0000 (+0000) Subject: * adaint.c, cal.c, decl.c, gigi.h, gmem.c, init.c, link.c, X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=5e947a9504d2a842fbb8e30f06dabd4865c6248e * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97369 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 035d8313366..5f044138077 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2005-04-01 Kazu Hirata + + * 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 * decl.c (gnat_substitute_in_type): Don't handle FILE_TYPE. diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 2760cc6c8bc..6d65efdb53c 100644 --- a/gcc/ada/adaint.c +++ b/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) diff --git a/gcc/ada/cal.c b/gcc/ada/cal.c index 8f8930e24eb..20a631634bb 100644 --- a/gcc/ada/cal.c +++ b/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; diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 5f53e19e797..c881d55b41f 100644 --- a/gcc/ada/decl.c +++ b/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; diff --git a/gcc/ada/gigi.h b/gcc/ada/gigi.h index cdf2c225bcf..79fdf51250e 100644 --- a/gcc/ada/gigi.h +++ b/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); diff --git a/gcc/ada/gmem.c b/gcc/ada/gmem.c index 002f78f77be..cb7e0a27205 100644 --- a/gcc/ada/gmem.c +++ b/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). */ diff --git a/gcc/ada/init.c b/gcc/ada/init.c index e2b6ec44af7..6e7356be061 100644 --- a/gcc/ada/init.c +++ b/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) diff --git a/gcc/ada/link.c b/gcc/ada/link.c index cc415ad0f0d..97ff11468c7 100644 --- a/gcc/ada/link.c +++ b/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. */ diff --git a/gcc/ada/raise.c b/gcc/ada/raise.c index 7de1f7754b7..d0abc8a79c0 100644 --- a/gcc/ada/raise.c +++ b/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, diff --git a/gcc/ada/tracebak.c b/gcc/ada/tracebak.c index 1cd4a0f2588..b55f8510302 100644 --- a/gcc/ada/tracebak.c +++ b/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. */ diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index fd42e837a2b..869ce3f5603 100644 --- a/gcc/ada/trans.c +++ b/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) diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 484067d87f0..f6ea29bb288 100644 --- a/gcc/ada/utils.c +++ b/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 diff --git a/gcc/ada/utils2.c b/gcc/ada/utils2.c index 787d01e284a..6ca8b99e50a 100644 --- a/gcc/ada/utils2.c +++ b/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)