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

FpDebug: Fixed MemManage read from register and sign extend (if register is smaller than expected source size)

Browse Source
This commit is contained in:
Martin 2024-11-10 22:57:23 +01:00
parent 4d88956173
commit 8afda09539
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/fpdmemorytools.pas
View File

@ -2124,7 +2124,12 @@ begin
FPartialReadResultLenght := SourceReadSize;
if SourceReadSize > ConvData.SourceSize.Size then
SourceReadSize := ConvData.SourceSize.Size;
SourceReadSize := ConvData.SourceSize.Size
else
if SourceReadSize <= ConvData.SourceSize.Size then begin
ConvData.SourceSize := SizeVal(SourceReadSize);
ConvData.SourceFullSize := SourceReadSize;
end;
ReadData := @TmpVal;