diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-05 15:10:50 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-05 17:10:50 +0200 |
| commit | dedac3eb7331f441f24b192fa0d9d1e1162f57ba (patch) | |
| tree | dbf7d77eccd6d83effd5cc41a4d0d61e74a759c3 /gcc/ada/lib-xref-alfa.adb | |
| parent | 7c62a85a8dcec50e474c02525c5f165ad30cf2d9 (diff) | |
| download | gcc-dedac3eb7331f441f24b192fa0d9d1e1162f57ba.zip gcc-dedac3eb7331f441f24b192fa0d9d1e1162f57ba.tar.gz gcc-dedac3eb7331f441f24b192fa0d9d1e1162f57ba.tar.bz2 | |
par_sco.adb, [...]: Minor reformatting.
2011-08-05 Robert Dewar <dewar@adacore.com>
* par_sco.adb, sem_ch3.adb, scos.ads, a-iteint.ads, sem_ch12.adb,
a-cimutr.adb, a-cimutr.ads, sem_util.ads, sem_res.adb, a-fihema.adb,
sem_ch4.adb, lib-xref-alfa.adb, exp_disp.adb, a-comutr.adb,
a-comutr.ads, lib-xref.adb: Minor reformatting.
2011-08-05 Robert Dewar <dewar@adacore.com>
* sem_ch11.adb (Analyze_Raise_Statement): Kill assignment to formal
warning if there is an exception handler present.
From-SVN: r177451
Diffstat (limited to 'gcc/ada/lib-xref-alfa.adb')
| -rw-r--r-- | gcc/ada/lib-xref-alfa.adb | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/lib-xref-alfa.adb b/gcc/ada/lib-xref-alfa.adb index 526fdb7..58c4ecc 100644 --- a/gcc/ada/lib-xref-alfa.adb +++ b/gcc/ada/lib-xref-alfa.adb @@ -877,12 +877,11 @@ package body ALFA is procedure Detect_And_Add_ALFA_Scope (N : Node_Id) is begin - if Nkind_In (N, - N_Subprogram_Declaration, - N_Subprogram_Body, - N_Subprogram_Body_Stub, - N_Package_Declaration, - N_Package_Body) + if Nkind_In (N, N_Subprogram_Declaration, + N_Subprogram_Body, + N_Subprogram_Body_Stub, + N_Package_Declaration, + N_Package_Body) then Add_ALFA_Scope (N); end if; |