diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-12 12:30:29 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-12 12:30:29 +0200 |
| commit | d9819bbd70137cde670497826160c6ae964454a7 (patch) | |
| tree | 04a8e86ff3e86b38d6ad932ef1f19194fec3232d /gcc/ada/exp_pakd.adb | |
| parent | 2ed5b74848f711b62fb30cfa324377217534411a (diff) | |
| download | gcc-d9819bbd70137cde670497826160c6ae964454a7.zip gcc-d9819bbd70137cde670497826160c6ae964454a7.tar.gz gcc-d9819bbd70137cde670497826160c6ae964454a7.tar.bz2 | |
[multiple changes]
2012-07-12 Ed Schonberg <schonberg@adacore.com>
* exp_aggr.adb (Convert_To_Positional): Increase acceptable size
of static aggregate when Static_Elaboration_Desired is requested.
Add a warning if the request cannot be satisfied either because
some components or some array bounds are non-static.
2012-07-12 Thomas Quinot <quinot@adacore.com>
* exp_pakd.adb: Minor reformatting.
2012-07-12 Tristan Gingold <gingold@adacore.com>
* tracebak.c: Fix warnings.
* raise-gcc.c (__gnat_adjust_context): New function
(__gnat_personality_seh0): Call __gnat_adjust_context to adjust
PC in machine frame for exceptions that occur in the current
function.
2012-07-12 Thomas Quinot <quinot@adacore.com>
* g-bytswa.adb, g-bytswa.ads, s-bytswa.adb, s-bytswa.ads, Makefile.rtl:
Move GNAT.Byte_Swapping to System (with a renaming under GNAT)
so that it is usable in expanded code.
2012-07-12 Tristan Gingold <gingold@adacore.com>
* s-osinte-hpux.ads: Increase alternate stack size on hpux.
From-SVN: r189434
Diffstat (limited to 'gcc/ada/exp_pakd.adb')
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 73befd1..ee75cf7 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -1593,8 +1593,7 @@ package body Exp_Pakd is -- Note that Rhs_Val has already been normalized to -- be an unsigned value with the proper number of bits. - Rhs := - Make_Integer_Literal (Loc, Rhs_Val); + Rhs := Make_Integer_Literal (Loc, Rhs_Val); -- Otherwise we need an unchecked conversion |