From 2a7b36fb2a33e2f01ef87acc60cf6ac397327e36 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 18 Jun 2017 20:59:27 +0200
Subject: Do_Conversion: pass a real location.

Fix #369
---
 src/vhdl/translate/trans-chap8.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb
index 531007d8b..006c1709f 100644
--- a/src/vhdl/translate/trans-chap8.adb
+++ b/src/vhdl/translate/trans-chap8.adb
@@ -2460,7 +2460,7 @@ package body Trans.Chap8 is
                end;
             when Iir_Kind_Type_Conversion =>
                return Chap7.Translate_Type_Conversion
-                 (Src, Get_Type (Expr), Get_Type (Conv), Null_Iir);
+                 (Src, Get_Type (Expr), Get_Type (Conv), Conv);
             when others =>
                Error_Kind ("do_conversion", Conv);
          end case;
-- 
cgit v1.2.3