From 426dac982e3ea0a2025135ebb6df108aca0ccedb Mon Sep 17 00:00:00 2001
From: gingold
Date: Sat, 4 Mar 2006 17:07:33 +0000
Subject: bug fix (array bound checking)

---
 translate/translation.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/translate/translation.adb b/translate/translation.adb
index 92a4d04..e4e3d72 100644
--- a/translate/translation.adb
+++ b/translate/translation.adb
@@ -15181,7 +15181,7 @@ package body Translation is
                   E := Create_Temp_Init (Expr_Info.Ortho_Ptr_Type (Mode_Value),
                                          Expr);
                   Chap3.Check_Array_Match
-                    (Res_Type, Mnode_Null,
+                    (Res_Type, T2M (Res_Type, Mode_Value),
                      Expr_Type, Dp2M (E, Expr_Info, Mode_Value),
                      Loc);
                   return New_Convert_Ov
-- 
cgit