From: Arnaud Charlet Date: Fri, 23 Jan 2004 09:53:05 +0000 (+0100) Subject: re PR ada/13471 (Bug Box: Storage_Error stack overflow(?), presence of incorrect... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=908f6e7c991ed97990fa97ed8ad953b88b70008e;p=gcc.git 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 --- 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;