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 | |
parent | 115d6df2324dd3d266750cde43a23400a404859e (diff) | |
download | ghdl-b9fc5a0bbc41deebb736bc216ce97da835f72d1a.tar.gz ghdl-b9fc5a0bbc41deebb736bc216ce97da835f72d1a.tar.bz2 ghdl-b9fc5a0bbc41deebb736bc216ce97da835f72d1a.zip |
vhdl: minor reformating.
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/vhdl-errors.adb | 7 | ||||
-rw-r--r-- | src/vhdl/vhdl-errors.ads | 2 |
2 files changed, 4 insertions, 5 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; diff --git a/src/vhdl/vhdl-errors.ads b/src/vhdl/vhdl-errors.ads index 73bf72c01..41dcb0719 100644 --- a/src/vhdl/vhdl-errors.ads +++ b/src/vhdl/vhdl-errors.ads @@ -22,7 +22,7 @@ with Vhdl.Tokens; package Vhdl.Errors is -- This kind can't be handled. - procedure Error_Kind (Msg: String; An_Iir: in Iir); + procedure Error_Kind (Msg: String; N : Iir); procedure Error_Kind (Msg: String; Def : Iir_Predefined_Functions); pragma No_Return (Error_Kind); |