diff options
-rw-r--r-- | src/vhdl/simulate/simul-annotations.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/simulate/simul-annotations.adb b/src/vhdl/simulate/simul-annotations.adb index 4c6e6e80b..eac35f50f 100644 --- a/src/vhdl/simulate/simul-annotations.adb +++ b/src/vhdl/simulate/simul-annotations.adb @@ -906,8 +906,10 @@ package body Simul.Annotations is begin Assoc := Get_Case_Statement_Alternative_Chain (Stmt); while Assoc /= Null_Iir loop - Annotate_Generate_Statement_Body - (Block_Info, Get_Associated_Block (Assoc), Null_Iir); + if not Get_Same_Alternative_Flag (Assoc) then + Annotate_Generate_Statement_Body + (Block_Info, Get_Associated_Block (Assoc), Null_Iir); + end if; Assoc := Get_Chain (Assoc); end loop; end Annotate_Case_Generate_Statement; |