diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-01-23 09:53:05 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-01-23 09:53:05 +0000 |
| commit | 62b02bdf324f4978f124a998d1c1b04709a61fcb (patch) | |
| tree | 31945f808efc11fd5791058c2657b35e5e504789 /gcc/ada/targparm.adb | |
| parent | cff583d49b4621addbd46f5294887f6294a87dcd (diff) | |
| download | gcc-62b02bdf324f4978f124a998d1c1b04709a61fcb.tar.gz | |
PR ada/13471
* targparm.adb (Get_Target_Parameters): Give clean abort error on
unexpected end of file, along with more detailed message.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@76402 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/targparm.adb')
| -rw-r--r-- | gcc/ada/targparm.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb index 6e911fba3cb..c99c5df9a65 100644 --- a/gcc/ada/targparm.adb +++ b/gcc/ada/targparm.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2004 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- -- @@ -520,7 +520,9 @@ package body Targparm is if P >= Source_Last then Set_Standard_Error; Write_Line ("fatal error, system.ads not formatted correctly"); + Write_Line ("unexpected end of file"); Set_Standard_Output; + raise Unrecoverable_Error; end if; end loop Line_Loop; |