Message ID | 20190821083142.GA71850@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Avoid spurious error in GNATprove mode on non-null access types | expand |
--- gcc/ada/checks.adb +++ gcc/ada/checks.adb @@ -7964,6 +7964,12 @@ package body Checks is return; end if; + -- In GNATprove mode, we do not apply the check + + if GNATprove_Mode then + return; + end if; + -- Otherwise install access check Insert_Action (N,