diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-04-17 13:34:53 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-18 05:08:20 -0400 |
| commit | 0f7b6a2eb31828b17bba64423249a61266090d5d (patch) | |
| tree | 4e15637a217af082d2372bd2a97a9646ad5c0ad7 | |
| parent | 606e70fd3d8abf2a74fab56faeecfb8e249178ca (diff) | |
| download | gcc-0f7b6a2eb31828b17bba64423249a61266090d5d.zip gcc-0f7b6a2eb31828b17bba64423249a61266090d5d.tar.gz gcc-0f7b6a2eb31828b17bba64423249a61266090d5d.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/sem_eval.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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 |