aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/sem_decls.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2017-01-23 04:37:38 +0100
committerTristan Gingold <tgingold@free.fr>2017-01-23 04:37:38 +0100
commit18891d6833988f13c1b75524a13226184acb4b47 (patch)
tree604d78d4e097631b9b2f6b90251930ab727be25e /src/vhdl/sem_decls.adb
parentd8bbd9bffcea30f71e984b7ba27769b14afe67a2 (diff)
downloadghdl-18891d6833988f13c1b75524a13226184acb4b47.tar.gz
ghdl-18891d6833988f13c1b75524a13226184acb4b47.tar.bz2
ghdl-18891d6833988f13c1b75524a13226184acb4b47.zip
WIP: translate size of unbounded records.
Diffstat (limited to 'src/vhdl/sem_decls.adb')
-rw-r--r--src/vhdl/sem_decls.adb5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/sem_decls.adb b/src/vhdl/sem_decls.adb
index 0802e6128..adf305b7d 100644
--- a/src/vhdl/sem_decls.adb
+++ b/src/vhdl/sem_decls.adb
@@ -157,9 +157,8 @@ package body Sem_Decls is
-- protected type or if a subelement of DECL is an access type.
procedure Check_Signal_Type (Decl : Iir)
is
- Decl_Type : Iir;
+ Decl_Type : constant Iir := Get_Type (Decl);
begin
- Decl_Type := Get_Type (Decl);
if Get_Signal_Type_Flag (Decl_Type) = False then
Error_Msg_Sem (+Decl, "type of %n cannot be %n", (+Decl, +Decl_Type));
case Get_Kind (Decl_Type) is
@@ -1850,6 +1849,8 @@ package body Sem_Decls is
case Get_Kind (Atype) is
when Iir_Kind_File_Type_Definition =>
Error_Msg_Sem (+Decl, "%n cannot be of type file", +Decl);
+ when Iir_Kind_Error =>
+ null;
when others =>
if Get_Kind (Decl) /= Iir_Kind_Variable_Declaration then
Check_Signal_Type (Decl);