paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 11:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBg: Disassembler, don't request with outdated address

Browse Source 
git-svn-id: trunk@28272 -
This commit is contained in:
martin 2010-11-16 15:26:45 +00:00
parent 1688a1e6a8
commit 4642d7c179
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/assemblerdlg.pp
View File

@ -243,10 +243,11 @@ begin
then begin
// only for F9, not for F8,F7 single stepping with assembler is no good, if it clears all the time
//ClearLineMap;
FLocation := 0;
end
else begin
// Check if anything is there, update BaseAddr
if FDisassembler <> nil
if (FDisassembler <> nil) and (FLocation <> 0)
then FDisassembler.PrepareRange(FLocation, Max(0, -(FTopLine - 5)), Max(0, FTopLine + FLineCount + 1 + 5));
UpdateLineData;
end;