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

* added pei-i386 filetype so debugger recognized it as x86

Browse Source 
git-svn-id: trunk@12710 -
This commit is contained in:
marc 2007-11-03 01:44:58 +00:00
parent 9a45e5e0b0
commit bd07d08f17
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
debugger/gdbmidebugger.pp
View File

@ -2029,32 +2029,32 @@ function TGDBMIDebugger.StartDebugging(const AContinueCommand: String): Boolean;
FTargetIsBE := False;
case StringCase(AFileType, [
'efi-app-ia32', 'elf32-i386',
'efi-app-ia32', 'elf32-i386', 'pei-i386',
'elf64-x86-64',
'mach-o-be',
'mach-o-le',
'pei-arm-little',
'pei-arm-big'
], True, False) of
0..1: FTargetCPU := 'x86';
2: FTargetCPU := 'x86_64';
3: begin
0..2: FTargetCPU := 'x86';
3: FTargetCPU := 'x86_64';
4: begin
//mach-o-be
FTargetIsBE := True;
if FGDBCPU <> ''
then FTargetCPU := FGDBCPU
else FTargetCPU := 'powerpc'; // guess
end;
4: begin
5: begin
//mach-o-le
if FGDBCPU <> ''
then FTargetCPU := FGDBCPU
else FTargetCPU := 'x86'; // guess
end;
5: begin
6: begin
FTargetCPU := 'arm';
end;
6: begin
7: begin
FTargetIsBE := True;
FTargetCPU := 'arm';
end;