From 589b4a049acf4ad51886750b209c6a8073fb94e7 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 16 Aug 2019 11:09:29 +0200 Subject: vhdl: recognize PSL units reserved words. --- src/vhdl/vhdl-scanner.adb | 6 ++++++ src/vhdl/vhdl-tokens.adb | 6 ++++++ src/vhdl/vhdl-tokens.ads | 3 +++ 3 files changed, 15 insertions(+) (limited to 'src/vhdl') 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, -- cgit v1.2.3