diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2016-04-20 09:17:15 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 11:17:15 +0200 |
| commit | c37e6613f5530611fb5ba5db6c7972694a8b0f5c (patch) | |
| tree | b9ac6d0581bc24a3dfdd229fd979a25e4fdf5711 /gcc/ada/exp_ch6.adb | |
| parent | 7f5e1dee7c70db3fd4e4dab5f205a30b8373a8de (diff) | |
| download | gcc-c37e6613f5530611fb5ba5db6c7972694a8b0f5c.zip gcc-c37e6613f5530611fb5ba5db6c7972694a8b0f5c.tar.gz gcc-c37e6613f5530611fb5ba5db6c7972694a8b0f5c.tar.bz2 | |
sem_util.adb, [...]: Minor reformatting.
2016-04-20 Hristian Kirtchev <kirtchev@adacore.com>
* sem_util.adb, contracts.adb, ghost.adb, exp_ch6.adb: Minor
reformatting.
From-SVN: r235246
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 511f479..ea8bed4 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -5522,6 +5522,7 @@ package body Exp_Ch6 is procedure Expand_N_Subprogram_Body_Stub (N : Node_Id) is Bod : Node_Id; + begin if Present (Corresponding_Body (N)) then Bod := Unit_Declaration_Node (Corresponding_Body (N)); |