diff options
Diffstat (limited to 'src/vhdl/translate/trans-rtis.adb')
-rw-r--r-- | src/vhdl/translate/trans-rtis.adb | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-rtis.adb b/src/vhdl/translate/trans-rtis.adb index 0b804370a..9bdc7a96d 100644 --- a/src/vhdl/translate/trans-rtis.adb +++ b/src/vhdl/translate/trans-rtis.adb @@ -1832,9 +1832,15 @@ package body Trans.Rtis is end case; case Get_Kind (Decl) is when Iir_Kind_Signal_Declaration - | Iir_Kind_Interface_Signal_Declaration => - Mode := Mode - + 16 * Iir_Signal_Kind'Pos (Get_Signal_Kind (Decl)); + | Iir_Kind_Interface_Signal_Declaration => + if Get_Guarded_Signal_Flag (Decl) then + case Get_Signal_Kind (Decl) is + when Iir_Register_Kind => + Mode := Mode + 16; + when Iir_Bus_Kind => + Mode := Mode + 32; + end case; + end if; when others => null; end case; |