r123548 - in /trunk/gcc/ada: ali.adb ali.ads

[charlet@gcc.gnu.org]

Author: charlet
Date: Fri Apr  6 10:17:01 2007
New Revision: 123548

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=123548
Log:
2007-04-06  Quentin Ochem  <ochem@adacore.com>

	* ali.ads, ali.adb (Get_Nat): Raise an exception if the file cursor is
	not on a natural.
	(Scan_ALI): Cancel the xref line if there has been a reading ALI error.


Modified:
    trunk/gcc/ada/ali.adb
    trunk/gcc/ada/ali.ads