diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-04 14:58:21 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-04 14:58:21 +0000 |
| commit | 2fff57b3badae2bedac8308c57c6c0292f7f9879 (patch) | |
| tree | f29e625169dcfc496f3050d84735507fd3f0e5d6 /gcc/ada/gnatdll.adb | |
| parent | cb75489d5040b84fb6651a485a2be415515f651a (diff) | |
| download | gcc-2fff57b3badae2bedac8308c57c6c0292f7f9879.tar.gz | |
2004-10-04 Robert Dewar <dewar@gnat.com>
* a-except.adb: Add a comment for last change
* einfo.ads: Minor spelling correction in comment
* exp_pakd.adb, gnatdll.adb, prj-attr.ads: Minor reformatting
* sem_ch11.adb: Fix a case of using | instead of \ for continuation
messages.
* sem_util.ads: Minor comment update
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88499 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatdll.adb')
| -rw-r--r-- | gcc/ada/gnatdll.adb | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/gcc/ada/gnatdll.adb b/gcc/ada/gnatdll.adb index 10249b313dd..09f0ea7d903 100644 --- a/gcc/ada/gnatdll.adb +++ b/gcc/ada/gnatdll.adb @@ -212,7 +212,6 @@ procedure Gnatdll is procedure Add_File (Filename : in String) is begin if Is_Ali (Filename) then - Check (Filename); -- Record it to generate the binder program when @@ -222,7 +221,6 @@ procedure Gnatdll is A := A + 1; elsif Is_Obj (Filename) then - Check (Filename); -- Just record this object file @@ -474,7 +472,6 @@ procedure Gnatdll is end if; exception - when Invalid_Switch => Raise_Exception (Syntax_Error'Identity, @@ -484,7 +481,6 @@ procedure Gnatdll is Raise_Exception (Syntax_Error'Identity, Message => "No parameter for " & Full_Switch); - end Parse_Command_Line; ------------------- @@ -493,7 +489,6 @@ procedure Gnatdll is procedure Check_Context is begin - Check (To_String (Def_Filename)); -- Check that each object file specified exists and raise exception @@ -529,7 +524,6 @@ begin Check_Context; case Build_Mode is - when Import_Lib => MDLL.Build_Import_Library (To_String (Lib_Filename), @@ -571,7 +565,6 @@ begin Set_Exit_Status (Success); exception - when SE : Syntax_Error => Put_Line ("Syntax error : " & Exception_Message (SE)); New_Line; @@ -585,5 +578,4 @@ exception when others => Put_Line ("gnatdll: INTERNAL ERROR. Please report"); Set_Exit_Status (Failure); - end Gnatdll; |