Message ID | 20190821083142.GA71838@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Ignore subprogram address in ownership checking | expand |
--- gcc/ada/sem_spark.adb +++ gcc/ada/sem_spark.adb @@ -5110,6 +5110,7 @@ package body Sem_SPARK is -- in an object. if not Present (Root) + or else not Is_Object (Root) or else not Is_Deep (Etype (Root)) then return;