diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-03-22 09:55:52 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-03-22 09:55:52 +0100 |
commit | 902d81ad69bb66a9515d09270c10d0f7ea167d25 (patch) | |
tree | 2bd9efb1e52ef155ed25da95261c1fda96558358 /src | |
parent | fef9f34b241b948139196d4039dcaa6cfd6a09d5 (diff) | |
download | ghdl-902d81ad69bb66a9515d09270c10d0f7ea167d25.tar.gz ghdl-902d81ad69bb66a9515d09270c10d0f7ea167d25.tar.bz2 ghdl-902d81ad69bb66a9515d09270c10d0f7ea167d25.zip |
vhdl-scanner: handle pragma translate on/off.
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/vhdl-scanner.adb | 39 |
1 files changed, 26 insertions, 13 deletions
diff --git a/src/vhdl/vhdl-scanner.adb b/src/vhdl/vhdl-scanner.adb index 5ea7dbc2a..214edc280 100644 --- a/src/vhdl/vhdl-scanner.adb +++ b/src/vhdl/vhdl-scanner.adb @@ -1777,6 +1777,11 @@ package body Vhdl.Scanner is procedure Scan_Translate_Off is begin + if Current_Context.Translate_Off then + Warning_Msg_Scan (Warnid_Pragma, "nested 'translate_off' ignored"); + return; + end if; + -- 'pragma translate_off' has just been scanned. Scan_Translate_On_Off (Std_Names.Name_Translate_Off); @@ -1804,6 +1809,13 @@ package body Vhdl.Scanner is procedure Scan_Translate_On is begin + if not Current_Context.Translate_Off then + Warning_Msg_Scan + (Warnid_Pragma, + "'translate_on' without coresponding 'translate_off'"); + return; + end if; + -- 'pragma translate_off' has just been scanned. Scan_Translate_On_Off (Std_Names.Name_Translate_On); @@ -1823,21 +1835,22 @@ package body Vhdl.Scanner is when Null_Identifier => Warning_Msg_Scan (Warnid_Pragma, "incomplete pragma directive ignored"); + when Name_Translate => + Scan_Comment_Identifier (Id, True); + case Id is + when Name_On => + Scan_Translate_On; + when Name_Off => + Scan_Translate_Off; + when others => + Warning_Msg_Scan + (Warnid_Pragma, + "pragma translate must be followed by 'on' or 'off'"); + end case; when Name_Translate_Off => - if Current_Context.Translate_Off then - Warning_Msg_Scan - (Warnid_Pragma, "nested 'translate_off' ignored"); - else - Scan_Translate_Off; - end if; + Scan_Translate_Off; when Name_Translate_On => - if Current_Context.Translate_Off then - Scan_Translate_On; - else - Warning_Msg_Scan - (Warnid_Pragma, "'translate_on' without " - & "coresponding 'translate_off'"); - end if; + Scan_Translate_On; when Name_Label | Name_Label_Applies_To | Name_Return_Port_Name |