paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 21:38:27 +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 
(cherry picked from commit dc46e8ce2e)
This commit is contained in:
Martin 2024-05-23 16:18:01 +02:00
parent dae0c545d3
commit 35dab68891
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;