adjust previous commit (no identifier in Psl_Default_Clock)

ghdl · Jul 1, 2021 · 69e6630 · 69e6630
1 parent 523ef89
commit 69e6630
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 4 deletions.
diff --git a/pyGHDL/libghdl/vhdl/nodes.py b/pyGHDL/libghdl/vhdl/nodes.py
@@ -978,7 +978,6 @@ class Iir_Kinds:
         Iir_Kind.Case_Generate_Statement,
         Iir_Kind.For_Generate_Statement,
         Iir_Kind.Component_Instantiation_Statement,
-        Iir_Kind.Psl_Default_Clock,
     ]
 
     Simple_Concurrent_Statement = [

diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads
@@ -6875,8 +6875,7 @@ package Vhdl.Nodes is
    --Iir_Kind_If_Generate_Statement
    --Iir_Kind_Case_Generate_Statement
    --Iir_Kind_For_Generate_Statement
-   --Iir_Kind_Component_Instantiation_Statement
-     Iir_Kind_Psl_Default_Clock;
+     Iir_Kind_Component_Instantiation_Statement;
 
    subtype Iir_Kinds_Simple_Concurrent_Statement is Iir_Kind range
      Iir_Kind_Sensitized_Process_Statement ..

diff --git a/src/vhdl/vhdl-nodes_walk.adb b/src/vhdl/vhdl-nodes_walk.adb
@@ -156,7 +156,7 @@ package body Vhdl.Nodes_Walk is
    begin
       El := Chain;
       while Is_Valid (El) loop
-         case Iir_Kinds_Concurrent_Statement (Get_Kind (El)) is
+         case Get_Kind (El) is
             when Iir_Kinds_Simple_Concurrent_Statement
               | Iir_Kind_Component_Instantiation_Statement
               | Iir_Kind_Psl_Default_Clock =>

diff --git a/src/vhdl/vhdl-sem_specs.adb b/src/vhdl/vhdl-sem_specs.adb
@@ -513,6 +513,8 @@ package body Vhdl.Sem_Specs is
                null;
             when Iir_Kind_Anonymous_Type_Declaration =>
                null;
+            when Iir_Kind_Psl_Default_Clock =>
+               null;
             when others =>
                Error_Kind ("sem_named_entity", Ent);
          end case;

diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
@@ -362,6 +362,7 @@ package body Vhdl.Utils is
                | Iir_Kind_Nature_Element_Declaration
                | Iir_Kind_Psl_Endpoint_Declaration
                | Iir_Kind_Psl_Declaration
+               | Iir_Kind_Psl_Default_Clock
                | Iir_Kind_Package_Pathname
                | Iir_Kind_Absolute_Pathname
                | Iir_Kind_Relative_Pathname