paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 14:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: don't crash on trying to show a line for non-fpc message (bug #0014825)

Browse Source 
git-svn-id: trunk@22210 -
This commit is contained in:
paul 2009-10-17 17:20:08 +00:00
parent 3a0ad627a7
commit 63838ba0cf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -11366,8 +11366,10 @@ begin
FileName:=ALine.Filename;
CaretPos.x:=ALine.Column;
CaretPos.y:=ALine.LineNumber;
Result := Assigned(ALine.Parts);
if not Result then
Exit;
ErrType:=FPCErrorTypeNameToType(ALine.Parts.Values['Type']);
Result:=True;
end;
function TMainIDE.DoJumpToCompilerMessage(Index:integer;