diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-11-28 20:28:39 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-11-28 20:29:24 +0100 |
| commit | fa235b34dc6b5ad2180806ebe717a93cd72aaa47 (patch) | |
| tree | 3cdc998aaea7f2fbebd17f12d87729fd1fb32589 | |
| parent | 5a9ece8bf4f957e4afe7a9d410c85d26bcba14d0 (diff) | |
| download | ghdl-fa235b34dc6b5ad2180806ebe717a93cd72aaa47.tar.gz ghdl-fa235b34dc6b5ad2180806ebe717a93cd72aaa47.tar.bz2 ghdl-fa235b34dc6b5ad2180806ebe717a93cd72aaa47.zip | |
errorout: adjust msgid/location for error limit.
| -rw-r--r-- | src/vhdl/errorout.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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; |