diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-01-23 10:53:05 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-01-23 10:53:05 +0100 |
commit | 908f6e7c991ed97990fa97ed8ad953b88b70008e (patch) | |
tree | 31945f808efc11fd5791058c2657b35e5e504789 /gcc/ada/targparm.adb | |
parent | 5c4f4b18ccb88ee921e87664bda249f7d084993a (diff) | |
download | gcc-908f6e7c991ed97990fa97ed8ad953b88b70008e.zip gcc-908f6e7c991ed97990fa97ed8ad953b88b70008e.tar.gz gcc-908f6e7c991ed97990fa97ed8ad953b88b70008e.tar.bz2 |
re PR ada/13471 (Bug Box: Storage_Error stack overflow(?), presence of incorrect system.ads causes loop)
PR ada/13471
* targparm.adb (Get_Target_Parameters): Give clean abort error on
unexpected end of file, along with more detailed message.
From-SVN: r76402
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 6e911fb..c99c5df 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; |