diff options
Diffstat (limited to 'src/vhdl/simulate/sim_be.adb')
| -rw-r--r-- | src/vhdl/simulate/sim_be.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/simulate/sim_be.adb b/src/vhdl/simulate/sim_be.adb index 49a146879..59eacc814 100644 --- a/src/vhdl/simulate/sim_be.adb +++ b/src/vhdl/simulate/sim_be.adb @@ -30,12 +30,12 @@ package body Sim_Be is procedure Finish_Compilation (Unit: Iir_Design_Unit; Main: Boolean := False) is use Ada.Text_IO; - Lib_Unit : Iir; + Lib_Unit : constant Iir := Get_Library_Unit (Unit); begin - Lib_Unit := Get_Library_Unit (Unit); -- Semantic analysis. + if Flags.Verbose then - Put_Line ("semantize " & Disp_Node (Lib_Unit)); + Put_Line ("analyze " & Disp_Node (Lib_Unit)); end if; Sem.Semantic (Unit); |