diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 16:26:47 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 16:26:47 +0200 |
| commit | 904aac81db2a08a89fcfd6321cdf5b1f328d94ee (patch) | |
| tree | 1d6395e0de92d622b4ff12e0b25bd1360b1b3066 /gcc/ada/gnatbind.adb | |
| parent | 3bd783ecb4cd65cad08cd80f8bedfd390d38b5c1 (diff) | |
| download | gcc-904aac81db2a08a89fcfd6321cdf5b1f328d94ee.zip gcc-904aac81db2a08a89fcfd6321cdf5b1f328d94ee.tar.gz gcc-904aac81db2a08a89fcfd6321cdf5b1f328d94ee.tar.bz2 | |
[multiple changes]
2014-07-16 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: Document binder switch -Ra.
* gnatbind.adb (List_Closure_Display): Implement -Ra switch
(List_Closure_All).
* opt.ads (List_Closure_All): New switch.
* switch-b.adb (Scan_Binder_Switches): Recognize -Ra to set
List_Closure_All.
2014-07-16 Ben Brosgol <brosgol@adacore.com>
* gnat_rm.texi: Minor edits, to make case consistent in names
of types and fields.
From-SVN: r212654
Diffstat (limited to 'gcc/ada/gnatbind.adb')
| -rw-r--r-- | gcc/ada/gnatbind.adb | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 14afac5..0903fe4 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -913,7 +913,8 @@ begin -------------------- function Put_In_Sources - (S : File_Name_Type) return Boolean is + (S : File_Name_Type) return Boolean + is begin for J in 1 .. Closure_Sources.Last loop if Closure_Sources.Table (J) = S then @@ -939,11 +940,14 @@ begin for J in reverse Elab_Order.First .. Elab_Order.Last loop Source := Units.Table (Elab_Order.Table (J)).Sfile; - -- Do not include the sources of the runtime and do not - -- include the same source several times. + -- Do not include same source more than once if Put_In_Sources (Source) - and then not Is_Internal_File_Name (Source) + + -- Do not include run-time units unless -Ra switch set + + and then (List_Closure_All + or else not Is_Internal_File_Name (Source)) then if not Zero_Formatting then Write_Str (" "); |