From 8d8e3fd40444b7f8c11e6ff510d1fbf70b7954af Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 25 Jul 2019 06:01:32 +0200 Subject: vhdl: handle (discard) more pragmas. --- src/std_names.adb | 5 +++++ src/std_names.ads | 7 ++++++- src/vhdl/vhdl-scanner.adb | 8 ++++++++ 3 files changed, 19 insertions(+), 1 deletion(-) diff --git a/src/std_names.adb b/src/std_names.adb index 91c9e5320..e06c814a1 100644 --- a/src/std_names.adb +++ b/src/std_names.adb @@ -604,6 +604,11 @@ package body Std_Names is Def ("synthesis", Name_Synthesis); Def ("translate_off", Name_Translate_Off); Def ("translate_on", Name_Translate_On); + Def ("label_applies_to", Name_Label_Applies_To); + Def ("return_port_name", Name_Return_Port_Name); + Def ("map_to_operator", Name_Map_To_Operator); + Def ("type_function", Name_Type_Function); + Def ("built_in", Name_Built_In); Def ("none", Name_None); Def ("ieee", Name_Ieee); diff --git a/src/std_names.ads b/src/std_names.ads index f4f3ec6a7..5d2e58e7f 100644 --- a/src/std_names.ads +++ b/src/std_names.ads @@ -685,7 +685,12 @@ package Std_Names is Name_Synthesis : constant Name_Id := Name_First_Misc + 036; Name_Translate_Off : constant Name_Id := Name_First_Misc + 037; Name_Translate_On : constant Name_Id := Name_First_Misc + 038; - Name_None : constant Name_Id := Name_First_Misc + 039; + Name_Label_Applies_To : constant Name_Id := Name_First_Misc + 039; + Name_Return_Port_Name : constant Name_Id := Name_First_Misc + 040; + Name_Map_To_Operator : constant Name_Id := Name_First_Misc + 041; + Name_Type_Function : constant Name_Id := Name_First_Misc + 042; + Name_Built_In : constant Name_Id := Name_First_Misc + 043; + Name_None : constant Name_Id := Name_First_Misc + 044; Name_Last_Misc : constant Name_Id := Name_None; Name_First_Ieee : constant Name_Id := Name_Last_Misc + 1; diff --git a/src/vhdl/vhdl-scanner.adb b/src/vhdl/vhdl-scanner.adb index 8d51e58bb..740617ba4 100644 --- a/src/vhdl/vhdl-scanner.adb +++ b/src/vhdl/vhdl-scanner.adb @@ -1782,6 +1782,14 @@ package body Vhdl.Scanner is (Warnid_Pragma, "'translate_on' without " & "coresponding 'translate_off'"); end if; + when Name_Label + | Name_Label_Applies_To + | Name_Return_Port_Name + | Name_Map_To_Operator + | Name_Type_Function + | Name_Built_In => + -- Used by synopsys, discarded. + Skip_Until_EOL; when others => Warning_Msg_Scan (Warnid_Pragma, "unknown pragma %i ignored", +Id); -- cgit v1.2.3