diff options
| author | Tristan Gingold | 2016-01-17 06:55:46 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2016-01-19 19:54:41 +0100 |
| commit | 22d04ec32c8c0457cfa5043c10f0d6f0575e5720 (patch) | |
| tree | 6344225c686a1082e4e05560fca90ad69953e3a2 /src/vhdl/simulate/annotations.adb | |
| parent | 1e2aeb2a4635f24c60384232e319b682b0d99f3c (diff) | |
| download | ghdl-22d04ec32c8c0457cfa5043c10f0d6f0575e5720.tar.gz ghdl-22d04ec32c8c0457cfa5043c10f0d6f0575e5720.tar.bz2 ghdl-22d04ec32c8c0457cfa5043c10f0d6f0575e5720.zip | |
simulate: fix handling of deferred constants.
Diffstat (limited to 'src/vhdl/simulate/annotations.adb')
| -rw-r--r-- | src/vhdl/simulate/annotations.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/vhdl/simulate/annotations.adb b/src/vhdl/simulate/annotations.adb index 10ca72e..b282903 100644 --- a/src/vhdl/simulate/annotations.adb +++ b/src/vhdl/simulate/annotations.adb @@ -583,8 +583,6 @@ package body Annotations is Annotate_Anonymous_Type_Definition (Block_Info, Get_Type (Decl)); Create_Object_Info (Block_Info, Decl); - else - Set_Info (Decl, Get_Info (Get_Deferred_Declaration (Decl))); end if; when Iir_Kind_File_Declaration => @@ -716,7 +714,7 @@ package body Annotations is null; when Iir_Kind_Return_Statement => null; - when Iir_Kind_Signal_Assignment_Statement + when Iir_Kind_Simple_Signal_Assignment_Statement | Iir_Kind_Variable_Assignment_Statement => null; when Iir_Kind_Procedure_Call_Statement => |