aboutsummaryrefslogtreecommitdiffstats
path: root/src/ghdldrv/ghdlprint.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/ghdldrv/ghdlprint.adb')
-rw-r--r--src/ghdldrv/ghdlprint.adb2
1 files changed, 1 insertions, 1 deletions
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;