aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThomas Quinot <quinot@adacore.com>2009-04-16 09:22:37 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2009-04-16 11:22:37 +0200
commit205c14b0d0312a81140313d7b9b9a257248851c1 (patch)
treea314edc627b506695c11ccfe18f27846d7277949
parentb6fc2cdb350cd4f4d1591264caf57ad07a7ff78a (diff)
downloadgcc-205c14b0d0312a81140313d7b9b9a257248851c1.zip
gcc-205c14b0d0312a81140313d7b9b9a257248851c1.tar.gz
gcc-205c14b0d0312a81140313d7b9b9a257248851c1.tar.bz2
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
-rw-r--r--gcc/ada/ChangeLog8
-rw-r--r--gcc/ada/exp_ch4.adb4
-rw-r--r--gcc/ada/freeze.adb4
-rw-r--r--gcc/ada/sem_elim.adb2
4 files changed, 13 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7ce1648..92ae20a 100644
--- 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 fa76b96..39158ec 100644
--- 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 88ea269..bc8e56c 100644
--- 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 bdf6d57..c15f9cfb 100644
--- 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))