aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/gnatbind.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2012-12-05 11:26:14 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2012-12-05 11:26:14 +0100
commit03a2b9ede1ee9a02d3c9dbb2aa1556913ebec531 (patch)
tree3bb2de03bc779a3bcc8eaade0320f8e265d7c26d /gcc/ada/gnatbind.adb
parent3565684abb01b478601fdc20a161f9f7558ac732 (diff)
downloadgcc-03a2b9ede1ee9a02d3c9dbb2aa1556913ebec531.zip
gcc-03a2b9ede1ee9a02d3c9dbb2aa1556913ebec531.tar.gz
gcc-03a2b9ede1ee9a02d3c9dbb2aa1556913ebec531.tar.bz2
[multiple changes]
2012-12-05 Eric Botcazou <ebotcazou@adacore.com> * gnat_rm.texi (Interfacing to C++): Document new restrictions. 2012-12-05 Ben Brosgol <brosgol@adacore.com> * gnat_ugn.texi: Fix typo. 2012-12-05 Robert Dewar <dewar@adacore.com> * gnatbind.adb: Minor reformatting. From-SVN: r194195
Diffstat (limited to 'gcc/ada/gnatbind.adb')
-rw-r--r--gcc/ada/gnatbind.adb8
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb
index afe74ec..c53d67e 100644
--- a/gcc/ada/gnatbind.adb
+++ b/gcc/ada/gnatbind.adb
@@ -545,9 +545,7 @@ begin
-- Test for trailing -o switch
- if Opt.Output_File_Name_Present
- and then not Output_File_Name_Seen
- then
+ if Opt.Output_File_Name_Present and then not Output_File_Name_Seen then
Fail ("output file name missing after -o");
end if;
@@ -559,9 +557,7 @@ begin
-- Check that the binder file specified has extension .adb
- if Opt.Output_File_Name_Present
- and then Output_File_Name_Seen
- then
+ if Opt.Output_File_Name_Present and then Output_File_Name_Seen then
Check_Extensions : declare
Length : constant Natural := Output_File_Name'Length;
Last : constant Natural := Output_File_Name'Last;