diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-10-26 19:14:28 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-10-26 19:14:28 +0200 |
commit | ee8689bda870df92d6d18066764fc8d319b1380b (patch) | |
tree | a06753652ce02ead131dc53a6a4ee8420f405f66 | |
parent | a45d79eb68816e6ec79ce228ed144419c46c8fe3 (diff) | |
download | ghdl-ee8689bda870df92d6d18066764fc8d319b1380b.tar.gz ghdl-ee8689bda870df92d6d18066764fc8d319b1380b.tar.bz2 ghdl-ee8689bda870df92d6d18066764fc8d319b1380b.zip |
ortho_debug: fix disp for empty loop.
-rw-r--r-- | src/ortho/debug/ortho_debug-disp.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/ortho/debug/ortho_debug-disp.adb b/src/ortho/debug/ortho_debug-disp.adb index a45bceca9..e2e5793f9 100644 --- a/src/ortho/debug/ortho_debug-disp.adb +++ b/src/ortho/debug/ortho_debug-disp.adb @@ -1108,7 +1108,10 @@ package body Ortho_Debug.Disp is Disp_Loop_Name (Stmt); Put_Line (":"); Add_Tab; - Disp_Snode (Stmt.Next, Stmt.Loop_Last); + if Stmt.Loop_Last /= Stmt then + -- Only if the loop is not empty. + Disp_Snode (Stmt.Next, Stmt.Loop_Last); + end if; Stmt := Stmt.Loop_Last; Rem_Tab; Put_Keyword ("end"); |