synth: enable handling of pragma translate_on/off.

1 files changed, 3 insertions, 0 deletions

diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb
index d7f6bb848..1d4624985 100644
--- a/src/ghdldrv/ghdlsynth.adb
+++ b/src/ghdldrv/ghdlsynth.adb
@@ -27,6 +27,7 @@ with Libraries;
 with Flags;
 with Vhdl.Nodes; use Vhdl.Nodes;
 with Vhdl.Errors;
+with Vhdl.Scanner;
 with Vhdl.Std_Package;
 with Vhdl.Canon;
 with Vhdl.Configuration;
@@ -116,6 +117,8 @@ package body Ghdlsynth is
       end loop;
 
       Vhdl.Annotations.Flag_Synthesis := True;
+      Vhdl.Scanner.Flag_Comment_Keyword := True;
+      Vhdl.Scanner.Flag_Pragma_Comment := True;
 
       Common_Compile_Init (False);
       --  Will elaborate.