1 files changed, 0 insertions, 71 deletions
diff --git a/src/mhdlsim/mhdlsim.adb b/src/mhdlsim/mhdlsim.adb
deleted file mode 100644
index ba4a07700..000000000
--- a/src/mhdlsim/mhdlsim.adb
+++ /dev/null
@@ -1,71 +0,0 @@
-with Types; use Types;
-with Options;
-with Name_Table;
-with Iirs; use Iirs;
-with Libraries;
-with Errorout;
-with Ghdlcomp;
-with Ghdlsimul;
-
-package body Mhdlsim is
-   --  Top unit to elaborate or simulate.  Might not be a VHDL unit.
-   Top_Name : Name_Id;
-   Top_Unit : Iir;
-
-   function Process_Param (Opt : Ghdl_C_String; Len : Natural)
-                          return Integer is
-   begin
-      if Len > 3 and then Opt (1 .. 3) = "-e " then
-         --  Unit to elaborate
-         Top_Name := Name_Table.Get_Identifier (Opt (4 .. Len));
-         return 0;
-      elsif Options.Parse_Option (Opt (1 .. Len)) then
-         --  Ok.
-         return 0;
-      else
-         --  Error.
-         return 1;
-      end if;
-   end Process_Param;
-
-   procedure Analyze_Init is
-   begin
-      --  Load libraries...
-      Ghdlcomp.Compile_Analyze_Init (False);
-   end Analyze_Init;
-
-   function Analyze_File (File : Ghdl_C_String; Len : Natural)
-                         return Integer is
-   begin
-      Ghdlcomp.Compile_Analyze_File (File (1 .. Len));
-      if Errorout.Nbr_Errors > 0 then
-         return 1;
-      else
-         return 0;
-      end if;
-   end Analyze_File;
-
-   function Known_Top_Unit return Integer
-   is
-      use Libraries;
-   begin
-      Top_Unit := Find_Primary_Unit (Work_Library, Top_Name);
-      return Boolean'Pos (Top_Unit /= Null_Iir);
-   end Known_Top_Unit;
-
-   procedure Elaborate is
-   begin
-      Ghdlcomp.Compile_Elaborate (new String'(Name_Table.Image (Top_Name)));
-   end Elaborate;
-
-   procedure Run is
-   begin
-      Ghdlcomp.Compile_Run;
-   end Run;
-
-   Gnat_Version : constant String := "unknown compiler version" & ASCII.NUL;
-   pragma Export (C, Gnat_Version, "__gnat_version");
-begin
-   --  TODO: set program name.
-   Ghdlsimul.Compile_Init;
-end Mhdlsim;