From 083bbdbdc6a8dd941b157b3917d0ba1de7ef56dd Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 1 Jan 2015 09:24:01 +0100
Subject: Fix left-over in name_table remaining.
---
src/ghdldrv/ghdldrv.adb | 6 +++---
src/ghdldrv/ghdlprint.adb | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
(limited to 'src')
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb
index 28689de33..a9470b7cd 100644
--- a/src/ghdldrv/ghdldrv.adb
+++ b/src/ghdldrv/ghdldrv.adb
@@ -1330,7 +1330,7 @@ package body Ghdldrv is
-- Put (" file: ");
-- File := Get_Design_File (Unit);
-- Image (Get_Design_File_Filename (File));
--- Put_Line (Name_Buffer (1 .. Name_Length));
+-- Put_Line (Nam_Buffer (1 .. Nam_Length));
end loop;
end if;
if Cmd.Flag_Depend_Unit then
@@ -1340,7 +1340,7 @@ package body Ghdldrv is
exit when File = Null_Iir;
Image (Get_Design_File_Filename (File));
Put (" ");
- Put (Name_Buffer (1 .. Name_Length));
+ Put (Nam_Buffer (1 .. Nam_Length));
if Flag_Verbose then
Put_Line (":");
declare
@@ -1354,7 +1354,7 @@ package body Ghdldrv is
exit when Dep_File = Null_Iir;
Image (Get_Design_File_Filename (Dep_File));
Put (" ");
- Put_Line (Name_Buffer (1 .. Name_Length));
+ Put_Line (Nam_Buffer (1 .. Nam_Length));
end loop;
end if;
end;
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index 7917f7f88..f685e79e4 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -1638,7 +1638,7 @@ package body Ghdlprint is
New_Line;
end if;
- -- Letters:
+ -- Unused letters:
-- b d fgh jk no qr uvwxyz
-- D H JK MNO QR U WXYZ
case Get_Kind (N) is
--
cgit v1.2.3