1 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/xrefs.adb b/src/vhdl/xrefs.adb
index aa2329505..58b52e2d9 100644
--- a/src/vhdl/xrefs.adb
+++ b/src/vhdl/xrefs.adb
@@ -110,6 +110,13 @@ package body Xrefs is
       end if;
    end Xref_End;
 
+   procedure Xref_Keyword (Loc : Location_Type) is
+   begin
+      if Flags.Flag_Xref then
+         Add_Xref (Loc, Null_Iir, Xref_Keyword);
+      end if;
+   end Xref_Keyword;
+
    procedure Xref_Name_1 (Name : Iir) is
    begin
       case Get_Kind (Name) is