diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-05 10:16:11 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 10:16:11 +0200 |
| commit | 922987827dfc9cd89d719b84a1f405173df80001 (patch) | |
| tree | aac168d85c61883a519b7cef50b847273088c3e8 | |
| parent | 5b6728d435aca04d99c2f700850bec0375eba273 (diff) | |
| download | gcc-922987827dfc9cd89d719b84a1f405173df80001.zip gcc-922987827dfc9cd89d719b84a1f405173df80001.tar.gz gcc-922987827dfc9cd89d719b84a1f405173df80001.tar.bz2 | |
sem_ch3.adb: Minor reformatting
2008-08-05 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb: Minor reformatting
From-SVN: r138667
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 44cd6c6..1543e25 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -4480,6 +4480,7 @@ package body Sem_Ch3 is -- the enclosing scope. P := Parent (N); + if Nkind (P) = N_Subprogram_Body and then Nkind (N) = N_Function_Specification then |