diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-08 06:02:29 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-08 06:02:29 +0100 |
| commit | 6a7904b43d7741778db890d5b59057059254b520 (patch) | |
| tree | 717395687517deec7e889afbe7b2ec2a38c9921d /src | |
| parent | a4073d46d4757361e4a88fee7edbc62ee495b3c6 (diff) | |
| download | ghdl-6a7904b43d7741778db890d5b59057059254b520.tar.gz ghdl-6a7904b43d7741778db890d5b59057059254b520.tar.bz2 ghdl-6a7904b43d7741778db890d5b59057059254b520.zip | |
Remove some deprecated iir_list subtypes.
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/canon.adb | 4 | ||||
| -rw-r--r-- | src/vhdl/iirs.ads | 8 | ||||
| -rw-r--r-- | src/vhdl/parse.adb | 4 | ||||
| -rw-r--r-- | src/vhdl/sem_stmts.adb | 2 |
4 files changed, 5 insertions, 13 deletions
diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb index f4050f92e..cad0398e9 100644 --- a/src/vhdl/canon.adb +++ b/src/vhdl/canon.adb @@ -2568,7 +2568,7 @@ package body Canon is procedure Canon_Component_Specification (Conf : Iir; Parent : Iir) is Spec : constant Iir_Flist := Get_Instantiation_List (Conf); - List : Iir_Designator_List; + List : Iir_List; begin if Spec in Iir_Flists_All_Others then List := Create_Iir_List; @@ -2589,7 +2589,7 @@ package body Canon is Signal_List : Iir_Flist; Force : Boolean; El : Iir; - N_List : Iir_Designator_List; + N_List : Iir_List; Dis_Type : Iir; begin if Canon_Flag_Expressions then diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads index 35ab56dd4..3ae0e30d6 100644 --- a/src/vhdl/iirs.ads +++ b/src/vhdl/iirs.ads @@ -5593,20 +5593,12 @@ package Iirs is -- Lists. - subtype Iir_Index_List is Iir_Flist; - subtype Iir_Design_Unit_List is Iir_List; - subtype Iir_Enumeration_Literal_List is Iir_List; - - subtype Iir_Designator_List is Iir_List; - subtype Iir_Attribute_Value_Chain is Iir_List; subtype Iir_Overload_List is Iir; - subtype Iir_Group_Constituent_List is Iir_List; - subtype Iir_Callees_List is Iir_List; -- Declaration and children. diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb index a4a7b904b..f7085c081 100644 --- a/src/vhdl/parse.adb +++ b/src/vhdl/parse.adb @@ -3872,7 +3872,7 @@ package body Parse is when Tok_Colon => declare Res : Iir_Group_Declaration; - List : Iir_Group_Constituent_List; + List : Iir_List; begin Res := Create_Iir (Iir_Kind_Group_Declaration); Set_Location (Res, Loc); @@ -5888,7 +5888,7 @@ package body Parse is -- -- [ LRM93 8.1 ] -- sensitivity_list ::= SIGNAL_name { , SIGNAL_name } - procedure Parse_Sensitivity_List (List: Iir_Designator_List) + procedure Parse_Sensitivity_List (List: Iir_List) is El : Iir; begin diff --git a/src/vhdl/sem_stmts.adb b/src/vhdl/sem_stmts.adb index 754f615fb..ff6537a55 100644 --- a/src/vhdl/sem_stmts.adb +++ b/src/vhdl/sem_stmts.adb @@ -1121,7 +1121,7 @@ package body Sem_Stmts is end Sem_Case_Statement; -- Sem the sensitivity list LIST. - procedure Sem_Sensitivity_List (List: Iir_Designator_List) + procedure Sem_Sensitivity_List (List: Iir_List) is El: Iir; Res: Iir; |