[Ada] Fix internal error on mix of controlled and protected types
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 10 Mar 2022 10:11:32 +0000 (11:11 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 16 May 2022 08:42:03 +0000 (08:42 +0000)
commit146ea83af978384b0f7dabc8176f8bf98892ce2a
tree5a5fe699575267d9b086912acab8bb0f16a81bbf
parent861b78a946b0d0936baed97fb17fe3c7b300a8c5
[Ada] Fix internal error on mix of controlled and protected types

The key is that the protected type is a (limited) private type, which
fools a test in Cleanup_Scopes.

gcc/ada/

* inline.adb (Cleanup_Scopes): Test the underlying type.
gcc/ada/inline.adb