From fa89d0f02c435ae921a46820779606205d6dcb19 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 10 Dec 2017 19:09:14 +0100
Subject: version.in: avoid to duplicate version string.

---
 src/ghdldrv/ghdlcomp.adb  | 4 +++-
 src/ghdldrv/ghdldrv.adb   | 4 +++-
 src/ghdldrv/ghdlmain.adb  | 3 +++
 src/ghdldrv/ghdlprint.adb | 4 +++-
 4 files changed, 12 insertions(+), 3 deletions(-)

(limited to 'src/ghdldrv')

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");
-- 
cgit v1.2.3