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

IDE: fixed range check

Browse Source 
git-svn-id: trunk@45274 -
This commit is contained in:
mattias 2014-05-31 23:24:05 +00:00
parent 4e49bc99a1
commit c20505c5d5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourcemarks.pas
View File

@ -441,7 +441,7 @@ begin
if Result <> 0 then exit;
Result:=Priority-OtherMark.Priority;
if Result <> 0 then exit;
Result := PtrInt(Self) - PtrInt(OtherMark);
Result := ComparePointers(Self,OtherMark);
end;
function TSourceMark.CompareEditorAndLine(ASrcEditID: TObject;