vhdl: recognize PSL units reserved words.

3 files changed, 15 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-scanner.adb b/src/vhdl/vhdl-scanner.adb
index e71b2936e..d0b2910bc 100644
--- a/src/vhdl/vhdl-scanner.adb
+++ b/src/vhdl/vhdl-scanner.adb
@@ -1272,6 +1272,12 @@ package body Vhdl.Scanner is
                            Current_Token := Tok_Restrict;
                         when Std_Names.Name_Restrict_Guarantee =>
                            Current_Token := Tok_Restrict_Guarantee;
+                        when Std_Names.Name_Vmode =>
+                           Current_Token := Tok_Vmode;
+                        when Std_Names.Name_Vprop =>
+                           Current_Token := Tok_Vprop;
+                        when Std_Names.Name_Vunit =>
+                           Current_Token := Tok_Vunit;
                         when others =>
                            Current_Token := Tok_Identifier;
                      end case;
diff --git a/src/vhdl/vhdl-tokens.adb b/src/vhdl/vhdl-tokens.adb
index b06f916d7..089f8173f 100644
--- a/src/vhdl/vhdl-tokens.adb
+++ b/src/vhdl/vhdl-tokens.adb
@@ -370,6 +370,12 @@ package body Vhdl.Tokens is
             return "restrict_guarantee";
          when Tok_Sequence =>
             return "sequence";
+         when Tok_Vmode =>
+            return "vmode";
+         when Tok_Vprop =>
+            return "vprop";
+         when Tok_Vunit =>
+            return "vunit";
 
          --  AMS-VHDL
          when Tok_Across =>
diff --git a/src/vhdl/vhdl-tokens.ads b/src/vhdl/vhdl-tokens.ads
index 739134d2c..93b3c77a2 100644
--- a/src/vhdl/vhdl-tokens.ads
+++ b/src/vhdl/vhdl-tokens.ads
@@ -246,6 +246,9 @@ package Vhdl.Tokens is
       Tok_Restrict,
       Tok_Restrict_Guarantee,
       Tok_Sequence,
+      Tok_Vmode,
+      Tok_Vprop,
+      Tok_Vunit,
 
    --  AMS reserved words
       Tok_Across,