diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-24 05:19:45 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-24 05:23:32 +0200 |
| commit | 257309de4112f0f9ea5712669e840834feb3f066 (patch) | |
| tree | cc79bf1fe577bdcc38b5145f03ecf920b56e6c0f /src/vhdl/vhdl-scanner.ads | |
| parent | fd8ab18f6cbe91b0f7820909fffecdd07440cb29 (diff) | |
| download | ghdl-257309de4112f0f9ea5712669e840834feb3f066.tar.gz ghdl-257309de4112f0f9ea5712669e840834feb3f066.tar.bz2 ghdl-257309de4112f0f9ea5712669e840834feb3f066.zip | |
vhdl scanner: handle pragma translate_on/translate_off.
Diffstat (limited to 'src/vhdl/vhdl-scanner.ads')
| -rw-r--r-- | src/vhdl/vhdl-scanner.ads | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-scanner.ads b/src/vhdl/vhdl-scanner.ads index 1e18cc62f..461c431df 100644 --- a/src/vhdl/vhdl-scanner.ads +++ b/src/vhdl/vhdl-scanner.ads @@ -94,13 +94,16 @@ package Vhdl.Scanner is -- If true handle PSL embedded in comments: '-- psl' is ignored. Flag_Psl_Comment : Boolean := False; + -- If true, handle pragma translate_on/off. + Flag_Pragma_Comment : Boolean := False; + -- If true, ignore '--'. This is automatically set when Flag_Psl_Comment -- is true and a starting PSL keyword has been identified. -- Must be reset to false by the parser. Flag_Scan_In_Comment : Boolean := False; -- If true scan for keywords in comments. Must be enabled if - -- Flag_Psl_Comment is true. + -- Flag_Psl_Comment or Flag_Pragma_Comment is true. Flag_Comment_Keyword : Boolean := False; -- If the next character is '!', eat it and return True, otherwise return |