From 933e75dc239b56645ec03350ab3d6cfad0903679 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 1 Feb 2014 03:39:21 +0100
Subject: ortho debug/oread: remove syntax ambiguity for multiple case choices.

---
 ortho/debug/ortho_debug-disp.adb | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'ortho/debug')

diff --git a/ortho/debug/ortho_debug-disp.adb b/ortho/debug/ortho_debug-disp.adb
index ebaf3e941..010f0f184 100644
--- a/ortho/debug/ortho_debug-disp.adb
+++ b/ortho/debug/ortho_debug-disp.adb
@@ -938,8 +938,8 @@ package body Ortho_Debug.Disp is
                begin
                   Rem_Tab;
                   Choice := Stmt.Choice_List;
-                  while Choice /= null loop
-                     Put ("when ");
+                  Put ("when ");
+                  loop
                      case Choice.Kind is
                         when ON_Choice_Expr =>
                            Disp_Cnode (Choice.Expr, Choice_Type);
@@ -950,9 +950,12 @@ package body Ortho_Debug.Disp is
                         when ON_Choice_Default =>
                            Put ("default");
                      end case;
-                     Put_Line (" =>");
                      Choice := Choice.Next;
+                     exit when Choice = null;
+                     Put_Line (",");
+                     Put ("     ");
                   end loop;
+                  Put_Line (" =>");
                   Add_Tab;
                end;
             when ON_Call_Stmt =>
-- 
cgit v1.2.3