paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 18:17:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: More verbose error, if failing to open file

Browse Source 
git-svn-id: trunk@59570 -
This commit is contained in:
martin 2018-11-17 14:02:43 +00:00
parent 3f70eb5a9d
commit b3179348c0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpimgreaderbase.pas
View File

@ -186,7 +186,7 @@ begin
FModulePtr := MapViewOfFile(FMapHandle, FILE_MAP_READ, 0, 0, 0);
if FModulePtr = nil
then begin
raise Exception.Create('Could not map view');
raise Exception.Create('Could not map view: ' + IntToStr(GetLastOSError));
Exit;
end;