diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-16 15:00:24 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-16 15:00:24 +0200 |
| commit | 70805b8834c831e0df8241ee883b6d14c923f58e (patch) | |
| tree | b1c2bad6ede6a3472694bcb21d99b8631498961b /gcc/ada/s-fileio.adb | |
| parent | be93c386585920cf9f235075a4b7fba74c0585ca (diff) | |
| download | gcc-70805b8834c831e0df8241ee883b6d14c923f58e.zip gcc-70805b8834c831e0df8241ee883b6d14c923f58e.tar.gz gcc-70805b8834c831e0df8241ee883b6d14c923f58e.tar.bz2 | |
[multiple changes]
2012-07-16 Robert Dewar <dewar@adacore.com>
* a-exexpr.adb, freeze.adb, a-exexpr-gcc.adb, a-except-2005.adb,
sem_eval.adb, s-fileio.adb: Minor reformatting.
2012-07-16 Javier Miranda <miranda@adacore.com>
* sem_prag.adb (Analyze_Pragma): Remove support for obsolescent
pragma CPP_Class.
* sem_ch13.adb (Analyze_Freeze_Entity): Add missing error on Ada
derivations of CPP types. Found updating the tests affected by
the removal of pragma CPP_Class.
2012-07-16 Thomas Quinot <quinot@adacore.com>
* back_end.adb: Minor reformatting.
2012-07-16 Thomas Quinot <quinot@adacore.com>
* exp_ch9.adb (Expand_N_Selective_Accept.Process_Accept_Alternative):
Remove junk test that was always true. For the case of no statements
following the ACCEPT, jump directly to End_Lab instead of
introducing an intermediate jump.
(Expand_N_Selective_Accept.Process_Delay_Alternative): Fix
predicate testing for presence of statements following the DELAY.
that was always true. For the case of no statements following
the ACCEPT, jump directly to End_Lab instead of introducing an
intermediate jump.
(Expand_N_Selective_Accept): Fix incorrect insertion point for
end label.
From-SVN: r189534
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 4fc72cf..88bad49 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -626,7 +626,6 @@ package body System.File_IO is then Start := J + 1; Stop := Start - 1; - while Form (Stop + 1) /= ASCII.NUL and then Form (Stop + 1) /= ',' loop |