diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 17:27:59 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 17:27:59 +0200 |
commit | 7483c88857464141597b422942b0a66189ef12da (patch) | |
tree | f037eb87fae433a9ff47271af50cea2af76902a5 /gcc/ada/gnatbind.adb | |
parent | 5207696c34c49d2a6f888eb29a5e0bbc6d5df779 (diff) | |
download | gcc-7483c88857464141597b422942b0a66189ef12da.zip gcc-7483c88857464141597b422942b0a66189ef12da.tar.gz gcc-7483c88857464141597b422942b0a66189ef12da.tar.bz2 |
[multiple changes]
2011-08-04 Robert Dewar <dewar@adacore.com>
* bindgen.ads, gnatlink.adb, sem_ch4.adb, gnatbind.adb, put_alfa.adb,
gnatls.adb, exp_ch3.adb: Minor reformatting.
2011-08-04 Marc Sango <sango@adacore.com>
* sem_attr.adb (Analyze_Attribute): Replace the message
"invisible attribute of}" of the spark restriction violation in
attribute reference by the simple message "invisible attribute of type".
Indeed, the node value Error_Msg_Node_1 used is in conflit with the
two insertion characters: '&' and '}'.
2011-08-04 Vadim Godunko <godunko@adacore.com>
* impunit.adb (Non_Imp_File_Names_12): Add "a-coinho".
* a-coinho.ads, a-coinho.adb: New file.
* Makefile.rtl: Add Ada.Containers.Indefinite_Holders.
From-SVN: r177400
Diffstat (limited to 'gcc/ada/gnatbind.adb')
-rw-r--r-- | gcc/ada/gnatbind.adb | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 18eb36e..0382371 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -566,14 +566,12 @@ begin Check_Extensions : declare Length : constant Natural := Output_File_Name'Length; Last : constant Natural := Output_File_Name'Last; - begin if Length <= 4 or else Output_File_Name (Last - 3 .. Last) /= ".adb" then Fail ("output file name should have .adb extension"); end if; - end Check_Extensions; end if; |