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

DBG: Fixed max(qwoed, qword), some fpc versions do not compile it. issue #0019274

Browse Source 
git-svn-id: trunk@30519 -
This commit is contained in:
martin 2011-05-01 17:03:08 +00:00
parent 0a17ba04c0
commit 195d3727b7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbmidebugger.pp
View File

@ -2749,7 +2749,9 @@ function TGDBMIDebuggerCommandDisassembe.DoExecute: Boolean;
// create a dummy range, so we will not retry // create a dummy range, so we will not retry
NewRange.Capacity := 1; NewRange.Capacity := 1;
NewRange.RangeStartAddr := AFirstAddr.Value; NewRange.RangeStartAddr := AFirstAddr.Value;
NewRange.RangeEndAddr := Max(OrigLastAddress.Value, AFirstAddr.Value+1); if OrigLastAddress.Value > AFirstAddr.Value+1
then NewRange.RangeEndAddr := OrigLastAddress.Value
else NewRange.RangeEndAddr := AFirstAddr.Value+1;
NewRange.LastEntryEndAddr := AFirstAddr.Value+1; NewRange.LastEntryEndAddr := AFirstAddr.Value+1;
Itm.Addr := AFirstAddr.Value; Itm.Addr := AFirstAddr.Value;
Itm.Dump := ' '; Itm.Dump := ' ';