diff options
| author | Tristan Gingold | 2015-01-01 09:24:01 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-01-01 09:24:01 +0100 |
| commit | 083bbdbdc6a8dd941b157b3917d0ba1de7ef56dd (patch) | |
| tree | fc1d0c97524a492844f6bcee70f530176a2b7507 | |
| parent | 3e33ae49d2a1a733abb0660319bc7364f3b891a6 (diff) | |
| download | ghdl-083bbdbdc6a8dd941b157b3917d0ba1de7ef56dd.tar.gz ghdl-083bbdbdc6a8dd941b157b3917d0ba1de7ef56dd.tar.bz2 ghdl-083bbdbdc6a8dd941b157b3917d0ba1de7ef56dd.zip | |
Fix left-over in name_table remaining.
| -rw-r--r-- | src/ghdldrv/ghdldrv.adb | 6 | ||||
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index 28689de..a9470b7 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 7917f7f..f685e79 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 |