diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-06-08 21:21:39 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-16 05:18:04 -0400 |
| commit | 04292126821fad06d0f13c5faaa46447798dc5a8 (patch) | |
| tree | 84d177347ffed49be20123a51bc050d3df51d675 /gcc | |
| parent | 25b4c873d19ccdc7e9a333eab8b5ab8e29a35976 (diff) | |
| download | gcc-04292126821fad06d0f13c5faaa46447798dc5a8.zip gcc-04292126821fad06d0f13c5faaa46447798dc5a8.tar.gz gcc-04292126821fad06d0f13c5faaa46447798dc5a8.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/fe.h | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_eval.ads | 2 |
2 files changed, 0 insertions, 4 deletions
diff --git a/gcc/ada/fe.h b/gcc/ada/fe.h index 463a89c..8ad16c2 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 97160ee..76e4bdf 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 |