public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc(refs/users/aoliva/heads/hard12)] Handle non-standard booleans in if_expression condition
@ 2022-05-06  8:37 Alexandre Oliva
  0 siblings, 0 replies; only message in thread
From: Alexandre Oliva @ 2022-05-06  8:37 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:702b7182fb310e1c76e9205528cfeed3e1ba1ea4

commit 702b7182fb310e1c76e9205528cfeed3e1ba1ea4
Author: Alexandre Oliva <oliva@adacore.com>
Date:   Fri May 6 05:34:08 2022 -0300

    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.
    
    [changelog]
    * 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 2506c67e936..08dbd9bd8bf 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -5793,6 +5793,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-06  8:37 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-05-06  8:37 [gcc(refs/users/aoliva/heads/hard12)] Handle non-standard booleans in if_expression condition Alexandre Oliva

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).