sem_elim.adb: Minor reformatting

2009-04-16  Thomas Quinot  <quinot@adacore.com>

	* sem_elim.adb: Minor reformatting

	* freeze.adb: Minor reformatting

	* exp_ch4.adb: Minor reformatting

From-SVN: r146154

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7ce16489967eca1bc4d0eed498ae2f1754fa759d..92ae20a8fac6eacbc3bb861bd9bcf2d84a262e40 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+2009-04-16  Thomas Quinot  <quinot@adacore.com>
+
+       * sem_elim.adb: Minor reformatting
+
+       * freeze.adb: Minor reformatting
+
+       * exp_ch4.adb: Minor reformatting
+
 2009-04-16  Emmanuel Briot  <briot@adacore.com>
 
        * prj-nmsc.adb (Path_Name_Of): fix memory leak

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index fa76b9630ca70088cb1952eae024636a06814221..39158ecc62b40ff95dc6766669dbf4416f0a4291 100644 (file)
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -2938,7 +2938,7 @@ package body Exp_Ch4 is
       function Size_In_Storage_Elements (E : Entity_Id) return Node_Id;
       --  Given a constrained array type E, returns a node representing the
       --  code to compute the size in storage elements for the given type.
-      --  This is done without using the attribute (which malfunctins for
+      --  This is done without using the attribute (which malfunctions for
       --  large sizes ???)
 
       ---------------------------------------
@@ -3356,7 +3356,7 @@ package body Exp_Ch4 is
          --  least at the moment we don't compute this attribute right, and
          --  can silently give wrong results when the result gets large. Since
          --  this is all about large results, that's bad, so instead we only
-         --  applly the check for constrained arrays, and manually compute the
+         --  apply the check for constrained arrays, and manually compute the
          --  value of the attribute ???
 
          if Is_Array_Type (Etyp) and then Is_Constrained (Etyp) then

diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index 88ea26929cc0e8c68019ca1a719101bebd0c9959..bc8e56c6246bd5ac7aedce50127e4756e4eed645 100644 (file)
--- a/gcc/ada/freeze.adb
+++ b/gcc/ada/freeze.adb
@@ -3509,7 +3509,7 @@ package body Freeze is
          --  For access subprogram, freeze types of all formals, the return
          --  type was already frozen, since it is the Etype of the function.
          --  Formal types can be tagged Taft amendment types, but otherwise
-         --  they cannot be incomplete;
+         --  they cannot be incomplete.
 
          elsif Ekind (E) = E_Subprogram_Type then
             Formal := First_Formal (E);
@@ -3535,7 +3535,7 @@ package body Freeze is
 
             --  Ada 2005 (AI-326): Check wrong use of tag incomplete type
 
-            --    type T;  --   tagged or untagged, may be from limited view;
+            --    type T;  --   tagged or untagged, may be from limited view
             --    type Acc is access function (X : T) return T; -- ERROR
 
             if Ekind (Etype (E)) = E_Incomplete_Type

diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb
index bdf6d57e0131e342040c56b1d1d12d90fe1f4fd7..c15f9cfb3bc3fe1d24619e53c6eaab46f5664a82 100644 (file)
--- a/gcc/ada/sem_elim.adb
+++ b/gcc/ada/sem_elim.adb
@@ -282,7 +282,7 @@ package body Sem_Elim is
                if Is_Dispatching_Operation (E) then
 
                   --  If an overriding dispatching primitive is eliminated then
-                  --  its parent must have been eliminated
+                  --  its parent must have been eliminated.
 
                   if Is_Overriding_Operation (E)
                     and then not Is_Eliminated (Overridden_Operation (E))