From 510ff8938793c0cc883bdf2a5f5adfdd95f77880 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Wed, 2 Sep 2015 18:25:25 +0200
Subject: Translate: explicitly clean transient types.

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

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

diff --git a/src/vhdl/translate/trans-chap3.ads b/src/vhdl/translate/trans-chap3.ads
index 69d1137..459b1c8 100644
--- a/src/vhdl/translate/trans-chap3.ads
+++ b/src/vhdl/translate/trans-chap3.ads
@@ -41,16 +41,14 @@ package Trans.Chap3 is
      (Def : Iir; With_Vars : Boolean := True);
 
    procedure Translate_Named_Type_Definition (Def : Iir; Id : Name_Id);
-   procedure Translate_Anonymous_Type_Definition
-     (Def : Iir; Transient : Boolean);
+   procedure Translate_Anonymous_Type_Definition (Def : Iir);
 
    --  Translate subprograms for types.
    procedure Translate_Type_Subprograms (Decl : Iir);
 
    procedure Create_Type_Definition_Type_Range (Def : Iir);
    function Create_Static_Array_Subtype_Bounds
-     (Def : Iir_Array_Subtype_Definition)
-         return O_Cnode;
+     (Def : Iir_Array_Subtype_Definition) return O_Cnode;
 
    --  Same as Translate_type_definition only for std.standard.boolean and
    --  std.standard.bit.
@@ -222,7 +220,7 @@ package Trans.Chap3 is
 
    --  Create the bounds for SUB_TYPE.
    --  SUB_TYPE is expected to be a non-static, anonymous array type.
-   procedure Create_Array_Subtype (Sub_Type : Iir; Transient : Boolean);
+   procedure Create_Array_Subtype (Sub_Type : Iir);
 
    --  Return TRUE if VALUE is not is the range specified by ATYPE.
    --  VALUE must be stable.
-- 
cgit