From 9f621e4bd1e78e533f3c57d379a32fc5f6d0e5eb Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 15 Nov 2014 16:52:23 +0100
Subject: Translate_Reverse_Range_Ptr: use mnode instead of ptr and rename.

---
 src/vhdl/translate/trans-chap3.adb | 9 +++------
 1 file changed, 3 insertions(+), 6 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 30d24f4..5afbd0a 100644
--- a/src/vhdl/translate/trans-chap3.adb
+++ b/src/vhdl/translate/trans-chap3.adb
@@ -1661,14 +1661,11 @@ package body Trans.Chap3 is
    --  Create a type_range structure.
    procedure Create_Scalar_Type_Range (Def : Iir; Target : O_Lnode)
    is
-      T_Info    : Type_Info_Acc;
-      Base_Type : Iir;
-      Expr      : Iir;
+      Base_Type : constant Iir := Get_Base_Type (Def);
+      T_Info    : constant Type_Info_Acc := Get_Info (Base_Type);
+      Expr      : constant Iir := Get_Range_Constraint (Def);
       V         : O_Dnode;
    begin
-      Base_Type := Get_Base_Type (Def);
-      T_Info := Get_Info (Base_Type);
-      Expr := Get_Range_Constraint (Def);
       Open_Temp;
       V := Create_Temp_Ptr (T_Info.T.Range_Ptr_Type, Target);
       Chap7.Translate_Range_Ptr (V, Expr, Def);
-- 
cgit