diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-11-23 05:07:59 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-11-23 05:07:59 +0100 |
| commit | c4b22c35f11659fbd09dc1ec904d42322485ea2c (patch) | |
| tree | 0e59a38513218cf2b807ff8bd5d15ffaa834d57f /src/ghdldrv | |
| parent | 996b72a7fe8eb06512467c9acbb47b3af4837136 (diff) | |
| download | ghdl-c4b22c35f11659fbd09dc1ec904d42322485ea2c.tar.gz ghdl-c4b22c35f11659fbd09dc1ec904d42322485ea2c.tar.bz2 ghdl-c4b22c35f11659fbd09dc1ec904d42322485ea2c.zip | |
--dir: print library name and directory.
Diffstat (limited to 'src/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdllocal.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 022ae98c5..2f7cf1f54 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -495,6 +495,13 @@ package body Ghdllocal is Lib := Get_Library (Name, Command_Line_Location); end if; + Put ("# Library "); + Put (Name_Table.Image (Get_Identifier (Lib))); + New_Line; + Put ("# Directory: "); + Put (Name_Table.Image (Get_Library_Directory (Lib))); + New_Line; + -- Disp contents of files. File := Get_Design_File_Chain (Lib); while File /= Null_Iir loop |