diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-09-16 08:07:36 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-09-16 08:18:50 +0200 |
commit | 9ed21dea7e8c7c5a07d1438ec89ecc98ac7f399d (patch) | |
tree | 4528ee0f3bf6fffdaf3f210fc1a9c6fb7ae82bbc /src/grt/grt-wave_opt-design.adb | |
parent | 7303c1068a75001365f77f2569382cc093fa9ac2 (diff) | |
download | ghdl-9ed21dea7e8c7c5a07d1438ec89ecc98ac7f399d.tar.gz ghdl-9ed21dea7e8c7c5a07d1438ec89ecc98ac7f399d.tar.bz2 ghdl-9ed21dea7e8c7c5a07d1438ec89ecc98ac7f399d.zip |
grt: adjust grt-wave_opt error API.
Diffstat (limited to 'src/grt/grt-wave_opt-design.adb')
-rw-r--r-- | src/grt/grt-wave_opt-design.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/grt/grt-wave_opt-design.adb b/src/grt/grt-wave_opt-design.adb index 8ef0a73cd..37291a84c 100644 --- a/src/grt/grt-wave_opt-design.adb +++ b/src/grt/grt-wave_opt-design.adb @@ -206,13 +206,15 @@ package body Grt.Wave_Opt.Design is Cursor := Previous_Cursor; while Cursor /= null loop if Cursor.Kind = Not_Found then - Print_Context (Cursor, Warning); + Warning_S; + Diag_C_Context (Cursor); 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); + Warning_S; + Diag_C_Context (Cursor); Diag_C (Cursor.Expr.all); Diag_C (" is not a signal"); Warning_E; |