diff options
Diffstat (limited to 'ortho/debug')
| -rw-r--r-- | ortho/debug/ortho_debug-disp.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/ortho/debug/ortho_debug-disp.adb b/ortho/debug/ortho_debug-disp.adb index ebaf3e9..010f0f1 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 => |