diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-07 11:46:56 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-07 11:46:56 +0200 |
| commit | 4b25afa16e8bb8242ffc12d5e47a97d883163dc3 (patch) | |
| tree | b16c0b8abe97ad32b9982bfc4975bd96f7b9654b /gcc/ada/binde.adb | |
| parent | 1155ae01593b0b84cddf5031b7a85d684fe0dd0d (diff) | |
| download | gcc-4b25afa16e8bb8242ffc12d5e47a97d883163dc3.zip gcc-4b25afa16e8bb8242ffc12d5e47a97d883163dc3.tar.gz gcc-4b25afa16e8bb8242ffc12d5e47a97d883163dc3.tar.bz2 | |
[multiple changes]
2017-09-07 Arnaud Charlet <charlet@adacore.com>
* sem_util.adb (Check_Part_Of_Reference): rename Conc_Typ to Conc_Obj
(because it refers to the anonymous concurrent object, not its type);
fix condition for emitting error message about task/protected type,
2017-09-07 Bob Duff <duff@adacore.com>
* binde.adb (Debug_Flag_Old): If both -do and -dp
are specified, behave as if just -do was specified, rather than
using a mixture.
2017-09-07 Nicolas Roche <roche@adacore.com>
* system-vxworks-sparcv9.ads, s-vxwork-m68k.ads, s-vxwork-mips.ads,
system-vxworks-m68k.ads, system-vxworks-mips.ads: Removed.
From-SVN: r251837
Diffstat (limited to 'gcc/ada/binde.adb')
| -rw-r--r-- | gcc/ada/binde.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/binde.adb b/gcc/ada/binde.adb index aab6e63..9318fd7 100644 --- a/gcc/ada/binde.adb +++ b/gcc/ada/binde.adb @@ -1160,7 +1160,10 @@ package body Binde is function Debug_Flag_Old return Boolean is begin - return Debug_Flag_P; + -- If the user specified both flags, we want to use the older algorithm, + -- rather than some confusing mix of the two. + + return Debug_Flag_P and not Debug_Flag_O; end Debug_Flag_Old; ---------------------- |