diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-13 11:08:46 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-13 11:08:46 +0100 |
| commit | 582dbb53ac6d0bd46c1402584d2c4be0a34a040b (patch) | |
| tree | 6e32717db983e2c599fedb1f699d0bfade203b38 /gcc/ada/gnatbind.adb | |
| parent | e4d0416682374541d42aebe9b3535dbfa7fd0058 (diff) | |
| download | gcc-582dbb53ac6d0bd46c1402584d2c4be0a34a040b.zip gcc-582dbb53ac6d0bd46c1402584d2c4be0a34a040b.tar.gz gcc-582dbb53ac6d0bd46c1402584d2c4be0a34a040b.tar.bz2 | |
[multiple changes]
2017-01-13 Justin Squirek <squirek@adacore.com>
* sem_ch12.adb (Analyze_Package_Instantiation): Move disabiling
of the style check until after preanalysis of acutals.
2017-01-13 Yannick Moy <moy@adacore.com>
* sem_ch13.adb: Minor reformatting.
* par-ch11.adb: minor style fix in whitespace
* gnatbind.adb (Gnatbind): Scope of Std_Lib_File
reduced to Add_Artificial_ALI_File; style fix in declaration of
Text; grammar fix in comment.
* osint-c.adb (Read_Library_Info): strip trailing NUL from result.
* freeze.adb: Cleanup to pass pragma instead of
expression to call.
* exp_spark.adb (Expand_SPARK_Attribute_Reference): New procedure to
replace System'To_Address by equivalent call.
From-SVN: r244401
Diffstat (limited to 'gcc/ada/gnatbind.adb')
| -rw-r--r-- | gcc/ada/gnatbind.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 5135377..8cd99cf 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -69,10 +69,7 @@ procedure Gnatbind is -- The first library file, that should be a main subprogram if neither -n -- nor -z are used. - Std_Lib_File : File_Name_Type; - -- Standard library - - Text : Text_Buffer_Ptr; + Text : Text_Buffer_Ptr; Output_File_Name_Seen : Boolean := False; Output_File_Name : String_Ptr := new String'(""); @@ -124,6 +121,9 @@ procedure Gnatbind is Id : ALI_Id; pragma Warnings (Off, Id); + Std_Lib_File : File_Name_Type; + -- Standard library + begin Name_Len := Name'Length; Name_Buffer (1 .. Name_Len) := Name; @@ -769,7 +769,7 @@ begin -- Add System.Standard_Library to list to ensure that these files are -- included in the bind, even if not directly referenced from Ada code -- This is suppressed if the appropriate targparm switch is set. Be sure - -- in any case that System is in the closure, as it may contains linker + -- in any case that System is in the closure, as it may contain linker -- options. Note that it will be automatically added if s-stalib is -- added. |