diff options
Diffstat (limited to 'simulate/execution.adb')
| -rw-r--r-- | simulate/execution.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/simulate/execution.adb b/simulate/execution.adb index 18407ed..a8a73b1 100644 --- a/simulate/execution.adb +++ b/simulate/execution.adb @@ -2748,7 +2748,7 @@ package body Execution is Prepend (Rstr, Image (Get_Identifier (Instance.Label))); exit; end if; - when Iir_Kind_Architecture_Declaration => + when Iir_Kind_Architecture_Body => if Is_Instance then Prepend (Rstr, ')'); Prepend (Rstr, Image (Get_Identifier (Instance.Label))); |