From 4405210cb84262f8c0a9650333fca8841bbebe04 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 10 Aug 2018 19:22:54 +0200
Subject: ghdl_simul: adjust after ghdlcomp change.

---
 src/ghdldrv/ghdlsimul.adb | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index bfd7bea2d..e0a5ce649 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -37,7 +37,7 @@ with Simul.Simulation.Main;
 with Simul.Debugger;
 with Simul.Execution;
 
-with Ghdlcomp;
+with Ghdlcomp; use Ghdlcomp;
 
 with Grt.Types;
 with Grt.Options;
@@ -53,13 +53,21 @@ package body Ghdlsimul is
    procedure Compile_Init (Analyze_Only : Boolean) is
    begin
       if Analyze_Only then
-         return;
+         Setup_Libraries (True);
+      else
+         Setup_Libraries (False);
+         Libraries.Load_Std_Library;
+         --  WORK library is not loaded.  FIXME: why ?
+      end if;
+
+      if Time_Resolution /= 'a' then
+         Std_Package.Set_Time_Resolution (Time_Resolution);
       end if;
 
-      Setup_Libraries (False);
-      Libraries.Load_Std_Library;
+      if Analyze_Only then
+         return;
+      end if;
 
-      -- Here, time_base can be set.
       Simul.Annotations.Annotate (Std_Package.Std_Standard_Unit);
 
       Canon.Canon_Flag_Add_Labels := True;
-- 
cgit v1.2.3