diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ghdldrv/ghdl_gcc.adb | 4 | ||||
| -rw-r--r-- | src/ghdldrv/ghdl_llvm.adb | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdl_gcc.adb b/src/ghdldrv/ghdl_gcc.adb index ce39bc830..19862a937 100644 --- a/src/ghdldrv/ghdl_gcc.adb +++ b/src/ghdldrv/ghdl_gcc.adb @@ -21,12 +21,14 @@ with Ghdlvpi; with Ghdlxml; with Ghdllib; with Ghdlsynth_Maybe; +with Default_Paths; procedure Ghdl_Gcc is begin -- Manual elaboration so that the order is known (because it is the order -- used to display help). - Ghdlmain.Version_String := new String'("GCC back-end code generator"); + Ghdlmain.Version_String := + new String'("GCC " & Default_Paths.Backend_Version & " code generator"); Ghdldrv.Backend := Ghdldrv.Backend_Gcc; Ghdldrv.Register_Commands; Ghdlsynth_Maybe.Register_Commands; diff --git a/src/ghdldrv/ghdl_llvm.adb b/src/ghdldrv/ghdl_llvm.adb index 036d71c0c..b110194d0 100644 --- a/src/ghdldrv/ghdl_llvm.adb +++ b/src/ghdldrv/ghdl_llvm.adb @@ -21,12 +21,14 @@ with Ghdlvpi; with Ghdlxml; with Ghdllib; with Ghdlsynth_Maybe; +with Default_Paths; procedure Ghdl_Llvm is begin -- Manual elaboration so that the order is known (because it is the order -- used to display help). - Ghdlmain.Version_String := new String'("llvm code generator"); + Ghdlmain.Version_String := + new String'("llvm " & Default_Paths.Backend_Version & " code generator"); Ghdldrv.Backend := Ghdldrv.Backend_Llvm; Ghdldrv.Register_Commands; Ghdlsynth_Maybe.Register_Commands; |