From 50a40f8823aab990ba9dc17af1e91c47f7f1692a Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Mon, 31 Aug 2015 16:23:22 +0200
Subject: mcode/binary_file: rename write routines.

---
 src/vhdl/translate/trans-chap3.adb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/vhdl/translate/trans-chap3.adb')

diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb
index 3ecec89..cb58488 100644
--- a/src/vhdl/translate/trans-chap3.adb
+++ b/src/vhdl/translate/trans-chap3.adb
@@ -593,7 +593,7 @@ package body Trans.Chap3 is
             case Kind is
                when Mode_Value =>
                   --  For the values.
-                  Id := Wki_Base;
+                  Id := Create_Identifier ("BASE");
                   Idptr := Create_Identifier ("BASEP");
                when Mode_Signal =>
                   --  For the signals
@@ -1979,10 +1979,9 @@ package body Trans.Chap3 is
 
          when Iir_Kind_Array_Type_Definition =>
             declare
-               El_Type : Iir;
+               El_Type : constant Iir := Get_Element_Subtype (Def);
                Mark    : Id_Mark_Type;
             begin
-               El_Type := Get_Element_Subtype (Def);
                if Get_Info (El_Type) = null then
                   Push_Identifier_Prefix (Mark, "ET");
                   Translate_Type_Definition (El_Type);
-- 
cgit