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

FpDebug: Windows, implement alternative "normal" file reading (via stream). On 32bit mapping an entire file into memory can fail, if not enough continuous memory is available.

Browse Source
This commit is contained in:
Martin 2024-05-23 16:18:01 +02:00
parent 5b84fae03d
commit dc46e8ce2e
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpdebug/fpimgreaderbase.pas
View File

@ -338,6 +338,14 @@ begin
FModulePtr := MapViewOfFile(FMapHandle, FILE_MAP_READ, 0, 0, 0);
if FModulePtr = nil
then begin
if GetLastError = 8 then begin // not enough memory, use a stream instead
CloseHandle(FMapHandle);
FMapHandle := 0;
FList := TList.Create;
FStream := THandleStream.Create(AFileHandle);
inherited Create;
exit;
end;
raise Exception.Create('Could not map view: ' + IntToStr(GetLastOSError));
Exit;
end;