From ae0b49dd52a354b2a37408641d7247fe9e7ef164 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 27 Aug 2016 11:09:47 +0200
Subject: Display a nice message if std_logic_textio is not found.

---
 src/ghdldrv/ghdlprint.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index 04f2ba4ee..76a423bcb 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -1327,7 +1327,6 @@ package body Ghdlprint is
       if Cmd.Output_Dir /= null
         and then not Is_Directory (Cmd.Output_Dir.all)
       then
-         declare
          begin
             Make_Dir (Cmd.Output_Dir.all);
          exception
@@ -1368,6 +1367,7 @@ package body Ghdlprint is
       Xrefs.Sort_By_Location;
 
       if False then
+         --  Dump locations
          for I in 1 .. Xrefs.Get_Last_Xref loop
             declare
                use Xrefs;
-- 
cgit v1.2.3