diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-12-14 12:36:43 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-12-14 12:36:43 +0100 |
| commit | 51f657fde8d771ca5c4002ca70ad5175c6ef3cdf (patch) | |
| tree | f5487dafd4682425ec2af9947fcac279153fc3ac /src/vhdl/translate/trans-rtis.adb | |
| parent | df03d4120b0689b30dc4f629407d96b45b0db5a4 (diff) | |
| download | ghdl-51f657fde8d771ca5c4002ca70ad5175c6ef3cdf.tar.gz ghdl-51f657fde8d771ca5c4002ca70ad5175c6ef3cdf.tar.bz2 ghdl-51f657fde8d771ca5c4002ca70ad5175c6ef3cdf.zip | |
iirs: reduce size of signal_declaration.
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; |