From fa235b34dc6b5ad2180806ebe717a93cd72aaa47 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 28 Nov 2018 20:28:39 +0100 Subject: errorout: adjust msgid/location for error limit. --- src/vhdl/errorout.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb index 6d1b03299..daf5a9af7 100644 --- a/src/vhdl/errorout.adb +++ b/src/vhdl/errorout.adb @@ -440,8 +440,8 @@ package body Errorout is and then Nbr_Errors = Max_Nbr_Errors then -- Limit reached. Emit a message. - Report_Handler.Error_Start - (Err => (Option, Msgid_Error, False, File, Line, Offset, 0)); + Report_Handler.Error_Start (Err => (Option, Msgid_Error, False, + No_Source_File_Entry, 0, 0, 0)); Report_Handler.Message ("error limit reached"); Report_Handler.Message_End.all; end if; -- cgit v1.2.3