aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/gnatls.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2014-07-16 16:47:48 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2014-07-16 16:47:48 +0200
commit2ffcbaa5969ea7f6ae55877df1b859f1369fdc2b (patch)
tree986540adb019104d65f347f7c6f5f44ec53d2c94 /gcc/ada/gnatls.adb
parent76241f8f2445434f7e9430d9bb4ccb97f253f96e (diff)
downloadgcc-2ffcbaa5969ea7f6ae55877df1b859f1369fdc2b.zip
gcc-2ffcbaa5969ea7f6ae55877df1b859f1369fdc2b.tar.gz
gcc-2ffcbaa5969ea7f6ae55877df1b859f1369fdc2b.tar.bz2
[multiple changes]
2014-07-16 Ed Schonberg <schonberg@adacore.com> * sem_ch3.adb (Find_Type_Name): Diagnose properly a private extension completion that is an interface definition with an interface list. 2014-07-16 Arnaud Charlet <charlet@adacore.com> * gnatls.adb (Gnatls): Code clean ups. 2014-07-16 Thomas Quinot <quinot@adacore.com> * sinfo.ads, sinfo.adb (N_Compound_Statement): New node kind. * sem.adb (Analyze): Handle N_Compound_Statement. * sprint.adb (Sprint_Node_Actual): Ditto. * sem_ch5.ads, sem_ch5.adb (Analyze_Compound_Statement): New procedure to handle N_Compound_Statement. * exp_aggr.adb (Collect_Initialization_Statements): Use a proper compound statement node, instead of a bogus expression-with-actions with a NULL statement as its expression, to wrap collected initialization statements. * freeze.ads, freeze.adb (Explode_Initialization_Compound_Statement): New public procedure, lifted from Freeze_Entity. (Freeze_Entity): When freezing an object with captured initialization statements and without delayed freezing, explode compount statement. * sem_ch4.adb (Analyze_Expression_With_Actions): Remove special case that used to handle bogus EWAs with NULL statement as the expression. * exp_ch13.adb (Expand_N_Freeze_Entity): For an object with delayed freezing and captured initialization statements, explode compound statement. From-SVN: r212662
Diffstat (limited to 'gcc/ada/gnatls.adb')
-rw-r--r--gcc/ada/gnatls.adb4
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb
index c474b92..aa36e33 100644
--- a/gcc/ada/gnatls.adb
+++ b/gcc/ada/gnatls.adb
@@ -1579,9 +1579,6 @@ begin
Check_Version_And_Help ("GNATLS", "1992");
- Osint.Add_Default_Search_Dirs;
- Get_Target_Parameters;
-
-- Loop to scan out arguments
Next_Arg := 1;
@@ -1628,6 +1625,7 @@ begin
-- Finally, add the default directories and obtain target parameters
Osint.Add_Default_Search_Dirs;
+ Get_Target_Parameters;
if Verbose_Mode then
Write_Eol;