From a76825d6c1f6667ac6a4d8cc4849d2426e107403 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Mon, 8 Mar 2021 11:30:17 +0100 Subject: [PATCH] [Ada] Clarify error for unsupported ELIMINATED overflow mode gcc/ada/ * sem_prag.adb (Get_Overflow_Mode): Reword error message. * switch-c.adb (Get_Overflow_Mode): Likewise. --- gcc/ada/sem_prag.adb | 3 ++- gcc/ada/switch-c.adb | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index a4f8887..1a1fc74 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -20418,7 +20418,8 @@ package body Sem_Prag is elsif Chars (Argx) = Name_Eliminated then if Ttypes.Standard_Long_Long_Integer_Size /= 64 then Error_Pragma_Arg - ("Eliminated not implemented on this target", Argx); + ("Eliminated requires Long_Long_Integer'Size = 64", + Argx); else return Eliminated; end if; diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 10f5f77..af9e679 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -112,7 +112,7 @@ package body Switch.C is when '3' => if Standard_Long_Long_Integer_Size /= 64 then - Bad_Switch ("-gnato3 not implemented for this configuration"); + Bad_Switch ("-gnato3 requires Long_Long_Integer'Size = 64"); else return Eliminated; end if; -- 2.7.4