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

FpDebug: Linux, fix reading proc/maps to get loaded libraries.

Browse Source 
(cherry picked from commit 6f1cd0c4b5)
This commit is contained in:
Martin 2025-01-07 12:54:05 +01:00
parent 3872ad8091
commit 772bc3236b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -1116,10 +1116,10 @@ begin
BlockLength:=64*1024;
TotalBytesRead := 0;
repeat
SetLength(Buf, TotalBytesRead + BlockLength);
BytesRead := FS.Read(Buf[TotalBytesRead+1], BlockLength);
TotalBytesRead:=TotalBytesRead+BytesRead;
until BytesRead <= BlockLength;
SetLength(Buf, TotalBytesRead + BlockLength);
BytesRead := FS.Read(Buf[TotalBytesRead+1], BlockLength);
TotalBytesRead:=TotalBytesRead+BytesRead;
until BytesRead <= 0;
SetLength(Buf, TotalBytesRead);
finally
FS.Free;