[Ada] Add a Is_Foreign_Exception predicate to GNAT.Exception_Actions
authorOlivier Hainque <hainque@adacore.com>
Wed, 23 May 2018 10:23:09 +0000 (10:23 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Wed, 23 May 2018 10:23:09 +0000 (10:23 +0000)
commitb682fcf0d9c3c221c4adfdd0b077504c6ac0a8fc
treecf83ccb7dcb04c4941be53b51cf9c020640b608c
parentac450fb2ab71dfd5bc57ea60bc00cc749d7485af
[Ada] Add a Is_Foreign_Exception predicate to GNAT.Exception_Actions

Useful to check if an occurrence caught by a "when others" choice originates
from a foreign language, e.g. C++.

2018-05-23  Olivier Hainque  <hainque@adacore.com>

gcc/ada/

* libgnat/g-excact.ads (Is_Foreign_Exception): New predicate.
* libgnat/g-excact.adb: Implement.

From-SVN: r260588
gcc/ada/ChangeLog
gcc/ada/libgnat/g-excact.adb
gcc/ada/libgnat/g-excact.ads