paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-16 12:19:23 +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 SetSelection(ALine: Integer; AMakeVisible: Boolean; AKeepSelEnd: Boolean = False);
procedure SetLineCount(ALineCount: Integer); procedure SetLineCount(ALineCount: Integer);
procedure SetTopLine(ALine: Integer); procedure SetTopLine(ALine: Integer);
function IndexOfAddr(const AAddr: TDBGPtr): Integer; function IndexOfAddr(const AnAddr: TDBGPtr): Integer;
procedure UpdateLocation(const AAddr: TDBGPtr); procedure UpdateLocation(const AAddr: TDBGPtr);
procedure DoEditorOptsChanged(Sender: TObject; Restore: boolean); procedure DoEditorOptsChanged(Sender: TObject; Restore: boolean);
protected protected
@ -803,11 +803,11 @@ begin
UpdateView; UpdateView;
end; end;
function TAssemblerDlg.IndexOfAddr(const AAddr: TDBGPtr): Integer; function TAssemblerDlg.IndexOfAddr(const AnAddr: TDBGPtr): Integer;
begin begin
Result := length(FLineMap) - 1; Result := length(FLineMap) - 1;
while Result >= 0 do begin 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; then exit;
dec(Result); dec(Result);
end; end;