From a03179ad2abff33d21fb5d18bcb13b2d8aa11c21 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 16 Sep 2018 07:46:55 +0200
Subject: grt: rework error API (WIP).

---
 src/grt/grt-signals.adb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/grt/grt-signals.adb')

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
-- 
cgit v1.2.3