diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 870ed8cf29078c7b6562f47e9424eefbd2290cbe..6698b77a0733b67f0be34073391c7b24fb277b33 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,12 @@
+2006-05-28 Kazu Hirata <kazu@codesourcery.com>
+
+ * decl.c, env.c, gigi.h, init.c, initialize.c, raise-gcc.c,
+ sem_ch13.adb, sysdep.c, targtyps.c, tb-alvxw.c, tracebak.c,
+ trans.c, utils.c: Fix comment typos. Follow spelling
+ conventions.
+ * gnat_rm.texi, gnat_ugn.texi, : Fix typos. Follow spelling
+ conventions.
+
2006-05-14 H.J. Lu <hongjiu.lu@intel.com>
* Make-lang.in (ada/decl.o): Replace target.h with $(TARGET_H).
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c
index 2144ff2080246b9103db0d227c061cb7b6c37ae2..6a8f23424c5e20198ff22c500e8114e2aff53c6c 100644
--- a/gcc/ada/decl.c
+++ b/gcc/ada/decl.c
@@ -134,7 +134,7 @@ gnat_to_gnu_type (Entity_Id gnat_entity)
DEFINITION is nonzero if this call is intended for a definition. This is
used for separate compilation where it necessary to know whether an
external declaration or a definition should be created if the GCC equivalent
- was not created previously. The value of 1 is normally used for a non-zero
+ was not created previously. The value of 1 is normally used for a nonzero
DEFINITION, but a value of 2 is used in special circumstances, defined in
the code. */
@@ -4719,7 +4719,7 @@ elaborate_expression (Node_Id gnat_expr, Entity_Id gnat_entity,
if (present_gnu_tree (gnat_expr))
return get_gnu_tree (gnat_expr);
- /* If we don't need a value and this is static or a discriment, we
+ /* If we don't need a value and this is static or a discriminant, we
don't need to do anything. */
else if (!need_value
&& (Is_OK_Static_Expression (gnat_expr)
@@ -5254,7 +5254,7 @@ gnat_to_gnu_field (Entity_Id gnat_field, tree gnu_record_type, int packed,
this a bitfield and avoid making things wider.
Doing this is first useful if the record is packed because we can then
- place the field at a non-byte-aligned position and so achieve tigther
+ place the field at a non-byte-aligned position and so achieve tighter
packing.
This is in addition *required* if the field shares a byte with another
diff --git a/gcc/ada/env.c b/gcc/ada/env.c
index 6b6cec6f43d2520f09b5515ffa1d922a6ddd6220..9465a3ec0c98fe3de72efa1be01ef78ec1f782fb 100644
--- a/gcc/ada/env.c
+++ b/gcc/ada/env.c
@@ -227,7 +227,7 @@ void __gnat_unsetenv (char *name) {
have been allocated using malloc. To avoid this memory leak another
method can be used. It consists in forcing the reallocation of all the
strings in the environ table using malloc on the first call on the
- functions related to environment variable management. The disavantage
+ functions related to environment variable management. The disadvantage
is that if a program makes a direct call to getenv the return string
may be deallocated at some point. */
/* Note that on AIX, unsetenv is not supported on 5.1 but it is on 5.3.
diff --git a/gcc/ada/gigi.h b/gcc/ada/gigi.h
index e1914e4ac1ba0a25dcece3b727cfb7aba3547654..e1661290f723ded1782e666ebf143747f253926c 100644
--- a/gcc/ada/gigi.h
+++ b/gcc/ada/gigi.h
@@ -63,7 +63,7 @@ extern void init_dummy_type (void);
DEFINITION is nonzero if this call is intended for a definition. This is
used for separate compilation where it necessary to know whether an
external declaration or a definition should be created if the GCC equivalent
- was not created previously. The value of 1 is normally used for a non-zero
+ was not created previously. The value of 1 is normally used for a nonzero
DEFINITION, but a value of 2 is used in special circumstances, defined in
the code. */
extern tree gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr,
@@ -406,7 +406,7 @@ extern GTY(()) tree static_dtors;
/* Routines expected by the gcc back-end. They must have exactly the same
prototype and names as below. */
-/* Returns non-zero if we are currently in the global binding level */
+/* Returns nonzero if we are currently in the global binding level. */
extern int global_bindings_p (void);
/* Enter and exit a new binding level. */
diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi
index 87def3a76ce730774d302a49862e5573c631960f..a0f1b4fa96e9a05d045466d043972443ae61e80e 100644
--- a/gcc/ada/gnat_rm.texi
+++ b/gcc/ada/gnat_rm.texi
@@ -7146,7 +7146,7 @@ case letters. This line is always present.
@item
@code{ppp} is the Process Id value as a decimal integer (this line is
-present only if the Process Id is non-zero). Currently we are
+present only if the Process Id is nonzero). Currently we are
not making use of this field.
@item
@@ -7456,7 +7456,7 @@ must define with the following profile:
The parameter is a C null-terminated string representing a message to be
associated with the exception (typically the source location of the raise
- statement generated by the compiler). The Line parameter when non-zero
+ statement generated by the compiler). The Line parameter when nonzero
represents the line number in the source program where the raise occurs.
@item No_Exception_Streams
@@ -8185,7 +8185,7 @@ The ceiling priority of internal protected objects is
@strong{101}. Implementation-defined queuing policies. See D.4(1).
@end cartouche
@noindent
-There are no implementation-defined queueing policies.
+There are no implementation-defined queuing policies.
@sp 1
@cartouche
diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi
index a3b21c3fe7cad1d7c22d13e2465b610e2838e397..750a0869ff9a686dcd09571c04cbfd30f24dbcaf 100644
--- a/gcc/ada/gnat_ugn.texi
+++ b/gcc/ada/gnat_ugn.texi
@@ -3014,7 +3014,7 @@ interface to @code{printfi}.
@item
It may work on some platforms to directly interface to
a @code{varargs} function by providing a specific Ada profile
-for a a particular call. However, this does not work on
+for a particular call. However, this does not work on
all platforms, since there is no guarantee that the
calling sequence for a two argument normal C function
is the same as for calling a @code{varargs} C function with
@@ -3050,7 +3050,7 @@ in section B.5 of the Ada 95 Reference Manual.
@item Intrinsic
This applies to an intrinsic operation, as defined in the Ada 95
-Reference Manual. If a a pragma Import (Intrinsic) applies to a subprogram,
+Reference Manual. If a pragma Import (Intrinsic) applies to a subprogram,
this means that the body of the subprogram is provided by the compiler itself,
usually by means of an efficient code sequence, and that the user does not
supply an explicit body for it. In an application program, the pragma can
@@ -7318,7 +7318,7 @@ Set the time slice value to @var{n} milliseconds. If the system supports
the specification of a specific time slice value, then the indicated value
is used. If the system does not support specific time slice values, but
does support some general notion of round-robin scheduling, then any
-non-zero value will activate round-robin scheduling.
+nonzero value will activate round-robin scheduling.
A value of zero is treated specially. It turns off time
slicing, and in addition, indicates to the tasking run time that the
@@ -9104,7 +9104,7 @@ in @ref{Inlining of Subprograms}.
@noindent
Although it is possible to do a reasonable amount of debugging at
@ifclear vms
-non-zero optimization levels,
+nonzero optimization levels,
the higher the level the more likely that
@end ifclear
@ifset vms
@@ -20052,7 +20052,7 @@ This command allows to switch to the task referred by @var{taskno}. In
particular, This allows to browse the backtrace of the specified
task. It is advised to switch back to the original task before
continuing execution otherwise the scheduling of the program may be
-perturbated.
+perturbed.
@end table
@noindent
diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index 11dc19de4f370db17526b1d493e196a729e33e12..521963751e50eb2d38967285ad409346342470e6 100644
--- a/gcc/ada/init.c
+++ b/gcc/ada/init.c
@@ -1801,7 +1801,7 @@ __gnat_init_float (void)
#endif
/* Similarly for sparc64. Achieved by masking bits in the Trap Enable Mask
- field of the Floating-point Status Register (see the Sparc Architecture
+ field of the Floating-point Status Register (see the SPARC Architecture
Manual Version 9, p 48). */
#if defined (sparc64)
diff --git a/gcc/ada/initialize.c b/gcc/ada/initialize.c
index 58d8ca88af6bb0ac493b2236057efc7999acfe6e..0b86c2f2f0507ecc84464b8e48842ad0d2015341 100644
--- a/gcc/ada/initialize.c
+++ b/gcc/ada/initialize.c
@@ -126,7 +126,7 @@ __gnat_initialize (void *eh)
step documented for C++. The de-registration is handled symmetrically,
a-la C++ destructor fashion and typically triggered by the dynamic
unloader. Note that since the tables shall be registered against a
- common datastructure, libgcc should be one of the modules (vs beeing
+ common datastructure, libgcc should be one of the modules (vs being
partially linked against all the others at build time) and shall be
loaded first.
diff --git a/gcc/ada/raise-gcc.c b/gcc/ada/raise-gcc.c
index 49b1791577ca6728fbfa02851ca7d13d4542f833..3100af3b9e53556a919380d72005bd7860b320b2 100644
--- a/gcc/ada/raise-gcc.c
+++ b/gcc/ada/raise-gcc.c
@@ -62,7 +62,7 @@ typedef char bool;
(SJLJ or DWARF). We need a consistently named interface to import from
a-except, so wrappers are defined here.
- Besides, eventhough the compiler is never setup to use the GCC propagation
+ Besides, even though the compiler is never setup to use the GCC propagation
circuitry, it still relies on exceptions internally and part of the sources
to handle to exceptions are shared with the run-time library. We need
dummy definitions for the wrappers to satisfy the linker in this case.
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index 00505e6d866139fc6854657e199685c47eb4e3a7..88c0fc005fad6b5afbd83dbc25232ebe556a3ba5 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -582,7 +582,7 @@ package body Sem_Ch13 is
Mark_Aliased_Address_As_Volatile (Expr);
-- Second case is where we have a constant whose
- -- definition is of the form of an adress as in:
+ -- definition is of the form of an address as in:
-- A : constant Address := K'Address;
-- ...
diff --git a/gcc/ada/sysdep.c b/gcc/ada/sysdep.c
index 376a3655542f1e98a7ff1f74af8e53a9ef4651a3..055c99f1ad8bb570d28fce4d6c69efbab88b19c2 100644
--- a/gcc/ada/sysdep.c
+++ b/gcc/ada/sysdep.c
@@ -187,7 +187,7 @@ __gnat_ttyname (int filedes)
return NULL;
}
-/* This function is needed to fix a bug under Win95/98. Under these plateforms
+/* This function is needed to fix a bug under Win95/98. Under these platforms
doing :
ch1 = getch();
ch2 = fgetc (stdin);
diff --git a/gcc/ada/targtyps.c b/gcc/ada/targtyps.c
index bbf381df1eaee07ac788c501a6084af941713385..08bca930f5ae2b929f61e17bbff909f5f549b8fb 100644
--- a/gcc/ada/targtyps.c
+++ b/gcc/ada/targtyps.c
@@ -89,7 +89,7 @@ get_target_char_size (void)
Pos
get_target_wchar_t_size (void)
{
- /* We never want wide chacters less than "short" in Ada. */
+ /* We never want wide characters less than "short" in Ada. */
return MAX (SHORT_TYPE_SIZE, WCHAR_TYPE_SIZE);
}
diff --git a/gcc/ada/tb-alvxw.c b/gcc/ada/tb-alvxw.c
index 64e4a3ced0b9ceded0abe6f5b6c2392dc9ff3409..3c782762b86d277f499916e2e30c74fd2cb3804e 100644
--- a/gcc/ada/tb-alvxw.c
+++ b/gcc/ada/tb-alvxw.c
@@ -630,7 +630,7 @@ find_proc_desc (CORE_ADDR pc,
{
CORE_ADDR startaddr;
- /* If heuristic_fence_post is non-zero, determine the procedure
+ /* If heuristic_fence_post is nonzero, determine the procedure
start address by examining the instructions.
This allows us to find the start address of static functions which
have no symbolic information, as startaddr would have been set to
diff --git a/gcc/ada/tracebak.c b/gcc/ada/tracebak.c
index 55fa44a3dd687b79d7ccf9689113cea4b876827a..9c25d1ee4bfbd69874d423cf6c1c7793b0e1eb19 100644
--- a/gcc/ada/tracebak.c
+++ b/gcc/ada/tracebak.c
@@ -35,7 +35,7 @@
It has been tested on the following configurations:
PowerPC/AiX
PowerPC/VxWorks
- Sparc/Solaris
+ SPARC/Solaris
i386/GNU/Linux
i386/Solaris
i386/NT
@@ -187,7 +187,7 @@ extern void (*Unlock_Task) (void);
o FETCH_UP_FRAME, to force an invocation of __builtin_frame_address with a
positive argument right after a possibly forced call even if FRAME_LEVEL
- is 0. See the Sparc Solaris case for an example where this is useful.
+ is 0. See the SPARC Solaris case for an example where this is useful.
*/
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index 30c0fb5dc27b8c4b427b20aa389a0706e13e7931..b7b3598cef191ba7b319439e2f669814338ba5de 100644
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -1510,7 +1510,7 @@ Subprogram_Body_to_gnu (Node_Id gnat_node)
we must turn a condition into the corresponding exception even if there
is no applicable Ada handler, and need at least one condition handler per
possible call chain involving GNAT code. OTOH, establishing the handler
- has a cost so we want to mimize the number of subprograms into which this
+ has a cost so we want to minimize the number of subprograms into which this
happens. The foreign or exported condition is expected to satisfy all
the constraints. */
if (TARGET_ABI_OPEN_VMS
@@ -4829,7 +4829,7 @@ gnat_gimplify_stmt (tree *stmt_p)
/* The reason for this routine's existence is two-fold.
First, with some debugging formats, notably MDEBUG on SGI
IRIX, the linker will remove duplicate debugging information if two
- clients have identical debugguing information. With the normal scheme
+ clients have identical debugging information. With the normal scheme
of elaboration, this does not usually occur, since entities in with'ed
packages are elaborated on demand, and if clients have different usage
patterns, the normal case, then the order and selection of entities
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c
index a3fdb0d5c4538fcc96e3f7fe321c76cead56818a..1bdfacf09bcfbd113d5584c16ef17343559c0180 100644
--- a/gcc/ada/utils.c
+++ b/gcc/ada/utils.c
@@ -186,7 +186,7 @@ present_gnu_tree (Entity_Id gnat_entity)
}
-/* Return non-zero if we are currently in the global binding level. */
+/* Return nonzero if we are currently in the global binding level. */
int
global_bindings_p (void)
@@ -2874,7 +2874,7 @@ convert (tree type, tree expr)
case VIEW_CONVERT_EXPR:
{
/* GCC 4.x is very sensitive to type consistency overall, and view
- conversions thus are very frequent. Eventhough just "convert"ing
+ conversions thus are very frequent. Even though just "convert"ing
the inner operand to the output type is fine in most cases, it
might expose unexpected input/output type mismatches in special
circumstances so we avoid such recursive calls when we can. */
@@ -2882,7 +2882,7 @@ convert (tree type, tree expr)
tree op0 = TREE_OPERAND (expr, 0);
/* If we are converting back to the original type, we can just
- lift the input conversion. This is a common occurence with
+ lift the input conversion. This is a common occurrence with
switches back-and-forth amongst type variants. */
if (type == TREE_TYPE (op0))
return op0;