diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-01-23 04:37:38 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-01-23 04:37:38 +0100 |
| commit | 18891d6833988f13c1b75524a13226184acb4b47 (patch) | |
| tree | 604d78d4e097631b9b2f6b90251930ab727be25e /src/vhdl/sem_decls.adb | |
| parent | d8bbd9bffcea30f71e984b7ba27769b14afe67a2 (diff) | |
| download | ghdl-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.adb | 5 |
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); |