ada: Cleanup getting of actual subtypes
commit98787e9cdd6346486d1f69a67c8bdb71aeded74b
authorPiotr Trojanek <trojanek@adacore.com>
Mon, 25 Sep 2023 22:17:26 +0000 (26 00:17 +0200)
committerMarc Poulhiès <poulhies@adacore.com>
Tue, 7 Nov 2023 09:15:01 +0000 (7 10:15 +0100)
tree63aab4e7cb97a14be0f8fc7b180947c2c10dbd73
parentb618441a25a5ab963f26a8415eb43c87cfcf6505
ada: Cleanup getting of actual subtypes

Avoid potentially unnecessary call to Etype.

gcc/ada/

* sem_util.adb (Get_Actual_Subtype_If_Available): Only call Etype
when necessary.
gcc/ada/sem_util.adb