public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r13-250] [Ada] Handle non-standard booleans in if_expression condition
@ 2022-05-10  8:22 Pierre-Marie de Rodat
  0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2022-05-10  8:22 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:81d33c5c9211dd65b2ffd29424e403582e4542f9

commit r13-250-g81d33c5c9211dd65b2ffd29424e403582e4542f9
Author: Alexandre Oliva <oliva@adacore.com>
Date:   Wed Dec 29 04:10:45 2021 -0300

    [Ada] Handle non-standard booleans in if_expression condition
    
    We failed to call Adjust_Condition for the condition expression of an
    if_expression, so non-standard booleans were expanded like standard
    booleans, disregarding representation clauses. Fixed.
    
    gcc/ada/
    
            * exp_ch4.adb (Expand_N_If_Expression): Call Adjust_Condition to
            handle non-standard booleans.

Diff:
---
 gcc/ada/exp_ch4.adb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 9de384a4eb9..98ce797be68 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -5794,6 +5794,10 @@ package body Exp_Ch4 is
    --  Start of processing for Expand_N_If_Expression
 
    begin
+      --  Deal with non-standard booleans
+
+      Adjust_Condition (Cond);
+
       --  Check for MINIMIZED/ELIMINATED overflow mode.
       --  Apply_Arithmetic_Overflow_Check will not deal with Then/Else_Actions
       --  so skip this step if any actions are present.


^ permalink raw reply	[flat|nested] only message in thread
only message in thread, other threads:[~2022-05-10  8:22 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-05-10  8:22 [gcc r13-250] [Ada] Handle non-standard booleans in if_expression condition Pierre-Marie de Rodat

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).