diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-07-01 05:43:37 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-07-01 05:43:37 +0200 |
| commit | 1bc00453a725214de4964add2b7f8423d1a5d2da (patch) | |
| tree | 107a1468eb9c2a825c8d91627808fbc4e0455fe6 /simulate/debugger.adb | |
| parent | d6f65268ff859a80667978af2d4f4f1623ff6c66 (diff) | |
| download | ghdl-1bc00453a725214de4964add2b7f8423d1a5d2da.tar.gz ghdl-1bc00453a725214de4964add2b7f8423d1a5d2da.tar.bz2 ghdl-1bc00453a725214de4964add2b7f8423d1a5d2da.zip | |
vhdl08: add oread, hread.
Diffstat (limited to 'simulate/debugger.adb')
| -rw-r--r-- | simulate/debugger.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/simulate/debugger.adb b/simulate/debugger.adb index 0a65b9105..37419bb1e 100644 --- a/simulate/debugger.adb +++ b/simulate/debugger.adb @@ -1237,7 +1237,8 @@ package body Debugger is | Iir_Kind_Exit_Statement | Iir_Kind_Procedure_Call_Statement | Iir_Kind_If_Statement - | Iir_Kind_While_Loop_Statement => + | Iir_Kind_While_Loop_Statement + | Iir_Kind_Case_Statement => Foreach_Scopes (Get_Parent (N), Handler); when Iir_Kind_For_Loop_Statement |