diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-05-07 19:47:46 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-05-07 19:47:46 +0200 |
commit | 7df971683e4637b146a26a9995eb7ebb0f3588bc (patch) | |
tree | e22dfdb91389177419ae9a7b224b9c2403418804 | |
parent | 29aa770398bd26fb82f6322e887f8313de77f96f (diff) | |
download | ghdl-7df971683e4637b146a26a9995eb7ebb0f3588bc.tar.gz ghdl-7df971683e4637b146a26a9995eb7ebb0f3588bc.tar.bz2 ghdl-7df971683e4637b146a26a9995eb7ebb0f3588bc.zip |
std_names: add full and parallel case.
-rw-r--r-- | src/std_names.adb | 4 | ||||
-rw-r--r-- | src/std_names.ads | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/src/std_names.adb b/src/std_names.adb index b9eeea05e..ffbfce1ef 100644 --- a/src/std_names.adb +++ b/src/std_names.adb @@ -792,7 +792,7 @@ package body Std_Names is Def ("valueof", Name_Valueof); Def ("valueOf", Name_uValueof); - -- VHDL special comments + -- Special comments Def ("psl", Name_Psl); Def ("pragma", Name_Pragma); Def ("synthesis", Name_Synthesis); @@ -803,6 +803,8 @@ package body Std_Names is Def ("synthesis_off", Name_Synthesis_Off); Def ("synthesis_on", Name_Synthesis_On); Def ("off", Name_Off); + Def ("full_case", Name_Full_Case); + Def ("parallel_case", Name_Parallel_Case); -- PSL keywords Def ("a", Name_A); diff --git a/src/std_names.ads b/src/std_names.ads index 46b7542df..45558cb48 100644 --- a/src/std_names.ads +++ b/src/std_names.ads @@ -920,7 +920,7 @@ package Std_Names is -- while Name_Last_BSV : constant Name_Id := Name_First_BSV + 49; - -- VHDL special comments + -- Special comments Name_First_Comment : constant Name_Id := Name_Last_BSV + 1; Name_Psl : constant Name_Id := Name_First_Comment + 0; Name_Pragma : constant Name_Id := Name_First_Comment + 1; @@ -932,7 +932,9 @@ package Std_Names is Name_Synthesis_Off : constant Name_Id := Name_First_Comment + 7; Name_Synthesis_On : constant Name_Id := Name_First_Comment + 8; Name_Off : constant Name_Id := Name_First_Comment + 9; - Name_Last_Comment : constant Name_Id := Name_Off; + Name_Full_Case : constant Name_Id := Name_First_Comment + 10; + Name_Parallel_Case : constant Name_Id := Name_First_Comment + 11; + Name_Last_Comment : constant Name_Id := Name_Parallel_Case; -- PSL words. Name_First_PSL : constant Name_Id := Name_Last_Comment + 1; |