diff options
Diffstat (limited to 'src/vhdl/errorout.adb')
| -rw-r--r-- | src/vhdl/errorout.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb index 33804e1a6..6d1b03299 100644 --- a/src/vhdl/errorout.adb +++ b/src/vhdl/errorout.adb @@ -217,6 +217,7 @@ package body Errorout is Line : Natural; New_Id : Msgid_Type; Offset : Natural; + Loc_Length : Natural; Line_Pos : Source_Ptr; pragma Unreferenced (Line_Pos); begin @@ -242,6 +243,7 @@ package body Errorout is File := No_Source_File_Entry; Line := 0; Offset := 0; + Loc_Length := 0; case Origin is when Option @@ -262,10 +264,12 @@ package body Errorout is File := Scanner.Get_Current_Source_File; Line := Scanner.Get_Current_Line; Offset := Scanner.Get_Current_Offset; + Loc_Length := 1; when Parse => File := Scanner.Get_Current_Source_File; Line := Scanner.Get_Current_Line; Offset := Scanner.Get_Token_Offset; + Loc_Length := Scanner.Get_Current_Offset - Offset; when Semantic => null; end case; @@ -273,7 +277,7 @@ package body Errorout is end case; Report_Handler.Error_Start - (Err => (Origin, New_Id, Cont, File, Line, Offset)); + (Err => (Origin, New_Id, Cont, File, Line, Offset, Loc_Length)); -- Display message. declare @@ -437,7 +441,7 @@ package body Errorout is then -- Limit reached. Emit a message. Report_Handler.Error_Start - (Err => (Origin, Msgid_Error, False, File, Line, Offset)); + (Err => (Option, Msgid_Error, False, File, Line, Offset, 0)); Report_Handler.Message ("error limit reached"); Report_Handler.Message_End.all; end if; |