]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
ada: Use the syntax of Ada 2012 if-expression in -gnatR3 output
authorEric Botcazou <ebotcazou@adacore.com>
Sun, 15 Dec 2024 15:37:57 +0000 (16:37 +0100)
committerMarc Poulhiès <dkm@gcc.gnu.org>
Tue, 7 Jan 2025 12:33:32 +0000 (13:33 +0100)
This uses the syntax of Ada 2012 if-expression in the output produced by the
-gnatR3 switch for dynamic expressions.

gcc/ada/ChangeLog:

* repinfo.adb (List_GCC_Expression.Print_Expr) <Cond_Expr>: Do not
output the final "end".

gcc/ada/repinfo.adb

index c08a232a3ab068111261e6fb5ea59d958c10109e..969aa63c6980709d931c7e30400b88e13ca9f4a9 100644 (file)
@@ -683,7 +683,7 @@ package body Repinfo is
                         Print_Expr (Node.Op2);
                         Write_Str (" else ");
                         Print_Expr (Node.Op3);
-                        Write_Str (" end)");
+                        Write_Str (")");
                      end if;
 
                   when Plus_Expr =>