From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 8 Jun 2020 19:21:39 +0000 (+0200)
Subject: [Ada] Small cleanup in interface with GCC back-end
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=04292126821fad06d0f13c5faaa46447798dc5a8;p=gcc.git

[Ada] Small cleanup in interface with GCC back-end

gcc/ada/

	* fe.h (Is_OK_Static_Expression): Delete.
	* sem_eval.ads (Is_OK_Static_Expression): Remove WARNING note.
---

diff --git a/gcc/ada/fe.h b/gcc/ada/fe.h
index 463a89c5fdb..8ad16c2b1c9 100644
--- a/gcc/ada/fe.h
+++ b/gcc/ada/fe.h
@@ -280,10 +280,8 @@ extern Boolean Is_Derived_Type			(Entity_Id);
 /* sem_eval: */
 
 #define Compile_Time_Known_Value	sem_eval__compile_time_known_value
-#define Is_OK_Static_Expression		sem_eval__is_ok_static_expression
 
 extern Boolean Compile_Time_Known_Value	(Node_Id);
-extern Boolean Is_OK_Static_Expression	(Node_Id);
 
 /* sem_util: */
 
diff --git a/gcc/ada/sem_eval.ads b/gcc/ada/sem_eval.ads
index 97160ee68ac..76e4bdf5d65 100644
--- a/gcc/ada/sem_eval.ads
+++ b/gcc/ada/sem_eval.ads
@@ -427,8 +427,6 @@ package Sem_Eval is
    --  for compile time evaluation purposes. Use Compile_Time_Known_Value
    --  instead (see section on "Compile-Time Known Values" above).
 
-   --  WARNING: There is a matching C declaration of this subprogram in fe.h
-
    function Is_OK_Static_Range (N : Node_Id) return Boolean;
    --  Determines if range is static, as defined in RM 4.9(26), and also checks
    --  that neither bound of the range raises constraint error, thus ensuring