diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-18 18:34:19 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-18 18:34:19 +0100 |
| commit | cf5678dc0d54de7de6ef085eb711b536b5c9584b (patch) | |
| tree | f9aa36cc419713fcdb9d6fa5ec0d10f789cdebd9 /src/vhdl/iirs.adb | |
| parent | f54bfbcebc7a7f9fbb9a413c2f2210051d0485cc (diff) | |
| download | ghdl-cf5678dc0d54de7de6ef085eb711b536b5c9584b.tar.gz ghdl-cf5678dc0d54de7de6ef085eb711b536b5c9584b.tar.bz2 ghdl-cf5678dc0d54de7de6ef085eb711b536b5c9584b.zip | |
iirs: reorder Iir_Kind_Choice_*, add Get_Literal_Origin for aggregate.
Diffstat (limited to 'src/vhdl/iirs.adb')
| -rw-r--r-- | src/vhdl/iirs.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vhdl/iirs.adb b/src/vhdl/iirs.adb index 219d21734..133e0b717 100644 --- a/src/vhdl/iirs.adb +++ b/src/vhdl/iirs.adb @@ -272,9 +272,9 @@ package body Iirs is | Iir_Kind_Association_Element_Package | Iir_Kind_Association_Element_Type | Iir_Kind_Association_Element_Subprogram - | Iir_Kind_Choice_By_Others - | Iir_Kind_Choice_By_Expression | Iir_Kind_Choice_By_Range + | Iir_Kind_Choice_By_Expression + | Iir_Kind_Choice_By_Others | Iir_Kind_Choice_By_None | Iir_Kind_Choice_By_Name | Iir_Kind_Entity_Aspect_Entity @@ -4804,7 +4804,7 @@ package body Iirs is pragma Assert (Target /= Null_Iir); pragma Assert (Has_Aggregate_Info (Get_Kind (Target)), "no field Aggregate_Info"); - return Get_Field2 (Target); + return Get_Field5 (Target); end Get_Aggregate_Info; procedure Set_Aggregate_Info (Target : Iir; Info : Iir) is @@ -4812,7 +4812,7 @@ package body Iirs is pragma Assert (Target /= Null_Iir); pragma Assert (Has_Aggregate_Info (Get_Kind (Target)), "no field Aggregate_Info"); - Set_Field2 (Target, Info); + Set_Field5 (Target, Info); end Set_Aggregate_Info; function Get_Sub_Aggregate_Info (Target : Iir) return Iir is |