From 6a7904b43d7741778db890d5b59057059254b520 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 8 Nov 2017 06:02:29 +0100
Subject: Remove some deprecated iir_list subtypes.

---
 src/vhdl/canon.adb     | 4 ++--
 src/vhdl/iirs.ads      | 8 --------
 src/vhdl/parse.adb     | 4 ++--
 src/vhdl/sem_stmts.adb | 2 +-
 4 files changed, 5 insertions(+), 13 deletions(-)

(limited to 'src/vhdl')

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;
-- 
cgit v1.2.3