1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/iirs.adb.in b/src/vhdl/iirs.adb.in
index 40c9d6802..2c776abc7 100644
--- a/src/vhdl/iirs.adb.in
+++ b/src/vhdl/iirs.adb.in
@@ -93,6 +93,11 @@ package body Iirs is
       end loop;
    end Disp_Stats;
 
+   function Kind_In (K : Iir_Kind; K1, K2 : Iir_Kind) return Boolean is
+   begin
+      return K = K1 or K = K2;
+   end Kind_In;
+
    function Iir_Predefined_Shortcut_P (Func : Iir_Predefined_Functions)
      return Boolean is
    begin