From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 17 Apr 2020 11:34:53 +0000 (+0200)
Subject: [Ada] Avoid forced loading of System.Priority in CodePeer mode
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0f7b6a2eb31828b17bba64423249a61266090d5d;p=gcc.git

[Ada] Avoid forced loading of System.Priority in CodePeer mode

2020-06-18  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

	* sem_eval.adb (Check_Non_Static_Context): Use Is_RTE.
---

diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb
index 8fc90a5e748..51f18ffd98d 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