From 49294a83ee67eef83180721c578f69855bf96cad Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 24 Nov 2017 06:21:01 +0100
Subject: Create the simul.ads package (for a namespace).

---
 src/ghdldrv/ghdlsimul.adb | 34 +++++++++++++++++-----------------
 src/ghdldrv/ghdlsynth.adb |  4 ++--
 2 files changed, 19 insertions(+), 19 deletions(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index 5fd84b13c..bfd7bea2d 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -31,11 +31,11 @@ with Libraries;
 with Canon;
 with Configuration;
 with Iirs_Utils;
-with Annotations;
-with Elaboration;
-with Simulation.Main;
-with Debugger;
-with Execution;
+with Simul.Annotations;
+with Simul.Elaboration;
+with Simul.Simulation.Main;
+with Simul.Debugger;
+with Simul.Execution;
 
 with Ghdlcomp;
 
@@ -60,7 +60,7 @@ package body Ghdlsimul is
       Libraries.Load_Std_Library;
 
       -- Here, time_base can be set.
-      Annotations.Annotate (Std_Package.Std_Standard_Unit);
+      Simul.Annotations.Annotate (Std_Package.Std_Standard_Unit);
 
       Canon.Canon_Flag_Add_Labels := True;
       Canon.Canon_Flag_Sequentials_Stmts := True;
@@ -115,7 +115,7 @@ package body Ghdlsimul is
 
       --  Annotate all units.
       for I in Design_Units.First .. Design_Units.Last loop
-         Annotations.Annotate (Design_Units.Table (I));
+         Simul.Annotations.Annotate (Design_Units.Table (I));
       end loop;
    end Compile_Elab;
 
@@ -136,23 +136,23 @@ package body Ghdlsimul is
       for I in Args'Range loop
          Arg := Args (I);
          if Arg.all = "--disp-tree" then
-            Simulation.Disp_Tree := True;
+            Simul.Simulation.Disp_Tree := True;
          elsif Arg.all = "--expect-failure" then
             Decode_Option (Arg.all, Status);
             pragma Assert (Status = Decode_Option_Ok);
          elsif Arg.all = "--trace-elab" then
-            Elaboration.Trace_Elaboration := True;
+            Simul.Elaboration.Trace_Elaboration := True;
          elsif Arg.all = "--trace-drivers" then
-            Elaboration.Trace_Drivers := True;
+            Simul.Elaboration.Trace_Drivers := True;
          elsif Arg.all = "--trace-simu" then
-            Simulation.Trace_Simulation := True;
+            Simul.Simulation.Trace_Simulation := True;
          elsif Arg.all = "--trace-stmt" then
-            Execution.Trace_Statements := True;
+            Simul.Execution.Trace_Statements := True;
          elsif Arg.all = "--stats" then
-            Simulation.Disp_Stats := True;
+            Simul.Simulation.Disp_Stats := True;
          elsif Arg.all = "-i" then
-            Debugger.Flag_Debugger := True;
-            Debugger.Flag_Interractive := True;
+            Simul.Debugger.Flag_Debugger := True;
+            Simul.Debugger.Flag_Interractive := True;
          else
             Decode_Option (Arg.all, Status);
             case Status is
@@ -181,7 +181,7 @@ package body Ghdlsimul is
 
       Grtlink.Flag_String := Flags.Flag_String;
 
-      Simulation.Main.Simulation_Entity (Top_Conf);
+      Simul.Simulation.Main.Simulation_Entity (Top_Conf);
 
       Set_Exit_Status (Exit_Status (Grt.Errors.Exit_Status));
    end Run;
@@ -190,7 +190,7 @@ package body Ghdlsimul is
    is
    begin
       if Option = "--debug" or Option = "-g" then
-         Debugger.Flag_Debugger := True;
+         Simul.Debugger.Flag_Debugger := True;
       else
          return False;
       end if;
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb
index 0ae4eff87..000e8f64a 100644
--- a/src/ghdldrv/ghdlsynth.adb
+++ b/src/ghdldrv/ghdlsynth.adb
@@ -25,7 +25,7 @@ with Libraries;
 with Flags;
 with Canon;
 
-with Elaboration;
+with Simul.Elaboration;
 
 with Synthesis;
 with Netlists.Dump;
@@ -95,7 +95,7 @@ package body Ghdlsynth is
 
       --  Hooks.Set_Run_Options (Args (Opt_Arg .. Args'Last));
 
-      Elaboration.Elaborate_Design (Ghdlsimul.Get_Top_Config);
+      Simul.Elaboration.Elaborate_Design (Ghdlsimul.Get_Top_Config);
 
       return Synthesis.Synth_Design (Ghdlsimul.Get_Top_Config);
       --  Hooks.Run.all;
-- 
cgit v1.2.3