diff options
| author | Tristan Gingold | 2016-01-10 11:05:31 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2016-01-11 21:26:34 +0100 |
| commit | 15cf5147f7a97759ac3385d214533d5500b3f9c3 (patch) | |
| tree | a8fadfb9f535115e30eee9add144a5b3219e6e30 /src/vhdl/iirs.adb | |
| parent | 4e110147adc921386c8b4e9cf4d1a9a5d20ee4ec (diff) | |
| download | ghdl-15cf5147f7a97759ac3385d214533d5500b3f9c3.tar.gz ghdl-15cf5147f7a97759ac3385d214533d5500b3f9c3.tar.bz2 ghdl-15cf5147f7a97759ac3385d214533d5500b3f9c3.zip | |
Set type staticness for a constant declaration and attribute specification.
Fix for issue 10.
Diffstat (limited to 'src/vhdl/iirs.adb')
| -rw-r--r-- | src/vhdl/iirs.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/iirs.adb b/src/vhdl/iirs.adb index 010d48d..d6cd6eb 100644 --- a/src/vhdl/iirs.adb +++ b/src/vhdl/iirs.adb @@ -1156,7 +1156,7 @@ package body Iirs is pragma Assert (Target /= Null_Iir); pragma Assert (Has_Entity_Name_List (Get_Kind (Target)), "no field Entity_Name_List"); - return Iir_To_Iir_List (Get_Field1 (Target)); + return Iir_To_Iir_List (Get_Field8 (Target)); end Get_Entity_Name_List; procedure Set_Entity_Name_List (Target : Iir; Names : Iir_List) is @@ -1164,7 +1164,7 @@ package body Iirs is pragma Assert (Target /= Null_Iir); pragma Assert (Has_Entity_Name_List (Get_Kind (Target)), "no field Entity_Name_List"); - Set_Field1 (Target, Iir_List_To_Iir (Names)); + Set_Field8 (Target, Iir_List_To_Iir (Names)); end Set_Entity_Name_List; function Get_Attribute_Designator (Target : Iir) return Iir is |