diff options
Diffstat (limited to 'xtools')
| -rw-r--r-- | xtools/check_iirs_pkg.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/xtools/check_iirs_pkg.adb b/xtools/check_iirs_pkg.adb index fc4595116..d0f581875 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; |