einfo.ads, einfo.adb: New flag Is_Raised (Flag224).
authorHristian Kirtchev <kirtchev@adacore.com>
Fri, 31 Aug 2007 10:20:54 +0000 (12:20 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 31 Aug 2007 10:20:54 +0000 (12:20 +0200)
commitd5e96bc62a2cbda21d1d69d4c08b1bd22e9d3bbc
treeee49770d0d5c5a94700cc68331253d52a4803116
parentbb6e3d4145581f36d908c9a0868d6b72f3503176
einfo.ads, einfo.adb: New flag Is_Raised (Flag224).

2007-08-31  Hristian Kirtchev  <kirtchev@adacore.com>

* einfo.ads, einfo.adb: New flag Is_Raised (Flag224). Update the
structure of E_Exception to reflect the new flag.
(Is_Raised, Set_Is_Raised): New inlined routines.
Update the usage of available flag to reflect the addition of Is_Raised.
(Is_Raised, Set_Is_Raised): Bodies of new routines.
(Write_Entity_Flags): Write the status of flag Is_Raised.
(Is_Descendent_Of_Address): New entity flag, to simplify handling of
spurious ambiguities when integer literals appear in the context of an
address type that is a visible integer type.

* sem_ch11.adb (Analyze_Exception_Handler): Add code to warn on local
exceptions never being raised.
(Analyze_Raise_Statement): When analyzing an exception, mark it as being
explicitly raised.

From-SVN: r127970
gcc/ada/einfo.adb
gcc/ada/einfo.ads
gcc/ada/sem_ch11.adb