From 6c9ac1f1ba0492c2d5add773d2024dd163b31db4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 15 Oct 2016 14:32:32 +0200
Subject: simulation: remove sim_be after previous code factorization.

---
 src/ghdldrv/ghdlsimul.adb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index ddf70bbb3..2f2e13ce5 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -25,7 +25,6 @@ with GNAT.OS_Lib; use GNAT.OS_Lib;
 with Types;
 with Iirs; use Iirs;
 with Flags;
-with Back_End;
 with Name_Table;
 with Errorout; use Errorout;
 with Std_Package;
@@ -35,7 +34,6 @@ with Configuration;
 with Iirs_Utils;
 with Annotations;
 with Elaboration;
-with Sim_Be;
 with Simulation.Main;
 with Debugger;
 with Execution;
@@ -58,10 +56,6 @@ package body Ghdlsimul is
          return;
       end if;
 
-      -- Initialize.
-      Back_End.Finish_Compilation := Sim_Be.Finish_Compilation'Access;
-      Back_End.Sem_Foreign := null;
-
       Setup_Libraries (False);
       Libraries.Load_Std_Library;
 
@@ -79,6 +73,7 @@ package body Ghdlsimul is
    is
       use Name_Table;
       use Types;
+      use Configuration;
 
       First_Id : Name_Id;
       Sec_Id : Name_Id;
@@ -117,6 +112,11 @@ package body Ghdlsimul is
             raise Compilation_Error;
          end if;
       end;
+
+      --  Annotate all units.
+      for I in Design_Units.First .. Design_Units.Last loop
+         Annotations.Annotate (Design_Units.Table (I));
+      end loop;
    end Compile_Elab;
 
    --  Set options.
-- 
cgit v1.2.3