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

LazDebuggerGdbmi: fix ParseGDBString

Browse Source
This commit is contained in:
Martin 2024-02-21 20:04:10 +01:00
parent a4af1db7c2
commit 38e0022ccc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggergdbmi/debugutils.pp
View File

@ -410,10 +410,11 @@ begin
// must be # // must be #
v := 0; v := 0;
inc(i); inc(i);
while (i < length(AValue)) and (AValue[i] in ['0'..'9']) do begin while (i <= length(AValue)) and (AValue[i] in ['0'..'9']) do begin
v:= v * 10 + ord(AValue[i]) - ord('0'); v:= v * 10 + ord(AValue[i]) - ord('0');
inc(i); inc(i);
end; end;
dec(i);
inc(j); inc(j);
Result[j] := chr(v and 255); Result[j] := chr(v and 255);
end; end;