diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-12-30 16:46:22 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-12-30 16:46:22 +0100 |
commit | 6340fddff21567b10dd774d5459536d37c6239dc (patch) | |
tree | 36706a03719471083be6934bb2e432cb4a386128 /src/vhdl/vhdl-sem_stmts.adb | |
parent | e9dfd170410bc6fc534f845976e08082fe217fc5 (diff) | |
download | ghdl-6340fddff21567b10dd774d5459536d37c6239dc.tar.gz ghdl-6340fddff21567b10dd774d5459536d37c6239dc.tar.bz2 ghdl-6340fddff21567b10dd774d5459536d37c6239dc.zip |
ams-vhdl: add frequency function, minor fixes.
Diffstat (limited to 'src/vhdl/vhdl-sem_stmts.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_stmts.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb index 98e01ccb3..43b41d16a 100644 --- a/src/vhdl/vhdl-sem_stmts.adb +++ b/src/vhdl/vhdl-sem_stmts.adb @@ -412,7 +412,7 @@ package body Vhdl.Sem_Stmts is when Iir_Kind_Free_Quantity_Declaration | Iir_Kinds_Branch_Quantity_Declaration | Iir_Kind_Dot_Attribute => - if (Get_Kind (Get_Parent (Stmt)) + if (Get_Kind (Get_Current_Concurrent_Statement) /= Iir_Kind_Simultaneous_Procedural_Statement) then Error_Msg_Sem (+Stmt, "%n cannot be assigned", +Target_Prefix); |