diff options
Diffstat (limited to 'gcc/ada/gnatbind.adb')
| -rw-r--r-- | gcc/ada/gnatbind.adb | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 0d99ccf155c..3a4ec5318e0 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, 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- -- @@ -560,7 +560,16 @@ begin Shared_Libgnat := (Shared_Libgnat_Default = SHARED); end; - -- Scan the switches and arguments + -- Carry out package initializations. These are initializations which + -- might logically be performed at elaboration time, and we decide to be + -- consistent. Like elaboration, the order in which these calls are made + -- is in some cases important. + + Csets.Initialize; + Snames.Initialize; + + -- Scan the switches and arguments. Note that Snames must already be + -- initialized (for processing of the -V switch). -- First, scan to detect --version and/or --help @@ -616,14 +625,6 @@ begin Osint.Add_Default_Search_Dirs; - -- Carry out package initializations. These are initializations which - -- might logically be performed at elaboration time, and we decide to be - -- consistent. Like elaboration, the order in which these calls are made - -- is in some cases important. - - Csets.Initialize; - Snames.Initialize; - -- Acquire target parameters Targparm.Get_Target_Parameters; |