vhdl: move scanner under vhdl hierarchy.

1 files changed, 5 insertions, 5 deletions

diff --git a/src/vhdl/simulate/simul-debugger.adb b/src/vhdl/simulate/simul-debugger.adb
index ba15bb329..3e868a44a 100644
--- a/src/vhdl/simulate/simul-debugger.adb
+++ b/src/vhdl/simulate/simul-debugger.adb
@@ -24,7 +24,7 @@ with Name_Table;
 with Str_Table;
 with Files_Map;
 with Parse;
-with Scanner;
+with Vhdl.Scanner;
 with Tokens;
 with Sem_Expr;
 with Sem_Scopes;
@@ -1899,13 +1899,13 @@ package body Simul.Debugger is
       File := Files_Map.Create_Source_File_From_String
         (Name_Table.Get_Identifier ("*debug" & Index_Str & '*'),
          Line (P .. Line'Last));
-      Scanner.Set_File (File);
-      Scanner.Scan;
+      Vhdl.Scanner.Set_File (File);
+      Vhdl.Scanner.Scan;
       Expr := Parse.Parse_Expression;
-      if Scanner.Current_Token /= Tok_Eof then
+      if Vhdl.Scanner.Current_Token /= Tok_Eof then
          Put_Line ("garbage at end of expression ignored");
       end if;
-      Scanner.Close_File;
+      Vhdl.Scanner.Close_File;
       if Nbr_Errors /= 0 then
          Put_Line ("error while parsing expression, evaluation aborted");
          Nbr_Errors := 0;