diff options
| author | Thomas Quinot <quinot@adacore.com> | 2009-04-16 09:22:37 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 11:22:37 +0200 |
| commit | 205c14b0d0312a81140313d7b9b9a257248851c1 (patch) | |
| tree | a314edc627b506695c11ccfe18f27846d7277949 | |
| parent | b6fc2cdb350cd4f4d1591264caf57ad07a7ff78a (diff) | |
| download | gcc-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/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/freeze.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_elim.adb | 2 |
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)) |