diff options
author | Kazu Hirata <kazu@cs.umass.edu> | 2005-04-01 05:28:01 +0000 |
---|---|---|
committer | Kazu Hirata <kazu@gcc.gnu.org> | 2005-04-01 05:28:01 +0000 |
commit | 45f7cb601829cd50ac80677edf22d3c03e9b6327 (patch) | |
tree | 639823f0b45b5a525e2e96e30ce0899ecb12b108 /gcc/ada/trans.c | |
parent | 38b974a6cf4ea5e2ea107c63aa4c2b6d64a89894 (diff) | |
download | gcc-45f7cb601829cd50ac80677edf22d3c03e9b6327.zip gcc-45f7cb601829cd50ac80677edf22d3c03e9b6327.tar.gz gcc-45f7cb601829cd50ac80677edf22d3c03e9b6327.tar.bz2 |
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
Diffstat (limited to 'gcc/ada/trans.c')
-rw-r--r-- | gcc/ada/trans.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index fd42e83..869ce3f 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) |