diff options
Diffstat (limited to 'src/ghdldrv')
| -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 |