Fix typos in gcc/ada.

gcc/ada/:
	* projects.texi: Fix typos.
	* gnat_rm.texi: Likewise.
	* gnat_ugn.texi: Likewise.
	* sem_util.adb: Fix typo in variable, typos in comments.
	* a-btgbso.adb: Fix typos in comments.
	* a-cbdlli.adb, a-cbhase.ads, a-cdlili.adb, a-cobove.adb,
	a-coinve.adb, a-convec.adb, a-direct.ads, a-strunb-shared.adb,
	a-strunb-shared.ads, a-stuten.ads, a-stwiun-shared.adb,
	a-stwiun-shared.ads, a-stzunb-shared.adb, a-stzunb-shared.ads,
	a-suenco.adb, a-suenst.adb, a-suewst.adb, a-suezst.adb, ali.ads,
	aspects.ads, atree.ads, binde.adb, bindgen.adb, checks.adb,
	checks.ads, einfo.ads, err_vars.ads, errout.adb, errout.ads,
	exp_aggr.adb, exp_attr.adb, exp_cg.adb, exp_ch3.adb,
	exp_ch4.adb, exp_ch5.adb, exp_ch6.adb, exp_ch7.adb,
	exp_dbug.ads, exp_disp.adb, exp_fixd.ads, freeze.adb,
	g-altive.ads, g-comlin.ads, g-excact.ads, g-mbdira.adb,
	g-sechas.ads, g-sehash.ads, g-sha1.ads, g-sha224.ads,
	g-sha256.ads, g-sha384.ads, g-sha512.ads, g-shsh32.ads,
	g-shsh64.ads, g-socket.adb, g-socket.ads, g-sothco.ads,
	gcc-interface/decl.c, gcc-interface/trans.c,
	gcc-interface/utils2.c, gnat1drv.adb, init.c, inline.adb,
	link.c, locales.c, make.adb, mingw32.h, namet.ads, osint.adb,
	par-ch12.adb, par-ch13.adb, par-ch3.adb, par-ch4.adb,
	par-prag.adb, par.adb, par_sco.adb, prepcomp.adb,
	prj-conf.ads, prj-dect.adb, prj-env.adb, prj-env.ads,
	prj-nmsc.adb, prj-tree.ads, prj-util.ads, prj.adb, prj.ads,
	s-auxdec-vms-alpha.adb, s-auxdec-vms_64.ads, s-oscons-tmplt.c,
	s-osinte-vxworks.ads, s-osprim-mingw.adb, s-regexp.adb,
	s-stusta.adb, s-taprop-mingw.adb, s-taprop-solaris.adb,
	scn.adb, scos.ads, sem.adb, sem_aggr.adb, sem_attr.adb,
	sem_aux.adb, sem_aux.ads, sem_ch12.adb, sem_ch12.ads,
	sem_ch13.adb, sem_ch13.ads, sem_ch3.adb, sem_ch4.adb,
	sem_ch6.adb, sem_ch7.adb, sem_ch8.adb, sem_disp.adb,
	sem_disp.ads, sem_eval.adb, sem_intr.adb, sem_prag.adb,
	sem_res.adb, sem_scil.adb, sem_util.ads, sem_warn.adb,
	sem_warn.ads, sinfo.ads, socket.c, styleg.adb, switch.ads,
	sysdep.c, tb-alvxw.c, xoscons.adb: Likewise.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@168082 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 10 insertions, 9 deletions

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 2144de90a22..fa1ad4f4459 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -2340,7 +2340,7 @@ package body Exp_Ch4 is
       --  in packages System.Concat_n.
 
       Known_Non_Null_Operand_Seen : Boolean;
-      --  Set True during generation of the assignements of operands into
+      --  Set True during generation of the assignments of operands into
       --  result once an operand known to be non-null has been seen.
 
       function Make_Artyp_Literal (Val : Nat) return Node_Id;
@@ -2434,9 +2434,10 @@ package body Exp_Ch4 is
 
       --  We can't just use the index type, or even its base type for this
       --  purpose for two reasons. First it might be an enumeration type which
-      --  is not suitable fo computations of any kind, and second it may simply
-      --  not have enough range. For example if the index type is -128..+127
-      --  then lengths can be up to 256, which is out of range of the type.
+      --  is not suitable for computations of any kind, and second it may
+      --  simply not have enough range. For example if the index type is
+      --  -128..+127 then lengths can be up to 256, which is out of range of
+      --  the type.
 
       --  For enumeration types, we can simply use Standard_Integer, this is
       --  sufficient since the actual number of enumeration literals cannot
@@ -3486,7 +3487,7 @@ package body Exp_Ch4 is
 
       --  Same if the allocator is an access discriminant for a local object:
       --  instead of an allocator we create a local value and constrain the
-      --  the enclosing object with the corresponding access attribute.
+      --  enclosing object with the corresponding access attribute.
 
       if Is_Static_Coextension (N) then
          Rewrite_Coextension (N);
@@ -3517,7 +3518,7 @@ package body Exp_Ch4 is
          --    raise Storage_Error;
          --  end if;
 
-         --  where 3.5 gigabytes is a constant large enough to accomodate any
+         --  where 3.5 gigabytes is a constant large enough to accommodate any
          --  reasonable request for. But we can't do it this way because at
          --  least at the moment we don't compute this attribute right, and
          --  can silently give wrong results when the result gets large. Since
@@ -4140,7 +4141,7 @@ package body Exp_Ch4 is
       --         Cnn := else-expr'Unrestricted_Access;
       --      end if;
 
-      --  and replace the conditional expresion by a reference to Cnn.all.
+      --  and replace the conditional expression by a reference to Cnn.all.
 
       --  This special case can be skipped if the back end handles limited
       --  types properly and ensures that no incorrect copies are made.
@@ -4415,7 +4416,7 @@ package body Exp_Ch4 is
    --  Start of processing for Expand_N_In
 
    begin
-      --  If set membersip case, expand with separate procedure
+      --  If set membership case, expand with separate procedure
 
       if Present (Alternatives (N)) then
          Remove_Side_Effects (Lop);
@@ -8373,7 +8374,7 @@ package body Exp_Ch4 is
       --  target is a real type or a 64-bit integer type, and the operand
       --  is an arithmetic operation using a 32-bit integer type. However,
       --  we do not bother with this case, because it could cause significant
-      --  ineffiencies on 32-bit machines. On a 64-bit machine it would be
+      --  inefficiencies on 32-bit machines. On a 64-bit machine it would be
       --  much cheaper, but we don't want different behavior on 32-bit and
       --  64-bit machines. Note that the exclusion of the 64-bit case also
       --  handles the configurable run-time cases where 64-bit arithmetic