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

FpDebug: Do not crash on unrecognized binary-formats

Browse Source
This commit is contained in:
Joost van der Sluis 2021-12-10 17:57:07 +01:00
parent 1dbef448b0
commit 124083f794
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpdebug/fpdbgcontroller.pas
View File

@ -1323,6 +1323,7 @@ var
imgReader: TDbgImageReader;
ATargetInfo: TTargetDescriptor;
begin
ATargetInfo := hostDescriptor;
if (FExecutableFilename <> '') and FileExists(FExecutableFilename) then
begin
DebugLn(DBG_VERBOSE, 'TDbgController.CheckExecutableAndLoadClasses');
@ -1332,14 +1333,16 @@ begin
source := TDbgFileLoader.Create(FExecutableFilename);
imgReader := GetImageReader(source, nil, 0, false);
ATargetInfo := imgReader.TargetInfo;
// If the file-format of the 'executable' is not recognized, imgReader is
// nil. It can be anything, executable (some script) or non-executable (
// a jpeg-image). So use the default host-descriptor and see what happens...
if Assigned(imgReader) then
ATargetInfo := imgReader.TargetInfo;
finally
FreeAndNil(imgReader); // TODO: Store object reference, it will be needed again
FreeAndNil(source);
end;
end
else
ATargetInfo := hostDescriptor;
end;
FOsDbgClasses := FpDbgClasses.GetDbgProcessClass(ATargetInfo);
end;