diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 13:50:50 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 13:50:50 +0000 |
| commit | f53dda320b61bb606a58ff461dc3d41cba0c536d (patch) | |
| tree | bd9bf8ec7cc3d3b591ef5f5bd4457dbf781acc82 /gcc/ada/exp_util.adb | |
| parent | 79500ea01a1a06d39f68bd5445053a302a2ca901 (diff) | |
| download | gcc-f53dda320b61bb606a58ff461dc3d41cba0c536d.tar.gz | |
2011-08-04 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, exp_ch7.adb, exp_util.adb, bindgen.adb, sem_prag.adb,
s-tassta.adb, exp_ch4.adb, exp_disp.adb, s-stausa.adb: Minor
reformatting.
2011-08-04 Arnaud Charlet <charlet@adacore.com>
* make.adb (Linking_Phase): Set source search path before calling
gnatlink in CodePeer mode.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177388 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index c8d41cb0e7c..fbf7fe92038 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -5468,7 +5468,6 @@ package body Exp_Util is function Are_Wrapped (L : List_Id) return Boolean is Stmt : constant Node_Id := First (L); - begin return Present (Stmt) @@ -5494,15 +5493,14 @@ package body Exp_Util is begin case Nkind (N) is - when N_Elsif_Part | - N_If_Statement | - N_Conditional_Entry_Call | - N_Selective_Accept => + when N_Elsif_Part | + N_If_Statement | + N_Conditional_Entry_Call | + N_Selective_Accept => -- Check the "then statements" for elsif parts and if statements - if Nkind_In (N, N_Elsif_Part, - N_If_Statement) + if Nkind_In (N, N_Elsif_Part, N_If_Statement) and then not Is_Empty_List (Then_Statements (N)) and then not Are_Wrapped (Then_Statements (N)) and then Requires_Cleanup_Actions |