diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 14:25:16 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 14:25:16 +0200 |
| commit | 8bfbd380f2c411f1b264fa234b3beb9cde53752b (patch) | |
| tree | add533dd995b0231de167243dc46dd6fa2c83c3e /gcc/ada/adabkend.adb | |
| parent | 256f384717333836e09eb881ecbb787ee6916191 (diff) | |
| download | gcc-8bfbd380f2c411f1b264fa234b3beb9cde53752b.zip gcc-8bfbd380f2c411f1b264fa234b3beb9cde53752b.tar.gz gcc-8bfbd380f2c411f1b264fa234b3beb9cde53752b.tar.bz2 | |
[multiple changes]
2013-04-11 Arnaud Charlet <charlet@adacore.com>
* gnat1drv.adb: Minor code clean up.
2013-04-11 Arnaud Charlet <charlet@adacore.com>
* debug.adb, sem_ch13.adb (Analyze_Enumeration_Representation_Clause):
Ignore enumeration rep clauses by default in CodePeer mode, unless
-gnatd.I is specified.
2013-04-11 Ed Schonberg <schonberg@adacore.com>
* sem_util.adb (Safe_To_Capture_Value): If the node belongs to
an expression that has been attached to the else_actions of an
if-expression, the capture is not safe.
2013-04-11 Yannick Moy <moy@adacore.com>
* checks.adb (Apply_Type_Conversion_Checks): Put check mark on type
conversion for arrays.
2013-04-11 Robert Dewar <dewar@adacore.com>
* a-cdlili.adb, a-cidlli.adb, a-cbdlli.adb: Minor reformatting.
2013-04-11 Johannes Kanig <kanig@adacore.com>
* adabkend.adb: Minor comment addition.
From-SVN: r197773
Diffstat (limited to 'gcc/ada/adabkend.adb')
| -rw-r--r-- | gcc/ada/adabkend.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/adabkend.adb b/gcc/ada/adabkend.adb index e808762..6588b4f 100644 --- a/gcc/ada/adabkend.adb +++ b/gcc/ada/adabkend.adb @@ -234,8 +234,15 @@ package body Adabkend is then if Is_Switch (Argv) then Fail ("Object file name missing after -gnatO"); + + -- In Alfa_Mode, such an object file is never written, and the + -- call to Set_Output_Object_File_Name may fail (e.g. when the + -- object file name does not have the expected suffix). So we + -- skip that call when Alfa_Mode is set. + elsif Alfa_Mode then Output_File_Name_Seen := True; + else Set_Output_Object_File_Name (Argv); Output_File_Name_Seen := True; |