diff mbox series

[Ada] Assertion_Policy for class-wide precondition

Message ID 20180717082408.GA1488@adacore.com
State New
Headers show
Series [Ada] Assertion_Policy for class-wide precondition | expand

Commit Message

Pierre-Marie de Rodat July 17, 2018, 8:24 a.m. UTC 
This patch fixes the compiler to that class-wide preconditions on primitive
operations of interfaces are not checked at run time when the Assertion_Policy
indicates that they should be ignored. This is required by the RM.

Tested on x86_64-pc-linux-gnu, committed on trunk

2018-07-17  Bob Duff  <duff@adacore.com>

gcc/ada/

	* exp_disp.adb (Build_Class_Wide_Check): Return early if the
	precondition is supposed to be ignored.
diff mbox series

Patch

--- gcc/ada/exp_disp.adb
+++ gcc/ada/exp_disp.adb
@@ -809,7 +809,7 @@  package body Exp_Disp is
                Prec := Next_Pragma (Prec);
             end loop;
 
-            if No (Prec) then
+            if No (Prec) or else Is_Ignored (Prec) then
                return;
             end if;