Rename ghdl_mcode.adb to ghdl_jit.adb. Display code generate name.

3 files changed, 13 insertions, 0 deletions

diff --git a/ortho/llvm/ortho_jit.adb b/ortho/llvm/ortho_jit.adb
index 9aa6c1c53..fdda667d9 100644
--- a/ortho/llvm/ortho_jit.adb
+++ b/ortho/llvm/ortho_jit.adb
@@ -143,4 +143,9 @@ package body Ortho_Jit is
       null;
    end Disp_Help;
 
+   function Get_Jit_Name return String is
+   begin
+      return "LLVM";
+   end Get_Jit_Name;
+
 end Ortho_Jit;
diff --git a/ortho/mcode/ortho_jit.adb b/ortho/mcode/ortho_jit.adb
index c92454259..7aa9724f2 100644
--- a/ortho/mcode/ortho_jit.adb
+++ b/ortho/mcode/ortho_jit.adb
@@ -117,4 +117,9 @@ package body Ortho_Jit is
       Put_Line (" --snap=FILE    Write memory snapshot to FILE");
    end Disp_Help;
 
+   function Get_Jit_Name return String is
+   begin
+      return "mcode";
+   end Get_Jit_Name;
+
 end Ortho_Jit;
diff --git a/ortho/ortho_jit.ads b/ortho/ortho_jit.ads
index dd3062c1c..89c3663f3 100644
--- a/ortho/ortho_jit.ads
+++ b/ortho/ortho_jit.ads
@@ -36,5 +36,8 @@ package Ortho_Jit is
 
    function Decode_Option (Option : String) return Boolean;
    procedure Disp_Help;
+
+   --  Return the name of the code generator, to be displayed by --version.
+   function Get_Jit_Name return String;
 end Ortho_Jit;