diff options
| author | Martin Cizmar <betacheer@gmail.com> | 2018-10-28 22:39:36 +0100 |
|---|---|---|
| committer | Martin Cizmar <betacheer@gmail.com> | 2018-10-28 22:39:36 +0100 |
| commit | 6e2c314c45fb58f8d435d7097398a8b9eea557f2 (patch) | |
| tree | ebab72537123447a81ecc970a6389fa3e1fc8e17 /src/ortho | |
| parent | f09e5b10cb8a299ee44e6218c3db24a85f718433 (diff) | |
| parent | 5a97d9f219e116bd62b64294dc3d95678b3415f8 (diff) | |
| download | ghdl-6e2c314c45fb58f8d435d7097398a8b9eea557f2.tar.gz ghdl-6e2c314c45fb58f8d435d7097398a8b9eea557f2.tar.bz2 ghdl-6e2c314c45fb58f8d435d7097398a8b9eea557f2.zip | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'src/ortho')
| -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"); |