diff options
| author | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2020-06-23 17:44:43 +0200 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 13:14:35 -0300 |
| commit | 2a2807376b3c2237014e5c4d2eeeefe92577ff06 (patch) | |
| tree | e5010956e9b8ec4b2aa1e17de6a45ac9541e1471 | |
| parent | ceaca3433b9868de5448d685f775dd3ec3dd7f85 (diff) | |
| download | gcc-2a2807376b3c2237014e5c4d2eeeefe92577ff06.zip gcc-2a2807376b3c2237014e5c4d2eeeefe92577ff06.tar.gz gcc-2a2807376b3c2237014e5c4d2eeeefe92577ff06.tar.bz2 | |
Minor cleanup in elaborate_expression
gcc/ada/ChangeLog:
* gcc-interface/decl.c (elaborate_expression): Replace calls to
Is_OK_Static_Expression with Compile_Time_Known_Value.
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 589154b..63118be 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -6774,13 +6774,13 @@ elaborate_expression (Node_Id gnat_expr, Entity_Id gnat_entity, const char *s, /* If we don't need a value and this is static or a discriminant, we don't need to do anything. */ if (!need_value - && (Is_OK_Static_Expression (gnat_expr) + && (Compile_Time_Known_Value (gnat_expr) || (Nkind (gnat_expr) == N_Identifier && Ekind (Entity (gnat_expr)) == E_Discriminant))) return NULL_TREE; /* If it's a static expression, we don't need a variable for debugging. */ - if (need_debug && Is_OK_Static_Expression (gnat_expr)) + if (need_debug && Compile_Time_Known_Value (gnat_expr)) need_debug = false; /* Otherwise, convert this tree to its GCC equivalent and elaborate it. */ |