From fc028b5d21727da66dc8e146b3dbcfc870c64f90 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 4 May 2019 16:49:19 +0200
Subject: vhdl: move scanner under vhdl hierarchy.

---
 src/ghdldrv/ghdllocal.adb |  4 ++--
 src/ghdldrv/ghdlprint.adb | 12 ++++++------
 2 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index aab8885c3..297d39798 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -27,7 +27,7 @@ with Name_Table;
 with Std_Names;
 with Disp_Vhdl;
 with Default_Paths;
-with Scanner;
+with Vhdl.Scanner;
 with Errorout;
 with Configuration;
 with Files_Map;
@@ -1621,7 +1621,7 @@ package body Ghdllocal is
          raise Option_Error;
       end if;
       Res := new String'(Name.all);
-      Scanner.Convert_Identifier (Res.all);
+      Vhdl.Scanner.Convert_Identifier (Res.all);
       return Res;
    end Convert_Name;
 
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index 63acd06f3..d72b1747d 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -28,7 +28,7 @@ with Libraries;
 with Errorout; use Errorout;
 with Iirs_Utils; use Iirs_Utils;
 with Tokens;
-with Scanner;
+with Vhdl.Scanner;
 with Parse;
 with Canon;
 with Version;
@@ -85,7 +85,7 @@ package body Ghdlprint is
    procedure PP_Html_File (File : Source_File_Entry)
    is
       use Flags;
-      use Scanner;
+      use Vhdl.Scanner;
       use Tokens;
       use Files_Map;
       use Ada.Characters.Latin_1;
@@ -345,8 +345,8 @@ package body Ghdlprint is
          end if;
       end Disp_Attribute;
    begin
-      Scanner.Flag_Comment := True;
-      Scanner.Flag_Newline := True;
+      Vhdl.Scanner.Flag_Comment := True;
+      Vhdl.Scanner.Flag_Newline := True;
 
       Set_File (File);
       Buf := Get_File_Source (File);
@@ -855,7 +855,7 @@ package body Ghdlprint is
    procedure Perform_Action (Cmd : Command_Lines; Args : Argument_List)
    is
       pragma Unreferenced (Cmd);
-      use Scanner;
+      use Vhdl.Scanner;
       use Tokens;
       use Files_Map;
       use Ada.Characters.Latin_1;
@@ -1048,7 +1048,7 @@ package body Ghdlprint is
    is
       pragma Unreferenced (Cmd);
       use Tokens;
-      use Scanner;
+      use Vhdl.Scanner;
 
       package Ref_Tokens is new Tables
         (Table_Component_Type => Token_Type,
-- 
cgit v1.2.3