diff options
-rw-r--r-- | src/ghdldrv/ghdlsimul.adb | 18 |
1 files changed, 13 insertions, 5 deletions
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; |