diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-02-15 10:41:02 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-02-15 10:41:02 +0100 |
| commit | 6d566287bc5566c6c67e9d92d03de12450a48f78 (patch) | |
| tree | 921c605ccba93811b8c7c3d497efd18629df3359 /gcc | |
| parent | 987b2901fd0d851c7c053d82745967481c399cba (diff) | |
| download | gcc-6d566287bc5566c6c67e9d92d03de12450a48f78.zip gcc-6d566287bc5566c6c67e9d92d03de12450a48f78.tar.gz gcc-6d566287bc5566c6c67e9d92d03de12450a48f78.tar.bz2 | |
gnatbind.adb (Scan_Bind_Arg): Replace error by warning on -M and native platforms.
* gnatbind.adb (Scan_Bind_Arg): Replace error by warning on -M and
native platforms.
(Gnatbind): Do not call Exit_Program (E_Success) at the end, so that
finalization can occur normally.
From-SVN: r111074
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gnatbind.adb | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index e9222c9..e1dddd9 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, 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- -- @@ -364,13 +364,14 @@ procedure Gnatbind is -- -Mname elsif Argv'Length >= 3 and then Argv (2) = 'M' then - if Is_Cross_Compiler then - Opt.Bind_Alternate_Main_Name := True; - Opt.Alternate_Main_Name := new String'(Argv (3 .. Argv'Last)); - else - Fail ("-M option only valid for a cross-compiler"); + if not Is_Cross_Compiler then + Write_Line + ("gnatbind: -M not expected to be used on native platforms"); end if; + Opt.Bind_Alternate_Main_Name := True; + Opt.Alternate_Main_Name := new String'(Argv (3 .. Argv'Last)); + -- All other options are single character and are handled by -- Scan_Binder_Switches. @@ -525,7 +526,9 @@ begin Write_Str ("GNATBIND "); Write_Str (Gnat_Version_String); Write_Eol; - Write_Str ("Copyright 1995-2005 Free Software Foundation, Inc."); + Write_Str ("Copyright 1995-" & + Current_Year & + ", Free Software Foundation, Inc."); Write_Eol; end if; @@ -720,10 +723,15 @@ begin if Total_Errors > 0 then Exit_Program (E_Errors); + elsif Total_Warnings > 0 then Exit_Program (E_Warnings); + else - Exit_Program (E_Success); + -- Do not call Exit_Program (E_Success), so that finalization occurs + -- normally. + + null; end if; end Gnatbind; |