diff options
Diffstat (limited to 'src/ghdldrv/ghdldrv.adb')
| -rw-r--r-- | src/ghdldrv/ghdldrv.adb | 6 |
1 files changed, 3 insertions, 3 deletions
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; |