diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-07-30 19:38:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-07-30 19:38:25 +0200 |
| commit | a7a0d4dd08eba93103b1f2c6173af8ae979e3ea3 (patch) | |
| tree | 17cc64646d280d98999f01b90879507f42818c2a /gcc | |
| parent | 7813a5109103ac06197386fa7c6cda211b8f5037 (diff) | |
| download | gcc-a7a0d4dd08eba93103b1f2c6173af8ae979e3ea3.zip gcc-a7a0d4dd08eba93103b1f2c6173af8ae979e3ea3.tar.gz gcc-a7a0d4dd08eba93103b1f2c6173af8ae979e3ea3.tar.bz2 | |
sem_ch8.adb: Minor reformatting
2008-07-30 Robert Dewar <dewar@adacore.com>
* sem_ch8.adb: Minor reformatting
From-SVN: r138330
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 6a544c0..16c79d9 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -1598,6 +1598,7 @@ package body Sem_Ch8 is & " dispatching operation", Nam); return; end case; + exception -- If no operation was found, and the type is limited, @@ -1610,7 +1611,7 @@ package body Sem_Ch8 is N, Prefix_Type); return; - -- Otherwise, compiler should have generated default. + -- Otherwise, compiler should have generated default else raise; |