paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 07:16:30 +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; FTargetIsBE := False;
case StringCase(AFileType, [ case StringCase(AFileType, [
'efi-app-ia32', 'elf32-i386', 'pei-i386', 'efi-app-ia32', 'elf32-i386', 'pei-i386', 'elf32-i386-freebsd',
'elf64-x86-64', 'elf64-x86-64',
'mach-o-be', 'mach-o-be',
'mach-o-le', 'mach-o-le',
'pei-arm-little', 'pei-arm-little',
'pei-arm-big' 'pei-arm-big'
], True, False) of ], True, False) of
0..2: FTargetCPU := 'x86'; 0..3: FTargetCPU := 'x86';
3: FTargetCPU := 'x86_64'; 4: FTargetCPU := 'x86_64';
4: begin 5: begin
//mach-o-be //mach-o-be
FTargetIsBE := True; FTargetIsBE := True;
if FGDBCPU <> '' if FGDBCPU <> ''
then FTargetCPU := FGDBCPU then FTargetCPU := FGDBCPU
else FTargetCPU := 'powerpc'; // guess else FTargetCPU := 'powerpc'; // guess
end; end;
5: begin 6: begin
//mach-o-le //mach-o-le
if FGDBCPU <> '' if FGDBCPU <> ''
then FTargetCPU := FGDBCPU then FTargetCPU := FGDBCPU
else FTargetCPU := 'x86'; // guess else FTargetCPU := 'x86'; // guess
end; end;
6: begin 7: begin
FTargetCPU := 'arm'; FTargetCPU := 'arm';
end; end;
7: begin 8: begin
FTargetIsBE := True; FTargetIsBE := True;
FTargetCPU := 'arm'; FTargetCPU := 'arm';
end; end;