diff options
author | Robert Dewar <dewar@adacore.com> | 2010-10-26 12:32:21 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-26 14:32:21 +0200 |
commit | da20aa430cc918e7c0449f7756c02a5fb77939b0 (patch) | |
tree | 4882623005738893efefcd351aac4429dd20bf98 | |
parent | f7950055b6cb29d22fe2d7c7d7d0fe359a2e474b (diff) | |
download | gcc-da20aa430cc918e7c0449f7756c02a5fb77939b0.zip gcc-da20aa430cc918e7c0449f7756c02a5fb77939b0.tar.gz gcc-da20aa430cc918e7c0449f7756c02a5fb77939b0.tar.bz2 |
sem_res.adb, xsinfo.adb: Minor reformatting.
2010-10-26 Robert Dewar <dewar@adacore.com>
* sem_res.adb, xsinfo.adb: Minor reformatting.
From-SVN: r165950
-rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/ada/sem_res.adb | 4 | ||||
-rw-r--r-- | gcc/ada/xsinfo.adb | 3 |
3 files changed, 8 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9366be1..73d550e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2010-10-26 Robert Dewar <dewar@adacore.com> + + * sem_res.adb, xsinfo.adb: Minor reformatting. + 2010-10-26 Bob Duff <duff@adacore.com> * namet.adb (Finalize): More cleanup of statistics printouts. diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 0358ade..a90c45e 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -5279,8 +5279,8 @@ package body Sem_Res is and then Check_Infinite_Recursion (N) then -- Here we detected and flagged an infinite recursion, so we do - -- not need to test the case below for further warnings. Also, if - -- we now have a raise SE node, we are all done. + -- not need to test the case below for further warnings. Also we + -- are all done if we now have a raise SE node. if Nkind (N) = N_Raise_Storage_Error then return; diff --git a/gcc/ada/xsinfo.adb b/gcc/ada/xsinfo.adb index e3917a6..3bf6011f 100644 --- a/gcc/ada/xsinfo.adb +++ b/gcc/ada/xsinfo.adb @@ -241,7 +241,8 @@ begin Getline; end loop; - -- Can't get here; above loop only left via raise + + -- Can't get here since above loop only left via raise exception when Done => |