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

IDE: cleans up asm dlg hint

Browse Source 
git-svn-id: trunk@49223 -
This commit is contained in:
martin 2015-05-30 17:33:04 +00:00
parent 475b08884c
commit 764912011f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/assemblerdlg.pp
View File

@ -141,7 +141,7 @@ type
procedure SetSelection(ALine: Integer; AMakeVisible: Boolean; AKeepSelEnd: Boolean = False);
procedure SetLineCount(ALineCount: Integer);
procedure SetTopLine(ALine: Integer);
function IndexOfAddr(const AAddr: TDBGPtr): Integer;
function IndexOfAddr(const AnAddr: TDBGPtr): Integer;
procedure UpdateLocation(const AAddr: TDBGPtr);
procedure DoEditorOptsChanged(Sender: TObject; Restore: boolean);
protected
@ -803,11 +803,11 @@ begin
UpdateView;
end;
function TAssemblerDlg.IndexOfAddr(const AAddr: TDBGPtr): Integer;
function TAssemblerDlg.IndexOfAddr(const AnAddr: TDBGPtr): Integer;
begin
Result := length(FLineMap) - 1;
while Result >= 0 do begin
if (FLineMap[Result].State = lmsStatement) and (FLineMap[Result].Addr = FCurrentLocation)
if (FLineMap[Result].State = lmsStatement) and (FLineMap[Result].Addr = AnAddr)
then exit;
dec(Result);
end;