diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-11-08 11:11:05 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-11-08 11:11:05 +0100 |
commit | 81a5560849a767b6eb1a536dacc43f475780c1e9 (patch) | |
tree | 29dd69fcb8fe6c95e5a4ffcbacde7eda435fafbf | |
parent | 48b903f6a88e53611ba385706df1ba85bc9efbca (diff) | |
download | ghdl-81a5560849a767b6eb1a536dacc43f475780c1e9.tar.gz ghdl-81a5560849a767b6eb1a536dacc43f475780c1e9.tar.bz2 ghdl-81a5560849a767b6eb1a536dacc43f475780c1e9.zip |
ghdllocal: remove debug code (trace).
-rw-r--r-- | src/ghdldrv/ghdllocal.adb | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 804d42361..be4587d63 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) = '.' |