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, changed(fixed) prefetch policy

Browse Source 
git-svn-id: trunk@28260 -
This commit is contained in:
martin 2010-11-16 01:42:08 +00:00
parent d8e607cb2e
commit 8a9ae3f278
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/assemblerdlg.pp
View File

@ -527,12 +527,12 @@ begin
PadFront := 5;
PadEnd := 5;
if ALine < FTopLine
then PadFront := 25
else PadEnd := 25;
then PadFront := 20
else PadEnd := 20;
FTopLine := ALine;
if (FDisassembler <> nil)
and ( (FDisassembler.CountBefore < Max(0, -(FTopLine - PadFront)))
or (FDisassembler.CountAfter < Max(0, FTopLine + FLineCount + 1 + PadEnd)) )
and ( (FDisassembler.CountBefore < Max(0, -(FTopLine - 1)))
or (FDisassembler.CountAfter < Max(0, FTopLine + FLineCount + 2)) )
then FDisassembler.PrepareRange(FLocation, Max(0, -(FTopLine - PadFront)), Max(0, FTopLine + FLineCount + 1 + PadEnd));
UpdateLineData;
end;