diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-11 06:59:38 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-11 06:59:38 +0200 |
commit | b9fc5a0bbc41deebb736bc216ce97da835f72d1a (patch) | |
tree | 4a6030861d3a3a33c027a486cbac734a17498fe6 /src/vhdl/vhdl-errors.adb | |
parent | 115d6df2324dd3d266750cde43a23400a404859e (diff) | |
download | ghdl-b9fc5a0bbc41deebb736bc216ce97da835f72d1a.tar.gz ghdl-b9fc5a0bbc41deebb736bc216ce97da835f72d1a.tar.bz2 ghdl-b9fc5a0bbc41deebb736bc216ce97da835f72d1a.zip |
vhdl: minor reformating.
Diffstat (limited to 'src/vhdl/vhdl-errors.adb')
-rw-r--r-- | src/vhdl/vhdl-errors.adb | 7 |
1 files changed, 3 insertions, 4 deletions
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; |