diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-12-11 18:40:28 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-12-11 18:40:28 +0100 |
| commit | 1451879337efac06519bbcb080729172d03d4a58 (patch) | |
| tree | 4747ae6aa245984b6a41595d7732e424627ffda5 /src | |
| parent | 33ead847bce9c368356721e9cf236129b4624852 (diff) | |
| download | ghdl-1451879337efac06519bbcb080729172d03d4a58.tar.gz ghdl-1451879337efac06519bbcb080729172d03d4a58.tar.bz2 ghdl-1451879337efac06519bbcb080729172d03d4a58.zip | |
simul: handle subtype attribute
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/simulate/simul-execution.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/simulate/simul-execution.adb b/src/vhdl/simulate/simul-execution.adb index 3aa08abcf..b953d6d51 100644 --- a/src/vhdl/simulate/simul-execution.adb +++ b/src/vhdl/simulate/simul-execution.adb @@ -2321,6 +2321,9 @@ package body Simul.Execution is when Iir_Kinds_Denoting_Name => return Execute_Bounds (Block, Get_Named_Entity (Prefix)); + when Iir_Kind_Subtype_Attribute => + return Execute_Bounds (Block, Get_Type (Prefix)); + when others => -- Error_Kind ("execute_bounds", Get_Kind (Prefix)); declare |