diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-02-20 06:48:03 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-02-20 06:51:08 +0100 |
commit | 002d948aeead104b745e3175e1c684ec7b928847 (patch) | |
tree | 1b04a8d48bdbc164f4e0998f9eb4e1cc0bfe0930 /src/ghdldrv/ghdlsimul.adb | |
parent | 49328d94b6bfce72ecc76dc1c9d5c612ebdd2d6c (diff) | |
download | ghdl-002d948aeead104b745e3175e1c684ec7b928847.tar.gz ghdl-002d948aeead104b745e3175e1c684ec7b928847.tar.bz2 ghdl-002d948aeead104b745e3175e1c684ec7b928847.zip |
Refactoring in simulate in order to link with ortho.
Diffstat (limited to 'src/ghdldrv/ghdlsimul.adb')
-rw-r--r-- | src/ghdldrv/ghdlsimul.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb index 2f28e7c09..e17d83c2f 100644 --- a/src/ghdldrv/ghdlsimul.adb +++ b/src/ghdldrv/ghdlsimul.adb @@ -36,7 +36,8 @@ with Iirs_Utils; with Annotations; with Elaboration; with Sim_Be; -with Simulation; +with Simulation.Main; +with Debugger; with Execution; with Ghdlcomp; @@ -153,8 +154,8 @@ package body Ghdlsimul is elsif Arg.all = "--stats" then Simulation.Disp_Stats := True; elsif Arg.all = "-i" then - Simulation.Flag_Debugger := True; - Simulation.Flag_Interractive := True; + Debugger.Flag_Debugger := True; + Debugger.Flag_Interractive := True; else Decode_Option (Arg.all, Status); case Status is @@ -183,7 +184,7 @@ package body Ghdlsimul is Grtlink.Flag_String := Flags.Flag_String; - Simulation.Simulation_Entity (Top_Conf); + Simulation.Main.Simulation_Entity (Top_Conf); Set_Exit_Status (Exit_Status (Grt.Errors.Exit_Status)); end Run; @@ -192,7 +193,7 @@ package body Ghdlsimul is is begin if Option = "--debug" or Option = "-g" then - Simulation.Flag_Debugger := True; + Debugger.Flag_Debugger := True; else return False; end if; |