diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-09-24 15:20:22 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-05 08:20:08 +0000 |
| commit | bbdf2d3967366db0148dc454172f594a951dbb8b (patch) | |
| tree | eda36f6680d0bd3ef8dead464d1881cebcd88296 /gcc/ada/gcc-interface/trans.c | |
| parent | eae33329ea4284da2c7b0235ef89095162fa5131 (diff) | |
| download | gcc-bbdf2d3967366db0148dc454172f594a951dbb8b.zip gcc-bbdf2d3967366db0148dc454172f594a951dbb8b.tar.gz gcc-bbdf2d3967366db0148dc454172f594a951dbb8b.tar.bz2 | |
[Ada] Plug small loophole with boolean values
gcc/ada/
* gcc-interface/trans.c (gnat_to_gnu): Do not wrap boolean values
referenced in pragmas.
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index ddf08b0a..3fec060 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -8261,6 +8261,7 @@ gnat_to_gnu (Node_Id gnat_node) || kind == N_Selected_Component) && TREE_CODE (get_base_type (gnu_result_type)) == BOOLEAN_TYPE && Nkind (Parent (gnat_node)) != N_Attribute_Reference + && Nkind (Parent (gnat_node)) != N_Pragma_Argument_Association && Nkind (Parent (gnat_node)) != N_Variant_Part && !lvalue_required_p (gnat_node, gnu_result_type, false, false)) { |