From 891ddbc416cb7a8303bfac692441b65d272d82f5 Mon Sep 17 00:00:00 2001
From: gingold
Date: Thu, 13 Aug 2009 04:09:58 +0000
Subject: Now handle vhdl 2008 arrays in the front end. Bug fixes.

---
 xtools/check_iirs_pkg.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'xtools/check_iirs_pkg.adb')

diff --git a/xtools/check_iirs_pkg.adb b/xtools/check_iirs_pkg.adb
index fc45951..d0f5818 100644
--- a/xtools/check_iirs_pkg.adb
+++ b/xtools/check_iirs_pkg.adb
@@ -888,7 +888,9 @@ package body Check_Iirs_Pkg is
                            Func_Table.Table (Func).Field := Field;
                         else
                            --  Field redefined for the function.
-                           Put_Line ("**  field redefined for the function");
+                           Put_Line (Standard_Error,
+                                     "**  field redefined for function "
+                                    & Func_Table.Table (Func).Name.all);
                            raise Err;
                         end if;
                      end if;
-- 
cgit