diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-02 21:17:16 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-02 21:17:16 +0200 |
| commit | e6ffb98cb5ad3f07bcaf79323d8ab8411688c494 (patch) | |
| tree | 46a91868b6e4aeb5354249c74507b3e92e85f01f /simulate/simulation.adb | |
| parent | e393e8b7babd9d2dbe5e6bb7816b82036b857a1f (diff) | |
| download | ghdl-e6ffb98cb5ad3f07bcaf79323d8ab8411688c494.tar.gz ghdl-e6ffb98cb5ad3f07bcaf79323d8ab8411688c494.tar.bz2 ghdl-e6ffb98cb5ad3f07bcaf79323d8ab8411688c494.zip | |
Keep names in the tree.
This is a large change to improve error locations and allow pretty printing.
Diffstat (limited to 'simulate/simulation.adb')
| -rw-r--r-- | simulate/simulation.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/simulate/simulation.adb b/simulate/simulation.adb index 6a725ee9d..350192ab3 100644 --- a/simulate/simulation.adb +++ b/simulate/simulation.adb @@ -19,6 +19,7 @@ with Ada.Unchecked_Conversion; with Ada.Text_IO; use Ada.Text_IO; with Errorout; use Errorout; +with Iirs_Utils; use Iirs_Utils; with Trans_Analyzes; with Types; use Types; with Debugger; use Debugger; @@ -1592,7 +1593,7 @@ package body Simulation is Instance_Pool := Global_Pool'Access; Elaboration.Elaborate_Design (Top_Config); - Entity := Get_Entity (Get_Library_Unit (Top_Config)); + Entity := Iirs_Utils.Get_Entity (Get_Library_Unit (Top_Config)); if not Is_Empty (Expr_Pool) then raise Internal_Error; |