diff options
| -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); |