diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-09-16 08:02:01 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-09-16 08:02:01 +0200 |
| commit | 7303c1068a75001365f77f2569382cc093fa9ac2 (patch) | |
| tree | adc0ec567e4c8405ba50ff4475924854369a0240 /src/grt/grt-wave_opt-design.adb | |
| parent | a03179ad2abff33d21fb5d18bcb13b2d8aa11c21 (diff) | |
| download | ghdl-7303c1068a75001365f77f2569382cc093fa9ac2.tar.gz ghdl-7303c1068a75001365f77f2569382cc093fa9ac2.tar.bz2 ghdl-7303c1068a75001365f77f2569382cc093fa9ac2.zip | |
grt: rework error API (WIP) - rework report, add warning.
Diffstat (limited to 'src/grt/grt-wave_opt-design.adb')
| -rw-r--r-- | src/grt/grt-wave_opt-design.adb | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/grt/grt-wave_opt-design.adb b/src/grt/grt-wave_opt-design.adb index 989969ecd..8ef0a73cd 100644 --- a/src/grt/grt-wave_opt-design.adb +++ b/src/grt/grt-wave_opt-design.adb @@ -207,13 +207,15 @@ package body Grt.Wave_Opt.Design is while Cursor /= null loop if Cursor.Kind = Not_Found then Print_Context (Cursor, Warning); - Report_C (Cursor.Expr.all); - Report_C (" : first element of the path not found in design."); - Report_E (" More references may follow"); + Diag_C (Cursor.Expr.all); + Diag_C (" : first element of the path not found in design."); + Diag_C (" More references may follow"); + Warning_E; elsif Cursor.Next_Child = null and then Cursor.Kind = Pkg_Entity then Print_Context (Cursor, Warning); - Report_C (Cursor.Expr.all); - Report_E (" is not a signal"); + Diag_C (Cursor.Expr.all); + Diag_C (" is not a signal"); + Warning_E; else Check_Sub_Tree_If_All_Found (Cursor.Next_Child); end if; |