diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-02-22 15:12:55 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-02-22 15:12:55 +0100 |
| commit | 9aa04cc733440f0b9d1511d0453e38351546141b (patch) | |
| tree | 0ca3eebfb23972eb52bb66139e169b1ffc2e8701 /gcc/ada/exp_util.adb | |
| parent | aab081301183b100541e48100c11281435b9e286 (diff) | |
| download | gcc-9aa04cc733440f0b9d1511d0453e38351546141b.zip gcc-9aa04cc733440f0b9d1511d0453e38351546141b.tar.gz gcc-9aa04cc733440f0b9d1511d0453e38351546141b.tar.bz2 | |
[multiple changes]
2012-02-22 Robert Dewar <dewar@adacore.com>
* exp_util.adb, make.adb, sem_dim.adb, sem_ch4.adb, exp_disp.adb: Minor
reformatting.
2012-02-22 Geert Bosch <bosch@adacore.com>
* g-bytswa-x86.adb, g-bytswa.adb, gcc-interface/Makefile.in: Remove
x86-specific version of byteswap and use GCC builtins instead.
2012-02-22 Tristan Gingold <gingold@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) [E_String_Type,
E_Array_Type]: Translate component ealier.
2012-02-22 Robert Dewar <dewar@adacore.com>
* par-ch3.adb (P_Signed_Integer_Type_Definition): Specialize
error message for 'Range.
From-SVN: r184480
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 34bf030..96498c2 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -3961,7 +3961,6 @@ package body Exp_Util is function Initialized_By_Ctrl_Function (N : Node_Id) return Boolean is Expr : constant Node_Id := Original_Node (Expression (N)); - begin return Nkind (Expr) = N_Function_Call @@ -3986,6 +3985,7 @@ package body Exp_Util is N_Unchecked_Type_Conversion) then Call := Expression (Call); + else exit; end if; |