diff options
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlcomp.adb | 4 | ||||
-rw-r--r-- | src/ghdldrv/ghdldrv.adb | 4 | ||||
-rw-r--r-- | src/ghdldrv/ghdlmain.adb | 3 | ||||
-rw-r--r-- | src/ghdldrv/ghdlprint.adb | 4 |
4 files changed, 12 insertions, 3 deletions
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb index 56487b863..b20d12ac2 100644 --- a/src/ghdldrv/ghdlcomp.adb +++ b/src/ghdldrv/ghdlcomp.adb @@ -745,7 +745,9 @@ package body Ghdlcomp is Files_List := Build_Dependence (Prim_Name, Sec_Name); Put_Line ("# Makefile automatically generated by ghdl"); - Put ("# Version: "); + Put ("# Version: GHDL "); + Put (Version.Ghdl_Ver); + Put (' '); Put (Version.Ghdl_Release); Put (" - "); if Version_String /= null then diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index 03861f793..2d3342b1b 100644 --- a/src/ghdldrv/ghdldrv.adb +++ b/src/ghdldrv/ghdldrv.adb @@ -1752,7 +1752,9 @@ package body Ghdldrv is Files_List := Build_Dependence (Prim_Name, Sec_Name); Put_Line ("# Makefile automatically generated by ghdl"); - Put ("# Version: "); + Put ("# Version: GHDL "); + Put (Version.Ghdl_Ver); + Put (' '); Put (Version.Ghdl_Release); Put (" - "); if Version_String /= null then diff --git a/src/ghdldrv/ghdlmain.adb b/src/ghdldrv/ghdlmain.adb index abe7dc045..841d6ccc5 100644 --- a/src/ghdldrv/ghdlmain.adb +++ b/src/ghdldrv/ghdlmain.adb @@ -223,6 +223,9 @@ package body Ghdlmain is pragma Unreferenced (Cmd); use Ada.Text_IO; begin + Put ("GHDL "); + Put (Version.Ghdl_Ver); + Put (' '); Put_Line (Version.Ghdl_Release); Put_Line (" Compiled with " & Bug.Get_Gnat_Version); if Version_String /= null then diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index a19085527..0ace5ae50 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -506,7 +506,9 @@ package body Ghdlprint is begin Put_Line ("<p>"); Put ("<small>This page was generated using "); - Put ("<a href=""http://ghdl.free.fr"">"); + Put ("<a href=""http://ghdl.free.fr"">GHDL "); + Put (Version.Ghdl_Ver); + Put (' '); Put (Version.Ghdl_Release); Put ("</a>, a program written by"); Put (" Tristan Gingold"); |