diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 14:13:49 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 14:13:49 +0200 |
| commit | 6c2e4047faa9d9165fd5a1df47aae79175fdf8f7 (patch) | |
| tree | cb0abcc9be745c942ff19a83eb157a597a5baa74 /gcc/ada/adabkend.adb | |
| parent | dff5c591489002baaf73dc8b93dcf22cd53a559e (diff) | |
| download | gcc-6c2e4047faa9d9165fd5a1df47aae79175fdf8f7.zip gcc-6c2e4047faa9d9165fd5a1df47aae79175fdf8f7.tar.gz gcc-6c2e4047faa9d9165fd5a1df47aae79175fdf8f7.tar.bz2 | |
[multiple changes]
2013-04-11 Matthew Heaney <heaney@adacore.com>
* a-cdlili.adb, a-cidlli.adb, a-cbdlli.adb ("="): Increment
lock counts before entering loop.
(Find): Ditto.
(Is_Sorted, Merge, Sort): Ditto.
(Reverse_Find): Ditto.
(Splice_Internal): Internal operation to refactor splicing logic.
(Splice): Some logic moved into Splice_Internal.
2013-04-11 Johannes Kanig <kanig@adacore.com>
* adabkend.adb (Scan_Compiler_Arguments): Do not call
Set_Output_Object_File_Name in Alfa_Mode
* gnat1drv.adb (Adjust_Global_Switches): Take Alfa_Mode into account.
* opt.ads: Fix documentation.
From-SVN: r197771
Diffstat (limited to 'gcc/ada/adabkend.adb')
| -rw-r--r-- | gcc/ada/adabkend.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/adabkend.adb b/gcc/ada/adabkend.adb index 96bd00d..e808762 100644 --- a/gcc/ada/adabkend.adb +++ b/gcc/ada/adabkend.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2011, AdaCore -- +-- Copyright (C) 2001-2013, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -234,6 +234,8 @@ package body Adabkend is then if Is_Switch (Argv) then Fail ("Object file name missing after -gnatO"); + elsif Alfa_Mode then + Output_File_Name_Seen := True; else Set_Output_Object_File_Name (Argv); Output_File_Name_Seen := True; |