Fix indentation and English mistakes.

2 files changed, 3 insertions, 10 deletions

diff --git a/src/vhdl/translate/ortho_front.adb b/src/vhdl/translate/ortho_front.adb
index 35a756011..55f076659 100644
--- a/src/vhdl/translate/ortho_front.adb
+++ b/src/vhdl/translate/ortho_front.adb
@@ -363,7 +363,7 @@ package body Ortho_Front is
                raise Compilation_Error;
             end if;
 
-            -- Semantize all design units.
+            --  Analyze all design units.
             --  FIXME: outdate the design file?
             New_Design_File := Null_Iir;
             Design := Get_First_Design_Unit (Res);
diff --git a/src/vhdl/translate/trans_be.adb b/src/vhdl/translate/trans_be.adb
index dd1b6c338..8a8fa63ee 100644
--- a/src/vhdl/translate/trans_be.adb
+++ b/src/vhdl/translate/trans_be.adb
@@ -32,22 +32,15 @@ package body Trans_Be is
      (Unit : Iir_Design_Unit; Main : Boolean := False)
    is
       use Ada.Text_IO;
-      Lib : Iir;
+      Lib : constant Iir := Get_Library_Unit (Unit);
    begin
-      --  No need to semantize during elaboration.
-      --if Flags.Will_Elaborate then
-      --   return;
-      --end if;
-
-      Lib := Get_Library_Unit (Unit);
-
       if (Main or Flags.Dump_All) and then Flags.Dump_Parse then
          Disp_Tree.Disp_Tree (Unit);
       end if;
 
       --  Semantic analysis.
       if Flags.Verbose then
-         Put_Line ("semantize " & Disp_Node (Lib));
+         Put_Line ("analyze " & Disp_Node (Lib));
       end if;
       Sem.Semantic (Unit);