From 7dbd44f5cd38d9e24c2d3caba0dbc43a6508dfe1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 22 Nov 2014 07:42:55 +0100
Subject: Gen_Call_Type_Builder: use Mnode.

---
 src/vhdl/translate/trans-chap7.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb
index b3dfced..6c0ec50 100644
--- a/src/vhdl/translate/trans-chap7.adb
+++ b/src/vhdl/translate/trans-chap7.adb
@@ -4294,8 +4294,7 @@ package body Trans.Chap7 is
    begin
       Open_Temp;
       Arange1 := Stabilize (Lv2M (Arange, Rinfo, Mode_Value,
-                                  Rinfo.T.Range_Type,
-                                  Rinfo.T.Range_Ptr_Type));
+                                  Rinfo.T.Range_Type, Rinfo.T.Range_Ptr_Type));
       Res1 := Stabilize (Res);
       New_Assign_Stmt (M2Lv (Chap3.Range_To_Left (Res1)),
                        M2E (Chap3.Range_To_Right (Arange1)));
-- 
cgit