From 083bbdbdc6a8dd941b157b3917d0ba1de7ef56dd Mon Sep 17 00:00:00 2001 From: Tristan Gingold 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