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

debugger: support elf32-i386-freebsd target

Browse Source 
git-svn-id: trunk@19515 -
This commit is contained in:
paul 2009-04-19 15:43:32 +00:00
parent 84c2d005ca
commit 3c56977f01
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

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