Now handle vhdl 2008 arrays in the front end.

Bug fixes.

1 files changed, 3 insertions, 1 deletions

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;