[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 463a89c5fdb768f69e92eb3280c3331f30214045..8ad16c2b1c91acb082662328fd2f75c633ad8bac 100644 (file)
--- 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 97160ee68acb0496ab6cf77b376d4506edf14cfb..76e4bdf5d6557fc5c9dcc79c20a084d6af3915c8 100644 (file)
--- 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