diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2009-08-13 04:09:58 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2009-08-13 04:09:58 +0000 |
| commit | 891ddbc416cb7a8303bfac692441b65d272d82f5 (patch) | |
| tree | 105909be9f5c878efc0d90225541e179fe1766f7 /xtools | |
| parent | f67ca35dcd18b5427c55605de0129917a85a1349 (diff) | |
| download | ghdl-891ddbc416cb7a8303bfac692441b65d272d82f5.tar.gz ghdl-891ddbc416cb7a8303bfac692441b65d272d82f5.tar.bz2 ghdl-891ddbc416cb7a8303bfac692441b65d272d82f5.zip | |
Now handle vhdl 2008 arrays in the front end.
Bug fixes.
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; |