diff options
| author | Thomas Quinot <quinot@adacore.com> | 2010-06-22 09:36:25 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 11:36:25 +0200 |
| commit | 125778158bac64ccea58a2156c743fa607545429 (patch) | |
| tree | 9f819b958fa5cdcdd7d140ae5149fc01169432de /gcc/ada/bindgen.adb | |
| parent | a3da92f99d722d52c0117015f26c5c8640b12511 (diff) | |
| download | gcc-125778158bac64ccea58a2156c743fa607545429.zip gcc-125778158bac64ccea58a2156c743fa607545429.tar.gz gcc-125778158bac64ccea58a2156c743fa607545429.tar.bz2 | |
sem_res.adb (Make_Call_Into_Operator): Use First_Subtype for better error reporting with generic types.
2010-06-22 Thomas Quinot <quinot@adacore.com>
* sem_res.adb (Make_Call_Into_Operator): Use First_Subtype for better
error reporting with generic types.
2010-06-22 Thomas Quinot <quinot@adacore.com>
* bindgen.adb, bindusg.adb, gnatbind.adb, gnat_ugn.texi, opt.ads,
osint-b.adb, osint-b.ads, output.adb, output.ads, switch-b.adb,
vms_data.ads: Add a new command line switch -A to gnatbind to output
the list of all ALI files for the partition.
From-SVN: r161153
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 49179f1..2111898 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -1936,6 +1936,10 @@ package body Bindgen is WBI (""); Write_Info_Ada_C ("-- ", "/* ", " BEGIN Object file/option list"); + if Object_List_Filename /= null then + Set_List_File (Object_List_Filename.all); + end if; + for E in Elab_Order.First .. Elab_Order.Last loop -- If not spec that has an associated body, then generate a @@ -1985,6 +1989,10 @@ package body Bindgen is end if; end loop; + if Object_List_Filename /= null then + Close_List_File; + end if; + -- Add a "-Ldir" for each directory in the object path for J in 1 .. Nb_Dir_In_Obj_Search_Path loop |