diff options
author | Robert Dewar <dewar@adacore.com> | 2012-01-30 11:50:52 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-30 12:50:52 +0100 |
commit | 37da997b17c1352e72d661f1426d78aa488c3399 (patch) | |
tree | d142f637db09aa859f72a46fdd034128fa1bb9a5 /gcc/ada/exp_ch7.adb | |
parent | 7873037fd8ad42ad0494cb2f5d7044309381183c (diff) | |
download | gcc-37da997b17c1352e72d661f1426d78aa488c3399.zip gcc-37da997b17c1352e72d661f1426d78aa488c3399.tar.gz gcc-37da997b17c1352e72d661f1426d78aa488c3399.tar.bz2 |
a-strhas.ads, [...]: Minor reformatting/code reorganization.
2012-01-30 Robert Dewar <dewar@adacore.com>
* a-strhas.ads, einfo.adb, einfo.ads, exp_ch7.adb, exp_ch9.adb,
freeze.adb, prj.adb, prj.ads, prj-nmsc.adb, prj-proc.adb, s-llflex.ads,
s-ransee.adb, s-ransee.ads, sem_ch13.adb, sem_dim.adb, sem_prag.adb:
Minor reformatting/code reorganization.
From-SVN: r183710
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
-rw-r--r-- | gcc/ada/exp_ch7.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index f2062e5..78a6180 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -2844,7 +2844,7 @@ package body Exp_Ch7 is -- which belongs to a protected type. Loc : constant Source_Ptr := No_Location; - HSS : Node_Id := Handled_Statement_Sequence (N); + HSS : Node_Id; begin -- Do not perform this expansion in Alfa mode because we do not create @@ -2856,6 +2856,7 @@ package body Exp_Ch7 is -- The At_End handler should have been assimilated by the finalizer + HSS := Handled_Statement_Sequence (N); pragma Assert (No (At_End_Proc (HSS))); -- If the construct to be cleaned up is a protected subprogram body, the |