From 0f7b6a2eb31828b17bba64423249a61266090d5d Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Fri, 17 Apr 2020 13:34:53 +0200 Subject: [Ada] Avoid forced loading of System.Priority in CodePeer mode 2020-06-18 Piotr Trojanek gcc/ada/ * sem_eval.adb (Check_Non_Static_Context): Use Is_RTE. --- gcc/ada/sem_eval.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index 8fc90a5..51f18ff 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -600,7 +600,7 @@ package body Sem_Eval is -- mode since the actual target compiler may provide a wider -- range. - if CodePeer_Mode and then T = RTE (RE_Priority) then + if CodePeer_Mode and then Is_RTE (T, RE_Priority) then Set_Do_Range_Check (N, False); -- Determine if the out-of-range violation constitutes a warning -- cgit v1.1