From a4cfa53675aac53107a8eac45b41e159e6add805 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 4 Jul 2016 04:01:17 +0200
Subject: Fix indentation and English mistakes.

---
 src/vhdl/translate/ortho_front.adb |  2 +-
 src/vhdl/translate/trans_be.adb    | 11 ++---------
 2 files changed, 3 insertions(+), 10 deletions(-)

(limited to 'src/vhdl/translate')

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);
 
-- 
cgit v1.2.3