From b3179348c0d9aae8ad6b9c3996a1b26b08ac363f Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 17 Nov 2018 14:02:43 +0000
Subject: [PATCH] FpDebug: More verbose error, if failing to open file

git-svn-id: trunk@59570 -
---
 components/fpdebug/fpimgreaderbase.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpdebug/fpimgreaderbase.pas b/components/fpdebug/fpimgreaderbase.pas
index 348a1d15bf..705c61d237 100644
--- a/components/fpdebug/fpimgreaderbase.pas
+++ b/components/fpdebug/fpimgreaderbase.pas
@@ -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;