diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-05-12 20:06:22 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-05-12 20:06:22 +0200 |
| commit | e8e5c3d2ab5783d65fcd7a33a7b35c103179ece8 (patch) | |
| tree | 7705d74b45e55239f58242f1ce5d591ebfe7aa09 /src/vhdl/scanner.adb | |
| parent | 1effd3eb564f49a9b8e3543dfdbb121c6e1e9b73 (diff) | |
| download | ghdl-e8e5c3d2ab5783d65fcd7a33a7b35c103179ece8.tar.gz ghdl-e8e5c3d2ab5783d65fcd7a33a7b35c103179ece8.tar.bz2 ghdl-e8e5c3d2ab5783d65fcd7a33a7b35c103179ece8.zip | |
Add context declaration and reference (vhdl 2008).
Diffstat (limited to 'src/vhdl/scanner.adb')
| -rw-r--r-- | src/vhdl/scanner.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/vhdl/scanner.adb b/src/vhdl/scanner.adb index 26dff5e9f..544cc74e7 100644 --- a/src/vhdl/scanner.adb +++ b/src/vhdl/scanner.adb @@ -915,6 +915,15 @@ package body Scanner is end if; Current_Token := Tok_Identifier; end if; + when Std_Names.Name_Id_Vhdl08_Reserved_Words => + if Vhdl_Std < Vhdl_08 then + if Flags.Warn_Reserved_Word then + Warning_Msg_Scan + ("using """ & Nam_Buffer (1 .. Nam_Length) + & """ vhdl-2008 reserved word as an identifier"); + end if; + Current_Token := Tok_Identifier; + end if; when Std_Names.Name_Id_Vhdl00_Reserved_Words => if Vhdl_Std < Vhdl_00 then if Flags.Warn_Reserved_Word then |