1 files changed, 8 insertions, 1 deletions
diff --git a/src/vhdl/xrefs.ads b/src/vhdl/xrefs.ads
index 74f2d0c7e..c89470e9b 100644
--- a/src/vhdl/xrefs.ads
+++ b/src/vhdl/xrefs.ads
@@ -31,7 +31,10 @@ package Xrefs is
       Xref_End,
 
       --  Body of a declaration (for package, subprograms or protected type).
-      Xref_Body
+      Xref_Body,
+
+      --  A PSL keyword that would be scanned as an identifier
+      Xref_Keyword
      );
 
    --  Initialize the xref table.
@@ -63,6 +66,10 @@ package Xrefs is
    procedure Xref_End (Loc : Location_Type; Decl : Iir);
    pragma Inline (Xref_End);
 
+   --  LOC is the location of a PSL keyword.
+   procedure Xref_Keyword (Loc : Location_Type);
+   pragma Inline (Xref_Keyword);
+
    --  Sort the xref table by location.  This is required before searching with
    --  Find.
    procedure Sort_By_Location;