diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-29 15:23:07 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-29 15:23:07 +0000 |
| commit | b69074f32f3dba05fb898ca4f37f5b23736481c6 (patch) | |
| tree | 4f3a46886b2cd81f50e188613ac7fb9688db4cbe /gcc/ada/exp_ch9.adb | |
| parent | 8325ff3be4b110a27bd59a6567bf32d6a0452b43 (diff) | |
| download | gcc-b69074f32f3dba05fb898ca4f37f5b23736481c6.tar.gz | |
2014-01-29 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb, inline.ads: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@207246 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 8f78f0619f7..c9ee46cf863 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -13425,9 +13425,7 @@ package body Exp_Ch9 is -- Start of processing for Is_Exception_Safe begin - - -- When exceptions can not be propagated, the subprogram will always - -- return normaly. + -- When exceptions can't be propagated, the subprogram returns normally if No_Exception_Handlers_Set then return True; |