From b9fc5a0bbc41deebb736bc216ce97da835f72d1a Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 11 May 2019 06:59:38 +0200 Subject: vhdl: minor reformating. --- src/vhdl/vhdl-errors.adb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/vhdl/vhdl-errors.adb') diff --git a/src/vhdl/vhdl-errors.adb b/src/vhdl/vhdl-errors.adb index 5cc54da90..f1342f046 100644 --- a/src/vhdl/vhdl-errors.adb +++ b/src/vhdl/vhdl-errors.adb @@ -25,11 +25,10 @@ with Std_Names; with Logging; use Logging; package body Vhdl.Errors is - procedure Error_Kind (Msg : String; An_Iir : Iir) is + procedure Error_Kind (Msg : String; N : Iir) is begin - Log_Line - (Msg & ": cannot handle " & Iir_Kind'Image (Get_Kind (An_Iir)) - & " (" & Disp_Location (An_Iir) & ')'); + Log_Line (Msg & ": cannot handle " & Iir_Kind'Image (Get_Kind (N)) + & " (" & Disp_Location (N) & ')'); raise Internal_Error; end Error_Kind; -- cgit v1.2.3