From: Thomas Quinot Date: Thu, 16 Apr 2009 09:22:37 +0000 (+0000) Subject: sem_elim.adb: Minor reformatting X-Git-Tag: releases/gcc-4.5.0~6565 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=205c14b0d0312a81140313d7b9b9a257248851c1;p=thirdparty%2Fgcc.git sem_elim.adb: Minor reformatting 2009-04-16 Thomas Quinot * 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 7ce16489967e..92ae20a8fac6 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2009-04-16 Thomas Quinot + + * sem_elim.adb: Minor reformatting + + * freeze.adb: Minor reformatting + + * exp_ch4.adb: Minor reformatting + 2009-04-16 Emmanuel Briot * prj-nmsc.adb (Path_Name_Of): fix memory leak diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index fa76b9630ca7..39158ecc62b4 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 88ea26929cc0..bc8e56c6246b 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 bdf6d57e0131..c15f9cfb3bc3 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))