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

DBG: Assembler, fix a range check

Browse Source 
git-svn-id: trunk@28378 -
This commit is contained in:
martin 2010-11-21 14:45:36 +00:00
parent aa572c8941
commit a37ee03544
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
debugger/gdbmidebugger.pp
View File

@ -1964,6 +1964,7 @@ const
ItmPtr2^.Dump := ItmPtr^.Dump; ItmPtr2^.Dump := ItmPtr^.Dump;
ItmPtr := ItmPtr2; ItmPtr := ItmPtr2;
end end
else ItmPtr2 := nil;
end; end;
if (LastItem <> nil) then begin if (LastItem <> nil) then begin
// unify strings, to keep only one instance // unify strings, to keep only one instance