[Ada] Minor cleanups in exception handling
authorBob Duff <duff@adacore.com>
Mon, 12 Aug 2019 09:00:39 +0000 (09:00 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Mon, 12 Aug 2019 09:00:39 +0000 (09:00 +0000)
commit2d56744e3bfcf3cc27f4100b1903b2443d858f13
tree4d3be3bc13d8b6cfa85f42fbfb85eedb8cd23123
parent5076fb182e2f99b46dca619f7be8e6e158bc902f
[Ada] Minor cleanups in exception handling

No change in behavior, so no test.

2019-08-12  Bob Duff  <duff@adacore.com>

gcc/ada/

* libgnat/a-except.ads: Update obsolete comment, still making
clear that this is a variant.  Add explicit default for Id
component of Exception_Occurrence, because that value is used.
Define Null_Occurrence less redundantly.
* libgnat/a-einuoc.adb: Minor simplification of code.

From-SVN: r274296
gcc/ada/ChangeLog
gcc/ada/libgnat/a-einuoc.adb
gcc/ada/libgnat/a-except.ads