paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: fix TSourceMark.Compare for the case we have > 1 different marks for the same line and column

Browse Source 
git-svn-id: trunk@18945 -
This commit is contained in:
paul 2009-03-10 13:25:58 +00:00
parent 633ff61ec3
commit 2d53f3dbe7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourcemarks.pas
View File

@ -395,6 +395,8 @@ begin
Result:=Line-OtherMark.Line; Result:=Line-OtherMark.Line;
if Result<>0 then exit; if Result<>0 then exit;
Result:=Column-OtherMark.Column; Result:=Column-OtherMark.Column;
if Result <> 0 then exit;
Result := PtrInt(Self) - PtrInt(OtherMark);
end; end;
function TSourceMark.CompareEditorAndLine(ASynEdit: TCustomSynEdit; function TSourceMark.CompareEditorAndLine(ASynEdit: TCustomSynEdit;