From 7df971683e4637b146a26a9995eb7ebb0f3588bc Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 7 May 2021 19:47:46 +0200 Subject: std_names: add full and parallel case. --- src/std_names.adb | 4 +++- 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; -- cgit v1.2.3