diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-09-16 07:46:55 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-09-16 07:46:55 +0200 |
commit | a03179ad2abff33d21fb5d18bcb13b2d8aa11c21 (patch) | |
tree | 794fae015232319a3188c54b188d50425f578604 /src/grt/grt-signals.adb | |
parent | bb151c2bd6f6ab39c70c92828c4591ddb6a594a4 (diff) | |
download | ghdl-a03179ad2abff33d21fb5d18bcb13b2d8aa11c21.tar.gz ghdl-a03179ad2abff33d21fb5d18bcb13b2d8aa11c21.tar.bz2 ghdl-a03179ad2abff33d21fb5d18bcb13b2d8aa11c21.zip |
grt: rework error API (WIP).
Diffstat (limited to 'src/grt/grt-signals.adb')
-rw-r--r-- | src/grt/grt-signals.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/grt/grt-signals.adb b/src/grt/grt-signals.adb index ffe53ea74..aad67dfdc 100644 --- a/src/grt/grt-signals.adb +++ b/src/grt/grt-signals.adb @@ -535,11 +535,11 @@ package body Grt.Signals is procedure Error_Trans_Error (Trans : Transaction_Acc) is begin - Error_C ("range check error on signal at "); - Error_C (Trans.File); - Error_C (":"); - Error_C (Natural (Trans.Line)); - Error_E (""); + Error_S ("range check error on signal at "); + Diag_C (Trans.File); + Diag_C (':'); + Diag_C (Trans.Line); + Error_E; end Error_Trans_Error; function Find_Driver (Sig : Ghdl_Signal_Ptr) return Ghdl_Index_Type |