From 81a5560849a767b6eb1a536dacc43f475780c1e9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 8 Nov 2014 11:11:05 +0100
Subject: ghdllocal: remove debug code (trace).

---
 src/ghdldrv/ghdllocal.adb | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index 804d423..be4587d 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -259,7 +259,6 @@ package body Ghdllocal is
          --  This is done after the previous simplication to avoid to deal
          --  with cases like /xxx//../ or /xxx/./../
          Pos := Pathname'First;
-         Ada.Text_IO.Put_Line (Pathname (Pathname'First .. Last));
          while Pos <= Last - 3 loop
             if Is_Directory_Separator (Pathname (Pos))
               and then Pathname (Pos + 1) = '.'
-- 
cgit